Informe con el CRViewer
Tengo el código siguiente para lanzar un reporte:'Declaramos los objetos
Dim RepApp As New CRAXDRT.Application
Dim repRep As CRAXDRT.Report
'Asignamos el report
Set repRep = RepApp.OpenReport(App.Path & "ReportesPólizas.rpt")
'Asignamos al visor el objeto report
CRViewer1.ReportSource = repRep
'Lo visualizamos
CRViewer1.ViewReport
Como le Digo que mis bases que usa el informe tienen contraseña?.
Saludos
Dim RepApp As New CRAXDRT.Application
Dim repRep As CRAXDRT.Report
'Asignamos el report
Set repRep = RepApp.OpenReport(App.Path & "ReportesPólizas.rpt")
'Asignamos al visor el objeto report
CRViewer1.ReportSource = repRep
'Lo visualizamos
CRViewer1.ViewReport
Como le Digo que mis bases que usa el informe tienen contraseña?.
Saludos
