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
|