Hallo zusammen,
ich habe ein Programm geschrieben, dass aus einer Datenbank PDF-Dateien druckt. Im Großen und Ganzen funktioniert das auch. Allerdings bekomme ich regelmäßig (etwa alle 3 Stunden) vom PDF-Creator folgende Fehlermeldung:
Error-Nr.: 53 (Datei nicht gefunden!)
Modul: modPDF
Procedure: GetPSHeader
Line: 50050
Gedruckt werden die Dateien mit folgendem Code:
Private Sub GeneratePDF(ByVal Filename As String, ByVal NewDirectory As String, ByVal NewFilenameWithoutExt As String)
Dim cConverter As clsPDFCreator
Dim cConverterOptions As clsPDFCreatorOptions
Set cConverter = New clsPDFCreator
Set cConverterOptions = New clsPDFCreatorOptions
Set cConverter.cOptions = cConverterOptions
'
' Check we can initialise Converter
'
cConverter.cStart , True
'If cConverter.cStart("/NoProcessingAtStartup") = False Then
' MsgBox "Can't Initiase PDF Converter", vbCritical, "Letter Generation Error"
' Exit Sub
'End If
'
With cConverter
.cOption("UseAutoSave") = 1
.cOption("UseAutoSaveDirectory") = 1
.cOption("AutoSaveDirectory") = NewDirectory
.cOption("AutoSaveFileName") = NewFilenameWithoutExt & ".pdf"
.cOption("AutoSaveFormat") = 0 ' 0 = pdf
.cSaveOptions
.cClearCache
'Do Until cConverter.cCountOfPrintjobs = 1
'My.Application.DoEvents.DoEvents()
'Loop
.cPrinterStop = False
.cDefaultPrinter = "PDFCreator"
.cPrintFile Filename
End With
lbReport.AddItem CStr(DateTime.Now) & " - " & NewFilenameWithoutExt & ".pdf created"
Do Until cConverter.cCountOfPrintjobs = 0
'My.Application.DoEvents.DoEvents()
Loop
cConverter.cClose
Set cConverterOptions = Nothing
Set cConverter = Nothing
End Sub
Diese Prozedur wird für jede Datei neu aufgerufen.
Kann mir bitte jemand sagen, was das Problem ist bzw. wie ich das lösen kann?
Danke schonmal!
LG,
Hexy