Macro impression

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
A voir également:

1 réponse

Gyrus Messages postés 3360 Statut Membre 526
 
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+
0
Xenos1705 Messages postés 97 Statut Membre
 
C'est exactement ce dont j'avais besoin...

Merci beaucoup A+
0