Microsoft Print to PDF in Excel VBA nutzen
Schritt-für-Schritt-Anleitung
Um Microsoft Print to PDF in Excel VBA zu verwenden, kannst Du folgenden Code nutzen, um ein Arbeitsblatt als PDF zu exportieren:
Sub ExportToPDF()
Dim lngLastRow As Long
With ActiveSheet
lngLastRow = .Cells.Find(What:="*", After:=Range("A1"), _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
.PageSetup.PrintArea = "$A$1:$O$" & lngLastRow
.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Pfad\Zu\Deiner\Datei.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
End Sub
Achte darauf, den Dateipfad entsprechend anzupassen. Dieser Code nutzt die ExportAsFixedFormat Methode, die keine Druckersuche erfordert und direkt eine PDF-Datei erstellt.
Häufige Fehler und Lösungen
-
Microsoft Print to PDF funktioniert nicht mehr
Stelle sicher, dass der Drucker korrekt installiert ist. Gehe zu den Druckereinstellungen in Windows und überprüfe, ob Microsoft Print to PDF als Standarddrucker ausgewählt ist.
-
Abfrage zur Speicherposition erscheint
Wenn Du die Datei ohne Abfrage speichern möchtest, nutze die ExportAsFixedFormat Methode wie im obigen Beispiel. Achte darauf, dass der Dateipfad korrekt angegeben ist.
-
PDF-Auflösung ist zu niedrig
Die Microsoft Print to PDF Funktion bietet keine Möglichkeit, die Auflösung direkt einzustellen. Um eine höhere Qualität zu erreichen, kannst Du alternative Methoden verwenden oder die DPI-Einstellungen in der Druckersteuerung überprüfen.
Alternative Methoden
Wenn Du Probleme mit Microsoft Print to PDF hast, gibt es verschiedene Alternativen:
- PDF-Drucker von Drittanbietern: Nutze Programme wie
FreePDF oder PDFCreator, die mehr Anpassungsmöglichkeiten bieten, einschließlich der Möglichkeit, die Auflösung zu ändern.
- Datei-Export direkt aus Excel: Du kannst auch die integrierte Exportfunktion nutzen:
- Gehe zu
Datei > Exportieren > PDF/XPS-Dokument erstellen.
Praktische Beispiele
Ein einfaches Beispiel für den Einsatz von Microsoft Print to PDF könnte so aussehen:
Sub PrintToPDF()
ActiveWindow.SelectedSheets.PrintOut PrintToFile:=True, _
PrToFileName:="C:\Pfad\Zu\Deiner\Datei.pdf", _
ActivePrinter:="Microsoft Print to PDF", Copies:=1, _
Collate:=True, IgnorePrintAreas:=False
End Sub
Dieses Beispiel zeigt, wie Du ein Arbeitsblatt drucken kannst, ohne einen physischen Drucker verwenden zu müssen.
Tipps für Profis
- VBA-Fehlerbehandlung einbauen: Nutze
On Error Resume Next und On Error GoTo 0, um Fehler im Code zu handhaben und eine reibungslose Ausführung zu gewährleisten.
- Druckereinstellungen speichern: Wenn Du den aktiven Drucker wechselst, speichere den aktuellen Drucker und stelle ihn nach dem Export wieder her, um die Benutzererfahrung zu verbessern.
- Qualitätseinstellungen prüfen: Bei der Verwendung von
Microsoft Print to PDF ist es wichtig, die Qualitätseinstellungen in den Druckereigenschaften zu überprüfen.
FAQ: Häufige Fragen
1. Warum funktioniert mein VBA-Code nicht mit Microsoft Print to PDF?
Überprüfe, ob der Drucker korrekt installiert ist und ob der Dateipfad für die PDF-Datei gültig ist.
2. Kann ich die Auflösung beim Drucken in PDF anpassen?
Microsoft Print to PDF bietet keine Möglichkeit zur Anpassung der Auflösung. Du kannst jedoch alternative PDF-Drucker verwenden, die diese Funktion unterstützen.
3. Wie kann ich die Abfrage zur Speicherposition vermeiden?
Verwende die ExportAsFixedFormat Methode mit einem festgelegten Dateipfad, um die Abfrage zu umgehen.
4. Was kann ich tun, wenn die PDF-Datei nicht den gewünschten Inhalt hat?
Überprüfe die PrintArea-Einstellungen und stelle sicher, dass alle relevanten Zellbereiche eingeschlossen sind.