Crystal abre e fecha sem que dê tempo de ler o relatório

Question

Estou com um problema com o Crystal Reports.
Tenho o sp3 (o último) do crystal v. 8.5 e o uso o visual studio vb6 sp5
O meu programa ainda não está em produção e, até mesmo na máquina onde ele está sendo desenvolvido o crystal abre e fecha automaticamente, sem que dê tempo de visualizar o relatório.
Fazendo uma execução passo a passo, percebi que o relatório fecha assim que o procedimento que o chama termina.
A solução do package (http://social.msdn.microsoft.com/Forums/pt-BR/vsvbasicpt/thread/c48d5e65-51ca-4e23-86cf-93eb08eaf4e4) não faz sentido pra mim, pq o programa ainda não está em produção.
Então eu gostaria de saber se alguém pode me ajudar.

  'continuacao da rotina...



  oRel.ReportFileName = Caminho + "\relatorios.rpt"

  oRel.SelectionFormula = Sql

   

  oRel.WindowState = 2

  oRel.Destination = 0  'Video

  oRel.Action = 1



  Exit Sub

Answer 1

Ola !!!

 Veja se isso lhe ajuda

oRel.Destination = crptToWindow 'caso seja na tela
oRel.WindowState = crptMaximized 'Maximizado

ou
oRel.Destination = crptToPrinter 'Direto pra impressora





Espero que lhe ajude

Answer 2

Olá amigo,
eu faço isso, mas sem usar as flags:

  Rel.WindowState = 2
  Rel.Destination = 0  
  Rel.Action = 1

tentei usando as flags "crptToWindow", ...
mas continuou com o mesmo problema.

de qualquer forma, obrigado pea ajuda.

Answer 3

Entendi

Talves o que eu diga te de uma luz mesmo q naum seja a solução

Primeiro teste:
 Num projeto separado
coloque somente um botao e dentro dele o seguinte
Dim sSql As String
sSql = "Monto minhas query"
With CrystalReport1
    CrystalReport1.ReportFileName = App.Path & "\SeuRpt.rpt"
    .WindowState = crptMaximized
    .Destination = crptToWindow
    .ReportSource = 0
    .SQLQuery = sSql
   
End With
    CrystalReport1.Action = 1

Se assim ele continuar  com o problema ai é problema(hehehe)

Segundo:  Se vc ta usando um form pro componente faça o seguinte:
Private Sub Form_Unload(Cancel As Integer) ' breakpoit aqui
 'desse jeitinho mesmo para que o form não feche
'Coloque o breakpoit na entrada
'o rpt tem q esta visivel ai é so achar onde ta fechando o form
End Sub

Answer 4

consegui resolver o problema.
O crystal fechava quando a execução da subrotina acabava, pq eu não havia declarado o objeto globamente.

Option Explicit
Private oRel As Object

aí deu td certo.

Obrigado pela ajuda. ;)