CRUYTAL REPORTS - MIGRANDO DA OCX PARA VIEWER

ALVARO.CAMPELO 01/10/2004 14:22:28
#44234
Gostaria de saber como fazer para migrar da OCX para o Viewer, no Cystal 8.5.
Ou seja, passar os valores para as fórmulas.

Eis um trexo do meu código mostrando como uso a ocx para enviar um valor para uma fórmula.

frmRelatorios.OCXRelatorio.Formulas(1) = "Nome = '" & varNome & "'"
USUARIO.EXCLUIDOS 01/10/2004 15:23:20
#44254 Resposta escolhida
Eu uso esse código para gerar relatório

CrCracha.Refresh
Dim Relatorio As CRAXDRT.Report
Dim miCRApp As New CRAXDRT.Application
Set Relatorio = miCRApp.OpenReport(App.Path & "\cracha.rpt")
Relatoriot.RecordSelectionFormula = "{funcionario.matricula}= '" & txtmatricula.Text & "'"

With CrCracha
.ReportSource = Relatorio
.ViewReport

While .IsBusy
DoEvents
Wend
.Zoom "100"
.Visible = True
.Refresh
End With
Set miCRApp = Nothing
Set miReport = Nothing
espero que ajude
Tópico encerrado , respostas não são mais permitidas
Voltar