Readdy Write  
0,00 €
Your View Money
Views: Count
Self 20% 0
Your Content 60% 0

Users by Links 0
u1*(Content+Views) 10% 0
Follow-Follower 0
s2*(Income) 5% 0

Count
Followers 0
Login Register as User

Excel: Excel Blätter als PDF per vba Makro Code ausgeben

21.01.2019 (👁5219)


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