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