Projekt-Anfragen: Tel: 07022/9319004 info@CodeDocu.de Software Entwicklung in C# WPF Asp.Net Core Vba Excel Word SQL-Server EF Linq, UWP Net
#

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
»
Excel : Verknüpfte Grafik einfügen in PowerPoint
»
Excel : Verknüpfte Grafik einfügen, Kamera Objekte
»
Excel Lotus Mail: Email mit Lotus Mail versenden mit vba
»
Excel: eine reduzierte Blatt Ansicht erstellen mit Rand
»
Excel: Excel Blätter als PDF per vba Makro Code ausgeben
»
Excel : Ausgabe von mehreren Excel Blättern als PDF
»
Excel: Trennstrich ohne ausgeblendete Spalten
»
Excel: Text zentrieren über mehrere Zellen
»
Excel Icons
»
Farbpalette in Excel übernehmen ab 2013 Office 365

.

Jobs, Projekte, Angebote für Freiberufler, Selbstständig an Info@CodeDocu.de