Makro zum Ausdruck einer PDF im Querform
28.08.2022 13:48:52
Udo
ich habe mir über mehrere Monate eine umfangreiche Tabelle zur Erfassung meiner Arbeitszeit und wichtiger Angaben zum jeweiligen Tag erstellt.
Zum Speichern einer PDF benutze ich ein Makro, welches die Datei mit Namen auf meinem Rechner abspeichert. Nun ist mir aufgefallen, dass die PDF immer im Hochformat ausgegeben wird und nicht im Querformat, wie von mir festgelegt. Warum das Dokument immer im Hochformat ausgegeben wird, leuchtet mir nicht ein und ich habe nach langer Recherche im Netz auch keine Lösung/Erklärung finden können.
Gibt es die Möglichkeit bei dem bestehenden Makro noch einen "Querformatszwang" einzufügen?
Das Makro sieht wie folgt aus:
Sub Pdf_Monate()
ChDir ThisWorkbook.Path
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
Range("A1") & " " & Range("L1") & " - " & Range("C1").Value & " " & Range("G1") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub
LG Udo