Exportar con V.B. 6 y Crystal 10
Publicado por Vicente (1 intervención) el 20/02/2007 17:31:20
tengo el siguiente codigo de un reporte en V.B. 6 con Crystal 10 mediante ODBC que me sale ya bien PERO necesito exportar a Excel el reporte, no lo puedo hacer mediante un query pues se hizo desde crystal para agrupar y no mostrar el detalle, si alguien me pudiera decir como hacerlo, gracias de antemano
p.d. en las versiones anteriores de C.R. trae un boton para exportar no se si se por codigo se puede agregar algo asi en la version 10, vi tambien que en el reporte trae como exportarlo pero necesito hacerlo por CODIGO.
mi codigo es el siguiente:
Set CrxRptR = CrxApplnR.OpenReport(App.Path & "\Reportes\03635.rpt")
CrxApplnR.LogOnServer "ODBC.DLL", "consulta", "ESTO", "sa", "esto79" '
CrxRptR.DiscardSavedData
CARV.ReportSource = CrxRptR
For i = 1 To CrxRptR.Database.Tables.Count
CrxRptR.Database.Tables(i).SetLogOnInfo "est01pdc79", "ESTO", "sa", "esto79"
Next i
CARV.p
CARV.ViewReport
p.d. en las versiones anteriores de C.R. trae un boton para exportar no se si se por codigo se puede agregar algo asi en la version 10, vi tambien que en el reporte trae como exportarlo pero necesito hacerlo por CODIGO.
mi codigo es el siguiente:
Set CrxRptR = CrxApplnR.OpenReport(App.Path & "\Reportes\03635.rpt")
CrxApplnR.LogOnServer "ODBC.DLL", "consulta", "ESTO", "sa", "esto79" '
CrxRptR.DiscardSavedData
CARV.ReportSource = CrxRptR
For i = 1 To CrxRptR.Database.Tables.Count
CrxRptR.Database.Tables(i).SetLogOnInfo "est01pdc79", "ESTO", "sa", "esto79"
Next i
CARV.p
CARV.ViewReport
Valora esta pregunta
0