Excel: PDF im Querformat speichern mit Makro
Schritt-für-Schritt-Anleitung
Um eine Excel-Datei als PDF im Querformat zu speichern, kannst Du das folgende Makro nutzen. Der Schlüssel ist, die PageSetup-Eigenschaften richtig einzustellen. Hier ist der vollständige VBA-Code:
Sub Pdf_Monate()
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 0
End With
Application.PrintCommunication = True
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
- Öffne den VBA-Editor (Alt + F11).
- Füge ein neues Modul hinzu und kopiere den obigen Code hinein.
- Schließe den VBA-Editor und führe das Makro aus.
Mit diesem Makro wird Deine Excel-Tabelle als PDF im Querformat gespeichert.
Häufige Fehler und Lösungen
-
Laufzeitfehler "1004": Wenn Du diesen Fehler erhältst, könnte es daran liegen, dass Application.PrintCommunication nicht richtig gesetzt wurde. Stelle sicher, dass der Code in der richtigen Reihenfolge ausgeführt wird.
-
PDF wird weiterhin im Hochformat gespeichert: Überprüfe, ob die Excel-Version, die Du verwendest, möglicherweise Einschränkungen hat. Einige Benutzer berichten, dass in Excel 2019 dieses Problem auftritt, während ältere Versionen korrekt arbeiten.
Alternative Methoden
Falls das Makro nicht funktioniert, kannst Du auch die Druckoptionen in Excel manuell anpassen:
- Gehe zu Datei > Drucken.
- Wähle Seitenlayout und stelle die Orientierung auf Querformat.
- Klicke auf Drucken und wähle dann Microsoft Print to PDF aus, um Deine Datei als PDF zu speichern.
Diese Methode ist besonders nützlich, wenn Du nur gelegentlich PDF-Dateien im Querformat benötigst.
Praktische Beispiele
-
Excel-Tabelle im Querformat als PDF speichern: Wenn Du eine umfangreiche Tabelle hast, die in einer PDF-Datei gut lesbar sein soll, ist das Querformat oft die beste Wahl. Nutze das oben genannte Makro, um sicherzustellen, dass alle Daten auf eine Seite passen.
-
PDF mit verschiedenen Orientierungen: Wenn Du ein Dokument mit sowohl Hoch- als auch Querformat erstellen möchtest, kannst Du verschiedene Blätter in Excel nutzen und für jedes Blatt die Orientierung separat einstellen.
Tipps für Profis
-
Verwende IgnorePrintAreas: Wenn Du sicherstellen möchtest, dass alle Daten unabhängig von den Druckbereichen exportiert werden, setze IgnorePrintAreas auf True.
-
Dynamische Dateinamen: Du kannst den Dateinamen dynamisch gestalten, indem Du das aktuelle Datum oder andere Zellen in den Namen einfügst.
-
Automatisierung: Wenn Du regelmäßig PDF-Dateien im Querformat speicherst, erwäge, das Makro mit einem Button in Deiner Excel-Oberfläche zu verknüpfen, um die Nutzung zu vereinfachen.
FAQ: Häufige Fragen
1. Warum wird meine PDF immer im Hochformat gespeichert?
Das kann an der Excel-Version liegen. Einige Versionen haben Probleme mit der PDF-Exportfunktion. Stelle sicher, dass Du die PageSetup-Einstellungen korrekt anpasst.
2. Wie kann ich sicherstellen, dass alle Spalten auf eine Seite passen?
Verwende die FitToPagesWide- und FitToPagesTall-Eigenschaften in Deinem Makro, um zu steuern, wie viele Seiten in die Breite und Höhe passen.
3. Kann ich mehrere Excel-Blätter gleichzeitig als PDF im Querformat speichern?
Ja, Du kannst ein Makro anpassen, um durch alle Blätter zu iterieren und jedes Blatt individuell als PDF im Querformat zu speichern.