XL 2016 Macro mise en page

Marcel32 à dit:

Bonjour,

Tu peux utiliser la balise "code=vb" pour plus de clarté, si tu veux :

VB:

Sub SAVE_liste()
Application.ScreenUpdating = False

Set f = Sheets("RDV")
Set p = f.Range("A1", f.Cells(Rows.Count, "K").End(3))

dl = f.Range("A" & Rows.Count).End(xlUp).Row

Worksheets("RDV").Columns("A:K").AutoFit

chemin = ThisWorkbook.Path & "\Stables\"
If Dir(chemin, vbDirectory) = "" Then MkDir chemin

NomPDF = Month(Sheets("TB").Range("B11")) & "-" & "Liste Stables " & "" & Sheets("TB").Range("B8") & "" & Format(Sheets("TB").Range("B11"), " mmmm yyyy")
f.PageSetup.CenterHeader = " PATIENTS STABLES" & " " & Sheets("TB").Range("B8") & " " & Format(Sheets("TB").Range("B11"), " mmmm yyyy")
f.PageSetup.RightFooter = "&P de &N"
f.PageSetup.PrintArea = "$A$1:$H$" & dl
p.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & NomPDF, Quality:=xlQualityStandard

Set f = Nothing
Set p = Nothing
End Sub

Tu veux quoi comme aide exactement ?
Si tu veux que toutes tes colonnes tiennent dans la largeur d'une page, tu dois pouvoir ajouter ceci :
f.PageSetup.FitToPagesWide = 1

Cliquez pour agrandir...

sylvanu à dit:

Bonjour KTM, Marcel,
On peut aussi mettre en paysage, quelquefois ça améliore la lisibilité :

VB:

f.PageSetup.Orientation = xlLandscape

Cliquez pour agrandir...