VB6 e Crystal Reports

[silencept]

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

Public Aplicacao As New CRAXDRT.Application
Public Report As New CRAXDRT.Report

Imprimir App.Path & "\Clientes.RPT"

no Módulo tenho o seguinte

'****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

 

[bubu.mei]

experimenta isto:

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


n tenho a certeza se funciona

 

[silencept]

experimenta isto:

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


n tenho a certeza se funciona

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

 

[bubu.mei]

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

 

[silencept]

como fizes-te bubu.mei?

 

[bubu.mei]

como fizes-te bubu.mei?

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

 

[silencept]

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

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

 

[bubu.mei]

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

 

[silencept]

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

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