hola...
mira pana asi le funciono a "ENEA" yo no lo he probado pero intentalo... de todas maneras dale una buscadita al foro coloca "crystal report" y te aparecera informacion al respecto
Código:
Dim crystal As CRAXDRT.Application
Dim Report As CRAXDRT.Report
CRViewer.DisplayBorder = False
CRViewer.DisplayTabs = False
CRViewer.EnableDrillDown = False
CRViewer.EnableRefreshButton = False
RS.Open "Select factura.*, detfactura.*, cliente.Empresa, cliente.NIF, cliente.Direccion_Fiscal, cliente.Poblacion_Fiscal, cliente.CP_Fiscal from factura, detfactura, cliente where cliente.Id=factura.Id_Cliente and factura.Id_Factura=detfactura.Id_factura and factura.Id_Factura=" & Id, Cxn, adOpenStatic, adLockReadOnly
Set crystal = New CRAXDRT.Application
Set Report = crystal.OpenReport(App.Path & "\factura.rpt")
Report.DiscardSavedData
Report.Database.SetDataSource RS
CRViewer.ReportSource = Report
CRViewer.ViewReport
Do While CRViewer.IsBusy
DoEvents
Loop
CRViewer.Zoom 100
RS.Close
saludo...
nos vmos...