Sending Output to Hell! (1 Viewer)

[mission2java_78]

I allow users to send output (reports) to pdf format using some code that deals with registry. We had purchased FinePrint pdfFactory to do the actual conversion. Some reports convert with no problem and I receive fine print's little dialog box on whether I want to save the pdf / email it / view it and so on. You can even see the dialog box showing that the report is printing to the pdf Distiller. The majority of the reports work fine..there are 2 reports where I see the dialog as to the report being converted BUT the pdfFactory dialog on whether to save / email / view the report never comes up. I dont know why and I cant tell what it could be. Anyone ever have problems such as this ?

Here is an example of the code:

Dim rptName As String

If Me.TabCtl1.Value = 0 Then
  
   If Me.frameProjects.Value = 1 Then
     'open issues report
     rptName = "rptFOPL816"
     ChangeToAcrobat 'MAKES pdf WRITER YOUR DEFAULT PRINTER
     'second argument for key value.  0 turns on the dialog box
     SetupPdfForPrint "FOPL816", 0
     DoCmd.OpenReport rptName, acViewNormal 'THIS IS THE REPORT YOU WANT TO PRINT TO A PDF
     
     ResetDefaultPrinter 'RETURNS YOUR ORIGINAL PRINTER AS DEFAULT
     ResetKeyValue 4     'reset the dialog box so it doesnt come on
     Exit Sub
  End If
  
  If Me.frameProjects.Value = 2 Then
  
    If Me.chkViewPortraitOrLandscape = True Then
        'Landscape report has True value for chk box
        rptName = "rptSOLLandscape"
    Else
        'Portrait report
        rptName = "rptSOL"
    End If
     ChangeToAcrobat 'MAKES pdf WRITER YOUR DEFAULT PRINTER
     SetupPdfForPrint "SOL", 0
     DoCmd.OpenReport rptName, acViewNormal 'THIS IS THE REPORT YOU WANT TO PRINT TO A PDF
     ResetDefaultPrinter 'RETURNS YOUR ORIGINAL PRINTER AS DEFAULT
     ResetKeyValue 4
     Exit Sub
  End If

  If Me.frameProjects.Value = 3 Then
     rptName = "rptServiceOrdersCurrentActiveTasks"
     ChangeToAcrobat
     SetupPdfForPrint "Service Orders Current Active Tasks", 0
     DoCmd.OpenReport rptName, acViewNormal
     ResetDefaultPrinter
     ResetKeyValue 4
     Exit Sub
  End If

Jon