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

  • Pergunta

  • 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
    
    
    segunda-feira, 4 de janeiro de 2010 13:58

Respostas

  • 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. ;)
    • Marcado como Resposta vs06 segunda-feira, 8 de março de 2010 12:23
    segunda-feira, 8 de março de 2010 12:23

Todas as Respostas

  • 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

    terça-feira, 2 de fevereiro de 2010 16:16
  • 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.
    quinta-feira, 18 de fevereiro de 2010 13:57
  • 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

    quinta-feira, 18 de fevereiro de 2010 15:11
  • 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. ;)
    • Marcado como Resposta vs06 segunda-feira, 8 de março de 2010 12:23
    segunda-feira, 8 de março de 2010 12:23