Ver Mensaje Individual
  #7 (permalink)  
Antiguo 30/11/2005, 14:04
Avatar de lop7
lop7
 
Fecha de Ingreso: junio-2005
Ubicación: portuguesa (Venezuela)
Mensajes: 187
Antigüedad: 19 años, 9 meses
Puntos: 1
llamar a un reporte usando crystal 11

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...
__________________
A quien dices un secreto le entregas tu libertad :si: