#

Download:

Datei 1: Excel_als_PDF_ausgeben.xlsm

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

 

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

 

 

 

Mobile

.

0123movie.net