Aufgabe:
Wie kann man excel Blätter über vba Makros zur Laufzeit ausgben
Lösung:
Über die worksheet.ExportAsFixedFormat methode
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sAusgabedatei, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True |
Excel Beispiel Datei mit Code
Im Beispiel werden beide Blätter dann als eine PDF Datei automatisch erzeugt
Vba Code Beispiel
Option Explicit Sub Excel_Blaetter_als_PDF_ausgeben() '-----------< Excel_Blaetter_als_PDF_ausgeben() >------------- '*Ausgabepfad PDF_Datei Dim sAusgabedatei As String sAusgabedatei = "C:\Users\poppr\Desktop\Excel\Excel\PDF\PDF_Ausgabe_ueber_Export.pdf"
'Excel-Blaetter markieren Sheets(Array("Ausgabe_Seite1", "Ausgabe_Seite2")).Select
'-Auswahl Quality- 'xlQualityStandard 'xlQualityMinimum
'-IgnorePrintAreas- 'False: nur Druckbereich ausgeben 'True: gesamtes Blatt
'--IncludeDocProperties-- 'Wenn dieser Wert auf True festgelegt ist, werden die Dokumenteigenschaften eingeschlossen, bei False werden sie weggelassen.
Dim ws As Worksheet Set ws = ActiveSheet ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sAusgabedatei, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
'-----------</ Excel_Blaetter_als_PDF_ausgeben() >------------- End Sub |