PDFCreator - wie unter WordVBA programmieren?

[Jean Raul]

Ähnliche Themen

DVD läuft unter Vista 64 aber nicht unter XP

ICQ unter Vista

Autohotkey - Skript für Abspielen von Sound (Programmieren)

Hat schon mal jemand versucht, mit dem (kostenlosen) PDFCreator
http://www.pdfforge.org/
WordVBA zu programmieren? Im Prinzip schaffe ich es ja mit dem mitgelieferten Beispielprogrammen. Ich habe aber Probleme damit, den Dateinamen zu programmieren, unter dem die pdf ausgegeben werden soll. Die PDF wird immer mit dem Pfad und Namen ausgegeben, der den Autosave-Optionen des Programms entspricht, aber nicht mit dem Namen, den ich im Programm vorgebe und haben will.

So lautet mein VBA-Skript. Es soll die aktuell in Word geöffnete Datei ohne weitere Benutzereingriffe als PDF in den Pfad <PDFPfad$> unter dem Namen <PDFName$> speichern:

Code: [Auswählen]

Public Function PDFDruck(Optional OhneMsg As Boolean)
Dim Zwi$, PDFPfad$, PDFName$, pdfjob
PDFPfad$ = "C:\Zwi"
'Ermittelt den Namen des aktiven Dokuments:
Zwi$ = ActiveDocument.Name
If InStr(1, Zwi$, ".", vbTextCompare) > 1 Then
   PDFName$ = Mid(Zwi$, 1, InStr(1, Zwi$, ".", vbTextCompare) - 1)
Else
   PDFName$ = "Unbenannt"
End If

Set pdfjob = New PDFCreator.clsPDFCreator
With pdfjob
   If .cStart("/NoProcessingAtStartup") = False Then
      MsgBox "PDFCreator kann nicht initialisiert werden. Bitte beenden Sie die PDFCreator-Prozesse.", vbCritical + _
         vbOKOnly, "PrtPDFCreator"
      GoTo Ende
   End If
   .cOption("UseAutosave") = 1
   .cOption("UseAutosaveDirectory") = 1
   .cOption("AutosaveDirectory") = PDFPfad$
   .cOption("AutosaveFilename") = PDFName$
   .cOption("AutosaveFormat") = 0    '0 = PDF
   .cDefaultPrinter = "PDFCreator"
   .cPrinterStop = False
   .cClearCache
   ActiveDocument.PrintOut Background:=False
End With
'!!!!!!!!!!!!!!!!Wartet ab, bis fertig gedruckt ist:!!!!!!!!!!!!!!
Dim sleepTime, maxTime, c
sleepTime = 250
maxTime = 10
c = 0
Do While (pdfjob.cOutputFilename = "") And (c < (maxTime * 1000 / sleepTime))
  c = c + 1
  Sleep 200
Loop
'!!!!!!!!!!!!!!!Ende des Abwartens!!!!!!!!!!!!!!
Ende:
Zwi$ = pdfjob.cOutputFilename
pdfjob.cClose
Set pdfjob = Nothing
If Not OhneMsg Then
   If Len(Zwi$) > 0 Then
      MsgBox "Das Dokument wurde nach " & Zwi$ & " gespeichert.", vbInformation
   Else
      MsgBox "Beim Speichern als pdf ist ein Fehler aufgetreten!", vbCritical
   End If
End If
PDFDruck = Zwi$
End Function

Auch die anderen COM-Funktionen des Programms sind mir ein Buch mit sieben Rätseln, da die Funktionen nach meiner Ansicht sehr schlecht dokumentiert sind. Weiß jemand mehr? Anbei die "Dokumentation" und die Beispieldateien:

[(auto)bot]

Schau doch mal hier: DVD läuft unter Vista 64 aber nicht unter XP

[(auto)admin]

Vielleicht findet sich ja eine Antwort in folgenden Themen:

• DVD läuft unter Vista 64 aber nicht unter XP
• ICQ unter Vista
• Autohotkey - Skript für Abspielen von Sound (Programmieren)
• PDFCreator 0.9.9
• Wie erlernt man programmieren
• Windows 8 ist unsicher: China will eigenes Betriebssystem programmieren lassen

[Jean Raul]

Nachtrag: Ich habe festgestellt, daß es offensichtlich nur unter unserem heiß geliebten Vista nicht funktioniert! Unter Windows XP funktioniert es tadellos.. Ich quäle mich stundenlang mit etwas ab, was eigentlich völlig OK ist und in Minuten erledigt gewesen wäre, wenn man nicht Vista zu Hause hätte, und gottseidank nur zu Hause.

Warum haben wir nur alle Vista drauf? Es ist wirklich unübersehbar: Für PCs, die etwas leisten und nicht nur beim Gamen helfen sollen, also beim produktiven Arbeiten, ist Windows XP das einzig Wahre...

Wie bekomme ich es unter Vista zum Laufen?

[Master of Disaster]

... geht's vielleicht im Kompatibilitätsmodus für Windows XP ???

[Jean Raul]

