Cita:
Iniciado por lop7
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...
hola amigo estoy implementado este codigo que has posteado pero no puedo adicionar las dos primeras lineas de codigo: Dim crystal As CRAXDRT, tampoco la otra no me la reconce yo estoy utilizando crystal reports XI y visual studio 2010 y agregue a mi proyecto los siguientes archivos: CRVIEWER y CRAXDDRT, estoy haciendo algo mal, por favor ayudame, gracias