PDF jusqu'à la dernière ligne non vide

[Cow18]

Normallement, si on a une plage comme AD1:AD170 dans la feuille « modèle » est on utilise un autofilter, on sait imprimer ou exporter sans feuille auxiliaire.
Voir macro « PDF_2 »
Il n’y a plus de données, je fais un RAZ quelque part ?
VP.xlsm (270,9 Ko)

[MadeinDark]

Bonjour, je me suis rendu compte que j’avais besoin de la même macro PDF mais pour imprimer directement en format A3.
Par peur de supprimer ou modifier des lignes qui ne faut pas, je n’ai pas essayé de recréer cette macro juste pour imprimer.
Quelqu’un aurait t’il l’aimabilité de m’aiguiller

Merci et bonne journée .

[FFO]

Bonjour
Le traitement affiche à l’écran le fichier pdf
Il est facile de cliquer sur l’icone de l’imprimante sur la barre de commande située juste au dessus pour l’imprimer
Ainsi de vérifier l’ensemble avant de l’éditer

N’est ce pas mieux que d’imprimer en aveugle ?

[Cow18]

on peut intégrer cette question dans la macro (cellule AF4)

Sub PDF_2()
     With Sheets("modèle")
          If .AutoFilterMode Then .AutoFilterMode = False
          .Range("AD1:AD170").AutoFilter 1, 1
          
          With .PageSetup
               .PaperSize = IIf(StrComp(Range("Format_Papier").Value, "A3", 1) = 0, xlPaperA3, xlPaperA4)     'si l'imprimeur le permet, on peut choisir pour "A3" dans cette cellule
               
               .Zoom = False
               .FitToPagesWide = 1
               .FitToPagesTall = 1
          End With
          
          .PrintPreview
          .ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\VP.pdf", OpenAfterPublish:=True
          If .AutoFilterMode Then .AutoFilterMode = False
     End With
End Sub
[VP.xlsm|attachment](upload://w7yeBQJso7PwDjpFAgpgLUiheRA.xlsm) (274,6 Ko)

VP.xlsm (274,6 Ko)