Wie drucke ich mit Excel VBA in PDF?

Wie drucke ich mit Excel VBA in PDF?

Wie der Titel schon sagt, möchte ich meine Automatisierung erweitern, um das direkte Drucken in PDF einzuschließen. Die Makros, die ich geschrieben habe, formatieren den Druckbereich und das Seiten-Setup bereits nach meinen Wünschen. Aber wenn ich meine Makros aufzeichne, wird nichts zum Drucken, Druckerwechseln oder Speichern in einer Datei erfasst.

Gibt es eine Möglichkeit, dies zu erreichen? Ich könnte es sogar schaffen, wenn nur eine Eingabeaufforderung für den Speicherort erforderlich wäre. Ich könnte mir vorstellen, dass der Dateiname automatisch generiert werden könnte, indem vorhandene Informationen aus der Tabelle abgerufen werden.

Antwort1

Wenn Sie Excel 2010 oder höher verwenden, stellt Ihnen Excel ein internes Add-In zur Verfügung, mit dem Sie die Datei im PDF-Format speichern können.
Verwenden Sie den folgenden Code in Ihrem Makro, um Ihre Datei als PDF zu speichern

ActiveSheet.ExportAsFixedFormat Typ:=xlTypePDF, Dateiname:= _
        "C:\Benutzer\46506090\Desktop\Book1.pdf", Qualität:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        WAHR  

Hier können Sie den Pfad ersetzenC:\Benutzer\46506090\Desktop\Book1.pdfund den Dateinamen nach Ihren Wünschen.

Bearbeiten: Wenn Sie die gesamte Arbeitsmappe als PDF veröffentlichen möchten und nicht nur das Blatt, an dem Sie arbeiten, ersetzen Sie einfach ActiveBlatt.ExportAsFixedFormat nach ActiveArbeitsmappe.ExportAsFixedFormat

verwandte Informationen