Ob das bei einem (quasi-) Druckertreiber was hilft?

[MATAG]

also ich musste für meinen PDF CREATOR ne Viste fähige Version laden

[Master of Disaster]

Ob das bei einem (quasi-) Druckertreiber was hilft?

... Versuch macht klug.

[Jean Raul]

also ich musste für meinen PDF CREATOR ne Viste fähige Version laden

Ich habe die aktuellste Version, ladenfrisch von der Homepage...

[MATAG]

mhm, dammust du leider noch 7 Stunden warten .. dann bin ich an meiner Vista Kiste und habe auch einen PDF-PRinter.. dan versuch eich es mal bei mir

[Jean Raul]

Bin mal gespannt, wie es bei Dir läuft, Matag. Den obigen Code mußt Du nur in Deiner Normal.dot verfügbar machen und im VBA-Editor unter "Verweise" den PDFCreator einbinden.

Ich habe gesehen, daß das Programm wohl Probleme unter Vista hat und sich ggf. auch nicht mehr deinstallieren läßt:
http://cgi.zdnet.de/forum/viewtopic.php?t=7392

[MATAG]

mein lieber JR.. leider ging es mit meinem Bullzip PDF PRinter auch nicht....

[Jean Raul]

Nein, das kann nicht gehen. Dazu bräuchtest Du den PDFCreator (Link s. o.), nur der hat die passenden COM-Schnittstellen.

[MATAG]

also JR ich habe mir den PDF Creator runter geladen und auch installiert (leider war in deinem Link keine Setup.exe

unter Verweise habe ich ihn dann nicht gefunden aber ei sie da meinen BULLZIP. PDF Drucker konnte mit eingebunden werden.....

[Jean Raul]

Da ist die Setup.exe zum Download:
http://www.pdfforge.org/products/pdfcreator/download

[MATAG]

der is schon installiert 

[Jean Raul]

Dann verstehe ich aber nicht, was nicht funktioniert. Du mußt den Code im VBA-Editor von Word unter "NewMacros" pasten (s. Bild), unter Extras->Verweise "PDFCreator" aktivieren (s. Bild) und dann im aktuellen Word-Dokument das Makro mit Extras->Makros->Ausführen ausführen (s. Bild). Ggf. kannst Du auch, wenn Du willst, das Makro mit einem Button auf der Symbolleiste verknüpfen.

Wenn eine Sicherheitsfehlermeldung kommt, mußt Du Extras->Makros->Sicherheit auf "Niedrig" setzen. Außerdem habe ich den VBA-Code im Folgenden auf das Notwendigste vereinfacht um jede Fehlermöglichkeit auszuschließen. Im Übrigen habe ich beim Testen festgestellt, daß die Funktion Sleep bei mir an anderer Stelle deklariert war. Ich habe sie jetzt hier in den Code eingefügt.

Code: [Auswählen]

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMS As Long)

Public Sub PDFDruck()
Dim Zwi$, PDFPfad$, PDFName$, pdfjob
PDFPfad$ = "C:\Zwi"
'Ermittelt den Namen des aktiven Dokuments:
Zwi$ = ActiveDocument.Name
If InStr(1, Zwi$, ".", vbTextCompare) > 1 Then
   PDFName$ = Mid(Zwi$, 1, InStr(1, Zwi$, ".", vbTextCompare) - 1)
Else
   PDFName$ = "Unbenannt"
End If

Set pdfjob = New PDFCreator.clsPDFCreator
With pdfjob
   If .cStart("/NoProcessingAtStartup") = False Then
      MsgBox "PDFCreator kann nicht initialisiert werden. Bitte beenden Sie die PDFCreator-Prozesse.", vbCritical + _
         vbOKOnly, "PrtPDFCreator"
      GoTo Ende
   End If
   .cOption("UseAutosave") = 1
   .cOption("UseAutosaveDirectory") = 1
   .cOption("AutosaveDirectory") = PDFPfad$
   .cOption("AutosaveFilename") = PDFName$
   .cOption("AutosaveFormat") = 0    '0 = PDF
   .cDefaultPrinter = "PDFCreator"
   .cPrinterStop = False
   .cClearCache
   ActiveDocument.PrintOut Background:=False
End With
'!!!!!!!!!!!!!!!!Wartet ab, bis fertig gedruckt ist:!!!!!!!!!!!!!!
Dim sleepTime, maxTime, c
sleepTime = 250
maxTime = 10
c = 0
Do While (pdfjob.cOutputFilename = "") And (c < (maxTime * 1000 / sleepTime))
  c = c + 1
  Sleep 200
Loop
'!!!!!!!!!!!!!!!Ende des Abwartens!!!!!!!!!!!!!!
Ende:
Zwi$ = pdfjob.cOutputFilename
pdfjob.cClose
Set pdfjob = Nothing
If Len(Zwi$) > 0 Then
   MsgBox "Das Dokument wurde nach " & Zwi$ & " gespeichert.", vbInformation
Else
   MsgBox "Beim Speichern als pdf ist ein Fehler aufgetreten!", vbCritical
End If
End Sub