Als PDF mit PDFCreator speichern....
31.01.2008 21:00:00
Sonnenpeter
ich komm mal wieder nicht weiter.
Ich versuche mit PDFCreator Version 0.9.5 (2. September 2007) verschiedene Seiten einzeln zu speichern.
Das Makro läuft durch das Ergebniss ist aber keine PDF-Datei (die Endung lautet nur *.pdf
Was mache ich falsch?
Sub DruckePDF()
StandartDrucker = Application.ActivePrinter
Anzahl = Application.WorksheetFunction.Max(Sheets("PDF Druck").Range("A9:A28"))
Application.ActivePrinter = "PDFCreator auf Ne01:"
Sheets("Abfragen").Select
BZelle = 9
For i = 1 To Anzahl
BName = Sheets("PDF Druck").Range("B" & BZelle).Value
ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i, Copies:=1, _
ActivePrinter:="PDFCreator auf Ne01:", Collate:=True, PrintToFile:=True, _
PrToFileName:="C:\Dokumente und Einstellungen\Peter\Desktop\Testordner\" & BName & ".pdf"
BZelle = BZelle + 1
Next
Application.ActivePrinter = StandartDrucker
End Sub
Gruß Sonnenpeter
Anzeige