PDF erzeugen
18.09.2014 11:18:01
Heiko
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