Macro impression
Xenos1705
Messages postés
97
Statut
Membre
-
Xenos1705 Messages postés 97 Statut Membre -
Xenos1705 Messages postés 97 Statut Membre -
Bonjour à tous,
Est-ce que qqun saurait, via macro, comment définir la zone d'impression?
Ce que je souhaite c'est que la zone d'impression s'étende au maximum jusqu'à la dernière cellule renseignée d'une colonne en sachant que la dernière cellule n'est pas forcément à chaque fois sur la même ligne.
D'avance merci pour votre aide.
A+
Xenos
Est-ce que qqun saurait, via macro, comment définir la zone d'impression?
Ce que je souhaite c'est que la zone d'impression s'étende au maximum jusqu'à la dernière cellule renseignée d'une colonne en sachant que la dernière cellule n'est pas forcément à chaque fois sur la même ligne.
D'avance merci pour votre aide.
A+
Xenos
1 réponse
-
Bonjour,
Voici un exemple de code qui limite la zone d'impression aux colonnes A à C et à la dernière ligne renseignée de la colonne A :Sub ZoneImpression()
Dim DerLig As Long
With Worksheets("Feuil1")
DerLig = .Range("A" & Rows.Count).End(xlUp).Row
.PageSetup.PrintArea = "$A$1:$C$" & DerLig
.PrintPreview
End With
End Sub
A+
