Manipular el Crystal Report
Necesito programar un botón en un formulario VB para exportar un reporte desarrollado en CrystalReport 8. La idea es no utilizar el botón Exportar que viene incluido en el visor de Crystal. ¿Cómo puedo hacer esto?
1 Respuesta
Respuesta de belford
1
Aquí esta el código.
Pero antes debes poner el objeto de crystal report en visual
Botón derecho sobre las herramientas y ahí crystal report.
With Crystal1 (asi se llama el objeto)
(limpio variables)
.Connect = ""
.ReportFileName = ""
.Formulas(0) = ""
.StoredProcParam(0) = ""
.StoredProcParam(1) = ""
.Reset
(La conexión con sql)
.Connect = "dsn=server2000; uid=mario;pwd=guitarra;dsq=bd_salud"
(Para la pantalla del reporte se maximice)
.WindowState = crptMaximized
(La dirección del reporte)
.ReportFileName= "\\Server2000\proyectos\Proyecto Salud\salud\Rpt\Informe_de_Liquidacion.rpt"
(El nombre de la ventana del reporte)
.WindowTitle = "Informe de Liquidación"
(Una fórmula o variable que mando desde vb)
.Formulas(0) = "UF=" & vAlOr_DiArIo_Uf
(los parametros para filtrar el procedimiento almacenado)
.StoredProcParam(0) = FUNC_NUM_SQL(Txt_Rut.Text)
.StoredProcParam(1) = Id_Liquidacion
(Ejecuta el reporte y lo muestra)
.Action = 1
Cualquier cosa me avisas.
Pero antes debes poner el objeto de crystal report en visual
Botón derecho sobre las herramientas y ahí crystal report.
With Crystal1 (asi se llama el objeto)
(limpio variables)
.Connect = ""
.ReportFileName = ""
.Formulas(0) = ""
.StoredProcParam(0) = ""
.StoredProcParam(1) = ""
.Reset
(La conexión con sql)
.Connect = "dsn=server2000; uid=mario;pwd=guitarra;dsq=bd_salud"
(Para la pantalla del reporte se maximice)
.WindowState = crptMaximized
(La dirección del reporte)
.ReportFileName= "\\Server2000\proyectos\Proyecto Salud\salud\Rpt\Informe_de_Liquidacion.rpt"
(El nombre de la ventana del reporte)
.WindowTitle = "Informe de Liquidación"
(Una fórmula o variable que mando desde vb)
.Formulas(0) = "UF=" & vAlOr_DiArIo_Uf
(los parametros para filtrar el procedimiento almacenado)
.StoredProcParam(0) = FUNC_NUM_SQL(Txt_Rut.Text)
.StoredProcParam(1) = Id_Liquidacion
(Ejecuta el reporte y lo muestra)
.Action = 1
Cualquier cosa me avisas.
