Error-Nr.: 53 (Datei nicht gefunden)

PDFCreator PDFCreator German
1

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