als PDF speichern, aber ohne Dialog
02.12.2014 17:38:01
Mario
Das ist ja nicht das Problem - doch es kommt jedes Mal der FileDialog und ich muss den Pfad+Dateinamen nochmals mit "OK" bestätigen.
Und das ist sehr mühsam bei bis zu 40 einzelnen Dateien :-(
Hoffe irgendwer kann mir helfen und verraten, wie ich die PDFs generiere ohne den FileDialog!
Ich vermute mal schwer, dass es am "GetSaveAsFilename" :-(
Danke schon mal im Voraus!
Anbei mein Code:
Sub drucken_einzeln() ' jedes Tabellenblatt als eigenes PDF abspeichern
Dim pdfName As String
Dim strPath As String
Dim anzahlSheets, zaehler As Integer
strPath = Ordnerauswahl()
anzahlSheets = Worksheets.Count
For zaehler = 2 To anzahlSheets Step 1
Sheets(zaehler).Activate
pdfName = Application.GetSaveAsFilename(strPath & ActiveSheet.Name
& ".pdf", "PDF-Dateien (*.pdf), *.pdf")
Sheets(zaehler).Copy
With ActiveWorkbook
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, _
Quality:=xlQualityStandard, IncludeDocProperties:=False,
IgnorePrintAreas:=False, OpenAfterPublish:=False
.Close savechanges:=False
End With
Next zaehler
End Sub