Postada em 19/08/2006 00:36 hs
estou retirando a .ocx do crystal 8.5
e trazendo para a versao 10 CRViewer
encontrei esse codigo na web, mas quais as referencias necessarias? alguem sabe?
Dim crApp As New CRAXDRT.Application
Dim crRpt1 As New CRAXDRT.Report
Dim crRpt2 As New CRAXDRT.Report
Dim crRptRouter As New ReportSourceRouter
Set crRpt1 = crApp.OpenReport(App.Path & "
elatorio
el1.rpt")
Set crRpt2 = crApp.OpenReport(App.Path & "
elatorio
el2.rpt")
crRptRouter.AddReport crRpt1
crRptRouter.AddReport crRpt2
crp2.ReportSource = crRptRouter
crp2.ViewReport
|
