Alle PDFs eines Ordners zu einem PDF per Com-Interface verbinden

@je77 wrote:

Hallo,

ich bin ein Neuling in der Programmierung mittels COM-Interface des PDFCreator.

Mein langfristiges Ziel ist es alle PDF-Dateien eines Ordners an die Queue als Printjobs zu senden und diese dann zu einem PDF zu verbinden.

Um das zu verstehen würde ich gerne ein VBScript schreiben, dass alle PDFs des Ordners (pfad="D:\test") als Printjobs an die PDFCreatorQueue sendet.

Dim objFSO,oFile,pfad,w,PDFCreatorQueue

Set objoFSO = CreateObject("Scripting.FileSystemObject")

PDFCreatorQueue= CreateObject("PDFCreator.JobQueue")
PDFCreatorQueue.Initialize

pfad = "D:\test"

For Each oFile In objoFSO.GetFolder(pfad).Files
'soll Druckaufträge senden
'es soll 5 Sekunden gewartet werden, falls das nicht reicht dann wird die Wartezeit um 5 Sekunden verlängert.
w=5
Do until job.IsSuccessful
If (PDFCreatorQueue.WaitForJob(w)) Then
WScript.Echo "Druckauftrag war rechtzeitig."
Else
WScript.Echo"Druckauftrag kam nicht an."
w=w+5
End If
job=PDFCreatorQueue.NextJob
job.SetProfileByGuid("DefaultGuid")
job.ConvertTo(pfad & oFile)
loop

Next

Set oFSO = Nothing

Wie dem Code anzumerken ist, bin ich noch etwas durcheinander...

Vielleicht kann mir jemand helfen - darüber würde ich mich sehr freuen.

Viele Grüße,
je77

Posts: 1

Participants: 1

Read full topic