Doppelt PDFCreator komm nicht weiter
01.02.2008 19:30:00
Sonnenpeter
ich komm immer noch 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
Application.ActivePrinter = "PDFCreator auf Ne01:"
Sheets("Abfragen").Select
BZelle = 9
For i = 1 To 5
BName = Sheets("PDF Druck").Range("B" & BZelle).Value
ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i, Copies:=1, _
ActivePrinter:="PDFCreator auf Ne01:"PrintToFile:=True, Collate:=True, _
PrToFileName:="C:\Dokumente und Einstellungen\Testordner\" & BName & ".pdf"
BZelle = BZelle + 1
Next
Application.ActivePrinter = StandartDrucker
End Sub
Wenn es grundsätzlich nicht möglich ist dann bitte eine entsprechende Info.
Gruß Sonnenpeter
Anzeige