Ich Convert2PDF in eines meiner Scripte eingebaut und möchte damit aus einer CSV Datei mehrere PDFS drucken. Das erste PDF wird auch erstellt, allerdings bleibt danach der PDF Creator "stehen" und druckt nicht weiter. In Folge kommt es zu einem Timeout und das Script bricht ab.
Ingesamt sollen zwischen 200 und 30.000 PDF's erstellt werden. Das Problem besteht scheinbar nur unter Windows XP. Unter Windows 7 klappt es ohne Probleme.
Set fso2 = CreateObject("Scripting.FileSystemObject")
Set pdfJob = CreateObject("PDFCreator.clsPDFCreator")
With pdfJob
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = PDFPath
.cOption("AutosaveFormat") = 0 'Pdf-Format
.cClearCache
End With
If pdfJob.cStart("/NoProcessingAtStartup") = False Then
MsgBox "PDFCreator konnte nicht gestartet werden!.", vbExclamation, "Fehler"
End If
for i = 5 to AnzahlZeilen
Felder = Split(Zeilen(i), Delim)
Set DateiNeu = fso.CreateTextFile(TMPFile)
Content = trim(head(2)) & ":" & chr(9) & chr(9) & Felder(2) & chr(13) & _
trim(head(3)) & ":" & chr(9) & chr(9) & Felder(3) & chr(13) & _
trim(head(4)) & ":" & chr(9) & chr(9) & Felder(4) & chr(13) & _
trim(head(5)) & ":" & chr(9) & chr(9) & Felder(5) & chr(13) & _
trim(head(6)) & ":" & chr(9) & chr(9) & Felder(6) & chr(13) & _
trim(head(7)) & ":" & chr(9) & chr(9) & Felder(7) & chr(13) & _
trim(head(8)) & ":" & chr(9) & chr(9) & Felder(8) & chr(13) & _
trim(head(9)) & ":" & chr(9) & Felder(9) & chr(13) & _
trim(head(10)) & ":" & chr(9) & Felder(10) & chr(13) & _
trim(head(11)) & ":" & chr(9) & chr(9) & Felder(11) & chr(13) & _
trim(head(12)) & ":" & chr(9 & chr(9)) & Felder(12) & chr(13) & _
trim(head(13)) & ":" & chr(9) & chr(9) & Felder(13) & chr(13) & _
trim(head(14)) & ":" & chr(9) & chr(9) & Felder(14) & chr(13) & _
trim(head(15)) & ":" & chr(9) & chr(9) & Felder(15) & chr(13) & _
trim(head(16)) & ":" & chr(9) & Felder(16)
DateiNeu.Write Content
DateiNeu.Close
PDFPath = fso.GetParentFolderName(TMPFile) & "\\PDF Files\"
pdfJob.cOption("AutosaveFilename") = Felder(h)
pdfJob.cPrintfile cStr(TMPFile)
FileList = FileList & chr(13) & Felder(h)
fso.DeleteFile TMPFile
next
pdfJob.cClose