1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

VB6 e Crystal Reports

Discussão em 'Programação' iniciada por silencept, 24 de Maio de 2008. (Respostas: 8; Visualizações: 3133)

  1. silencept

    silencept Power Member

    Boas a minha duvida é a seguinte

    eu tenho este código no botão para chamar o relatório
    tenho estas variaveis defenidas no modulo

    no Módulo tenho o seguinte

    Código:
    '****Esta a a Função de impressão para o REPORT VIEW CONTROL da Seagate
    Public Sub Imprimir(Relatorio As String)
         Set Report = Aplicacao.OpenReport(Relatorio)
         With frmcrystal
               .CRViewer.ReportSource = Report
               .CRViewer.ViewReport          '*** O Relatorio será Visualizado entes de ser Impresso
               .Show
         End With
    End Sub
    e tenho um formulário que tem um controlo CRViewer9

    agora a minha questão é esta, como posso chamar o relatório mas com parametros?

    queria por exemplo digitar o nome e ele chama o relatório e la só aparece o nome do cliente e todas as suas informações...

    Agradeço a Ajuda

    Obrigado
     
  2. bubu.mei

    bubu.mei Power Member

    experimenta isto:

    .SelectionFormula = "{<nome_do campo da tabela} = <nome do cliente que digitares>


    n tenho a certeza se funciona
     
  3. silencept

    silencept Power Member


    infelizmente n da amigo...
    não conheces outra forma de o fazer?
     
  4. bubu.mei

    bubu.mei Power Member

    eu fiz desta forma e deu. mas o codigo nao esta igual ao teu, deve ser por isso que nao da.
     
  5. silencept

    silencept Power Member

    como fizes-te bubu.mei?
     
  6. bubu.mei

    bubu.mei Power Member

    Report.DiscardSavedData = True
    Report.Destination = crptToWindow
    Report.CopiesToPrinter = 1
    Report.WindowTitle = "<titulo do relatorio>"
    Report.WindowState = crptMaximized
    Report.ReportFileName = App.Path & "<caminho do relatorio>"
    Report.SelectionFormula = "{<campo da tabela>} = <variavel a comparar>
    Report.Action = 1

    nao te esqueças de adicionar o componente do crystal report
     
  7. silencept

    silencept Power Member

    pois...eu tb tenho esse código, mas tenho de criar os relatórios com o crystal 4, não consigo com o crystal 8.5...ele diz que não consegue encontrar o relatório
     
  8. bubu.mei

    bubu.mei Power Member

    entao deve ser por isso que nao da com este codigo. eu criei com o crystal 8.5
     
  9. silencept

    silencept Power Member

    e tens de meter alguma coisa no crystal?
    tipo parametros, campos de formulas?
     

Partilhar esta Página