Microsoft Excel

Herbers Excel/VBA-Archiv

PDF erzeugen

Betrifft: PDF erzeugen von: Heiko
Geschrieben am: 18.09.2014 11:18:01

Hallo zusammen,

ich habe folgenden Code zum erzeugen eine PDF's erstellt:

Sub print_PDF()

Dim FileName As Variant

   
    FileName = Application.GetSaveAsFilename(ThisWorkbook.Path & "\" & _
        ActiveSheet.Range("M3").Value, FileFilter:="PDF Files (*.pdf), *.pdf")

    Debug.Print "Create PDF: " & FileName

    Sheets(Array("Sheet1", "Sheet2")).Select

    If FileName <> False Then
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            FileName:=FileName, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
    End If

    Sheets("Sheet1").Activate

End Sub

Mit dem Code komme ich super zurecht, basiert zum Teil aus anderen Beiträgen im Forum. Was ich bisher nicht finden konnte ist folgender Punkt. Wie kann ich verhindern, dass das "Speichern unter"-Fenster aufpoppt? Ziel ist es das Makro für eine Massenerstellung von PDF's zu verwenden. Das "Speichern unter"-Fenster verhindert die Automatisierung ein wenig. Kann mir jemand einen Tipp geben?

Vielen Dank
Heiko

  

Betrifft: AW: PDF erzeugen von: Hajo_Zi
Geschrieben am: 18.09.2014 11:21:00

Hallo Heiko,

rufe ihn nicht auf.
FileName = "C:\Test\Abc"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
FileName:=FileName, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

GrußformelHomepage


  

Betrifft: AW: PDF erzeugen von: Heiko
Geschrieben am: 18.09.2014 11:36:38

Hallo Hajo,

danke! So simpel hatte ich nicht gedacht.

Grüße
Heiko

Sub print_PDF()

Dim FileName As Variant

   
    FileName = ThisWorkbook.Path & "\" & ActiveSheet.Range("M3").Value

    Debug.Print "Create PDF: " & FileName

    Sheets(Array("Sheet1", "Sheet2")).Select

    If FileName <> False Then
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            FileName:=FileName, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
    End If

    Sheets("Sheet1").Activate

End Sub



 

Beiträge aus den Excel-Beispielen zum Thema "PDF erzeugen"