Macro pour définir les zones d’impression, Excel VBA

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.

S’abonner
Notifier de
0 Commentaires
le plus ancien
le plus récent le plus populaire
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x