Hello,
I don't get why -> File -> 'Printer stop F2' in Printermonitor is selected randomly ...
Same behaviour as described here http://de.pdfforge.org/forum/help/8650-print-queue-gets-paused but the difference is that I have to deselect Printer stop F2 ...
I don't know what causes the Printer stop to be selected in the middle of the converting process and set the status to "waiting" ...
oPDFC.cOption("PrinterStop") = 0 didn't help ...
When my routine starts the printermonitor icon is showing up in the taskbar of windows ( XP ). Is that OK? I thought the process might run in the background.
Greetz
Tom
Here's a excerpt of my coding:
Set oPDFC = CreateObject("PDFCreator.clsPDFCreator")
oPDFC.cStart("/NoProcessingAtStartup")
oPDFC.cOption("UseAutosave") = 1
oPDFC.cOption("UseAutosaveDirectory") = 1
oPDFC.cOption("AutosaveFormat") = 0 ' 0=PDF, 1=PNG, 2=JPG, 3=BMP, 4=PCX, 5=TIFF, 6=PS, 7= EPS, 8=ASCII
oPDFC.cOption("DontUseDocumentSettings") = 1
oPDFC.cOption("PrinterStop") = 0
oPDFC.cOption("RemoveSpaces") = 1
DefaultPrinter = oPDFC.cDefaultprinter
oPDFC.cDefaultprinter = BasicSetupArchive.SetupPDFWriter(0)
oPDFC.cClearCache
Set fldr = fso.GetFolder(strAttachmentPath)
ForAll f In fldr.files
filename=fso.GetBaseName(f.Name)
extension=fso.GetExtensionName(f.Name)
If IsElement(lstExtConvWhiteList("." & LCase(extension))) Then
isPrintable = oPDFC.cIsPrintable(strAttachmentPath & "\\" & f.name )
If isPrintable = true Then
oPDFC.cOption("AutosaveDirectory") = strAttachmentPath
oPDFC.cOption("AutosaveFilename") = filename
printfile = strAttachmentPath & "\\" & f.name
oPDFC.cPrintfile(printfile)
oPDFC.cPrinterStop = False
Do Until oPDFC.cCountOfPrintjobs = 0
DoEvents
Loop
lstDelFiles(filename) = printfile
End if
End If
End ForAll
ForAll m in lstDelFiles
If m = "" Then Exit forall
fso.deleteFile m
End ForAll
Erase lstDelFiles
oPDFC.cDefaultprinter = Defaultprinter
Set fls = nothing
Set fldr = Nothing
Set fso = Nothing
Set oPDFC = Nothing