There is no printer output when using the PrintOut method

Question

I have a VB6 app with CR XI, and a customer found a situation that when printing a report directly to the printer using the PrintOut method, there is no printer output or error message.
Some reports using the same code print normally, but a report that is preceded by another print call, presents this behavior.
And when the output is directed to the screen, we can see the report.
Could someone give me an idea of what is the problem?
Thanks,
Isis
SP - Brazil
The code used is below:
                   Set rpt = applic.OpenReport(App.Path & "SEFoto" + TipoRPT + ".rpt")
                   rpt.FormulaSyntax = crCrystalSyntaxFormula
                   rpt.FormulaFields.GetItemByName("Empresa").Text = "'" + Company + "'"
                   rpt.FormulaFields.GetItemByName("Idioma").Text = "'" + Idioma + "'"
                   rpt.FormulaFields.GetItemByName("Versao").Text = "'" + Versao + "'"
                   ' ... Some lines to compose the selection formula
                   rpt.RecordSelectionFormula = Cond
                   ' To evaluate the image length:
                   Arq = rsTMP3!FT_Arquivo
                   ImageScaling = FatorDeReducao(Arq, "F")
                   ' To reduce the image length:
                   AchouOLE = False
                   For Each oSection In rpt.Sections
                       For Each oObject In oSection.ReportObjects
                           If oObject.Name = "PictureFoto" Then
                              Set oOleObject = oObject
                              AchouOLE = True
                              Exit For
                           End If
                       Next oObject
                       If AchouOLE Then Exit For
                   Next oSection
                   With oOleObject
                        .Suppress = True
                        .XScaling = ImageScaling    ' 0.5 = 50%, 1 = 100%
                        .YScaling = ImageScaling
                        .Suppress = False
                   End With
                   Aguarde.Show 1
                   If DestinoRel = 9 Or DestinoRel = 1 Then ' Padrão ou impressora
                      rpt.PrintOut True              ' <<<---- Here using true or false nothing happens
                   Else
                      PrintRPTtela rpt, "Fotos"   ' <<<--- Here it works fine
                   End If

Answer 1

Hi Isis,
Not sure if you have applied any service Packs to CR? If please do so and test again. Then you can upgrade to CR XI R2 for free, use your XI Keycode and download Service Pack 4 from this link:
https://smpdl.sap-ag.de/~sapidp/012002523100011802732008E/crxir2_sp4_full_build.exe
You'll find the distribution files for your app also from that same download area.
If you don't want to upgrade to XI R2 then download all patches from XI and test again. This issues rings a bell that it may have been fixed.
Thank you
Don