PDF export instellingen

[Winkkie]

Hallo,

ik gebruik onderstaande code om een PDF te maken en dat gaat goed. Echter ik zou graag dat de PDF liggend wordt gemaakt en op 85% van het origineel.

Sub MacroforPDF()
Range("m2:u250").ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:="C:\Users\gebruiker\Desktop\test.pdf", _
        openafterpublish:=True

End Sub

Wie kan me daar bij helpen?

Groet
Winnkie

 

[edmoor]

Probeer het eens zo:

Sub ExportPDFlandscape()
    ActiveSheet.PageSetup.Orientation = xlLandscape
    ActiveWindow.Zoom = 85

    Range("m2:u250").ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:="C:\Users\gebruiker\Desktop\test.pdf", _
        IncludeDocProperties:=True, _
        openafterpublish:=True
        
    ActiveSheet.PageSetup.Orientation = xlPortrait
    ActiveWindow.Zoom = 100
End Sub

 

[Winkkie]

Dank je Edmoor,

kan ik verder