bue use un codigo ke hay en las FAQs pero no me fucniona..alguien mepuede mostrar un pekeño ejemplo por favor ?
salu2
| ||||
![]() Buenos Dias Este Código es el uso para invocar un Reporte de Cristal Report 8.0, Cita: AtteReporteCR.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 Jorge Diaz
__________________ Creo que todas las cosas suceden por algo, no es eso que los demas llaman 'Destino'. Definitivamente Dios no juega a los dados... |