Pour économiser du papier, vous pouvez définir une zone d’impression avant l’impression. Dans le premier exemple, vous définissez une zone d’impression qui correspond au marquage actuel. Marquez donc la zone que vous souhaitez imprimer, puis démarrez la macro suivante:
Sub definirlaplageimpression () ActiveSheet.PageSetup.PrintArea = Selection.Address End Sub
La propriété PrintArea est utilisée pour définir la zone d’impression. Lorsque vous réparez votre zone d’impression utilisez la macro :
Sub DefinirLaZoneImpression ()
Worksheets("Feuil1").PageSetup.PrintArea = _
"$A$1:$E$80"
End Sub
Une autre variante consiste à déterminer la zone de pression en fonction de la zone utilisée. Pour ce faire, utilisez la propriété CurrentRegion. Cette propriété détermine la zone environnante, à partir d’une cellule. Dès qu’une ligne ou une colonne vide apparaît, la zone est fermée.
Sub zoneimpressionapresutilisation ()
On Error Resume Next
Worksheets("Feuil1").Activate
Range("A1").Select
ActiveSheet.PageSetup.PrintArea = _
ActiveCell.CurrentRegion.Address
End Sub
Pour annuler à nouveau une zone d’impression, définissez la propriété PrintArea sur la valeur False ou sur la chaîne vide (»«). Cela définit à nouveau la feuille entière comme zone d’impression.
Vous pouvez utiliser la macro pour définir une zone d’impression de manière relative.
Sub MarquerLaZoneRelative ()
Worksheets("Feuil1").Activate
ActiveSheet.PageSetup.PrintArea = _
Range(ActiveCell(), Range("B5")).Address
End Sub
Dans la macro, à partir de la cellule active jusqu’à la cellule B5, la zone de données entière est spécifiée comme zone d’impression.