Tengo varios reportes armados con Crystal 7. Necesito que VB6 les pase la ubicación de la DB (app.path) al reporte, para que sin importar donde se encuentre instalado el sistema igualmente encuentre la base de datos.
Este es el codigo que uso para abrirlos:
Reporte es una variable que utilizo para pasar el nombre del rpt, así uso un solo codigo para todos los reportes.
Código:
Muchas gracias. Private Sub Form_Load() Dim crApp As New CRAXDRT.Application Dim crReport As New CRAXDRT.Report Me.Caption = "Reporte de " & Reporte 'Abrir el reporte Screen.MousePointer = vbHourglass Set crReport = crApp.OpenReport(App.Path & "\Reports\" & Reporte & ".rpt", 1) CRViewer1.ReportSource = crReport CRViewer1.DisplayGroupTree = False CRViewer1.ViewReport Screen.MousePointer = vbDefault End Sub