en de fr

Submitted by Naegle on 2 September, 2009 - 17:36

I'm using the PDFCreator COM object in a VB.NET service.  I had to do a standard installation to get the PDFCreator working, but it does create the .tif files now.  However, now when I try to do  _PDFCreator.cClose()  the application appears to just hang.  Has anyone ran into this before? 

Any help would be appreciated.

Thanks!

 1.)  Old content has been

 1.)  Old content has been reposted in the new forum.  Try your seach again.

 2.)  I don't know much about VB.NET,. but I was running into a similar problem with Python which seemed to work much better when I wrapped up the entire functions inside another class.  basically I had to remove the PDFCreator references from any public function so that they were destroyed upon completing.  When I was testing the code I always had trouble, once I integrated it into a larger program things started working better, but not perfectly as expected :-(

 Yes, the hang-on-cClose

 Yes, the hang-on-cClose problem is the major one left for us. We are actually writing settings to the registry directly instead of using the COM interface, and that works fine. 

 

If we close without a delay prior, it reliably hangs. If we wait, as now, 2000 milliseconds it seems to hang "only" about 1 times out of 10.

Hello, the old content is not

Hello,

the old content is not lost, you can find it here:

http://www.pdfforge.org/files/old_forum/index.html

(as stated in the new forums thread)

kind regards,
Philip

This is a common problem. 

This is a common problem.  There were a few suggestions in the old forums, which had varying results for different people.  I posted a solution that I thought would work in all situations - unfortunately, I didn't get a chance to see if anyone commented on my solution before the forums were lost.

I don't remember exactly what I found as the "magic bullet" that fixed the problem.

I added a few DoEvents and some wait timers ...  I think specifically it was the placement of a DoEvent (VB6) that seemed to resolve the issue. 

Sorry I can't be more help.  I had a pretty good write up about this problem before the Forums got fragged.

Here is my code for Word 2003 VBA COM:

 

Private WithEvents PDFCreator1 As PDFCreator.clsPDFCreator

Private FileSaved As Boolean, ReadyState As Boolean, DefaultPrinter As String, LoopCount As Long

Public Sub SaveWholeDocumentAsPDF(Filename As String)
    FileSaved = False
    If Len(ActiveDocument.Path) = 0 Then
        MsgBox "Please save the document first!", vbExclamation
        Exit Sub
    End If
    Set PDFCreator1 = New clsPDFCreator
    With PDFCreator1
        If .cStart("/NoProcessingAtStartup") = False Then
        MsgBox "Can't initialize PDFCreator."
    Exit Sub
    End If
        DefaultPrinter = ActivePrinter
        SetPrinter "PDFCreator"
    End With

    With PDFCreator1
        .cOption("UseAutosave") = 1
        .cOption("UseAutosaveDirectory") = 1
        .cOption("AutosaveDirectory") = ActiveDocument.Path
        .cOption("AutosaveFilename") = Filename
        .cOption("AutosaveFormat") = 0                            ' 0 = PDF
        .cOption("Papersize") = "Letter"
        .cClearCache
        DoEvents
        ActiveDocument.PrintOut Background:=False
        DoEvents
        .cPrinterStop = False
    End With

    SetPrinter DefaultPrinter
    LoopCount = 0
    Do Until FileSaved = True
        If LoopCount >= 100 Then 'End loop after approx 25 seconds
            MsgBox "Loop has run for more than 25 seconds - Cannot close PDFCreator"
            PDFCreator1.cPrinterStop = True
            PDFCreator1.cClearCache
            Exit Do
        End If
        DoEvents
        Sleep 250
        LoopCount = LoopCount + 1
    Loop
    DoEvents 'Just to be ABSOLUTELY sure that PDFCreator is ready to close!
    Sleep 250 'Wait another 1/4 of a second
    PDFCreator1.cClose
    Set PDFCreator1 = Nothing
    Sleep 250
    DoEvents
End Sub

Private Sub PDFCreator1_eError()
    MsgBox "ERROR [" & PDFCreator1.cErrorDetail("Number") & "]: " & PDFCreator1.cErrorDetail("Description")
End Sub

Private Sub PDFCreator1_eReady()
    'File was saved
    FileSaved = True
    PDFCreator1.cPrinterStop = True
End Sub

Private Sub SetPrinter(Printername As String)
    With Dialogs(wdDialogFilePrintSetup)
        .Printer = Printername
'        .Printer.PaperSize = wdPaperLetter
        .DoNotSetAsSysDefault = True
        .Execute
    End With
End Sub