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.