RE:error con crystal reports xi en visual basic
Aqui tu solucion, carga desde las librerias o en archivos de programa\archivos comunes\bussines object\3.0\active library o algo asi
crviewer11.dll como control
la referencia craxtddrt.dll, carga la qu tiene doble "dd"
y creas una clase como esta:
Public Sub ReporteO(PMG As Variant, Formula As String, Titulo As String, Im As Integer)
Dim crApp As New CRAXDDRT.Application
Dim crRep As CRAXDDRT.Report
Dim ofrmRep As New FrmReporte
Set crRep = crApp.OpenReport(PMG, 1)
ofrmRep.Caption = Titulo
ofrmRep.CrViewer.ReportSource = crRep
ofrmRep.CrViewer.DisplayGroupTree = False
ofrmRep.CrViewer.ViewReport
Set crRep = Nothing
Set crApp = Nothing
ofrmRep.Show
Set ofrmRep = Nothing
End Sub
y lo llamas de la siguiente manera:
desde cualquier formulario
Me.Hide
Call ReporteO((Ruta & ":\ssoporte\Sop067.ajs"), " ", "Reporte de Locales", 0)
Exit Sub
no olvides crear un formulario llamado en este ejemplo frmreporte.frm
que contiene el control crviewer