imprimer la fin du document

nrdz83 · 26 Janvier 2010

Bonsoir à tous je travaille sur l'impression d'une feuille mais je voudrais qu'il me détermine automatiquement la dernière ligne à imprimer.

comment modifier ce code,

Code:

 ActiveSheet.PageSetup.PrintArea = "A1:$36"

Par avance merci amitiés😉

arnaudbu · 26 Janvier 2010

Re : imprimer la fin du document

Salut,

Adapte ce code:

Code:

Sub PrintF()

Dim FinPrint as Integer

FinPrint = Range("A65536").End(xlUp).Row

With Sheets("Feuil1")
    .PageSetup.PrintArea = "$A$1:$A" & FinPrint
    .PrintOut Copies:=1
End With

End Sub

nrdz83 · 26 Janvier 2010

Re : imprimer la fin du document

super merci pour le code amitiés

imprimer la fin du document

nrdz83

XLDnaute Impliqué

arnaudbu

XLDnaute Occasionnel

nrdz83

XLDnaute Impliqué

Discussions similaires

imprimer la fin du document

nrdz83

XLDnaute Impliqué

arnaudbu

XLDnaute Occasionnel

nrdz83

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency