imprimer la fin du document

[nrdz83]

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,

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

Par avance merci amitiés😉

 

[arnaudbu]

Re : imprimer la fin du document

Salut,

Adapte ce 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]

Re : imprimer la fin du document

super merci pour le code amitiés