Buenos Dias
Este Código es el uso para invocar un Reporte de Cristal Report 8.0,
Cita: ReporteCR.Reset
ReporteCR.WindowTitle = Nombre_Svr
ReporteCR.Connect = vConnectString
ReporteCR.WindowMaxButton = True: ReporteCR.WindowMinButton = True
ReporteCR.WindowShowNavigationCtls = True: ReporteCR.ProgressDialog = True
If OptEstado(0).Value = True Then ' Con parametros
ReporteCR.ParameterFields(0) = "varTipo;" & vTipo & ";true"
ReporteCR.ParameterFields(1) = "vTipoCade;" & Trim(Left(CboTipoPer.Text, 50)) & ";true"
ReporteCR.ParameterFields(2) = "vFecIni;" & Trim(varFecIni) & ";true"
ReporteCR.ParameterFields(3) = "vFecFin;" & Trim(varFecFin) & ";true"
ReporteCR.ReportFileName = App.Path & "\RepAsistenciaOn.rpt"
ElseIf OptEstado(1).Value = True Then ' sin parametros
ReporteCR.ReportFileName = App.Path & "\RepAsistenciaOf.rpt"
End If
ReporteCR.WindowShowPrintSetupBtn = True
ReporteCR.Destination = crptToWindow
ReporteCR.WindowState = crptMaximized
ReporteCR.PrintReport
Atte
Jorge Diaz