Visualizacion report Crystal Report
Publicado por zimm (1 intervención) el 18/05/2009 18:46:02
Hola.
Tengo un report hecho con Crystal Reports y lo llamo desde un programa hecho con Visual Basic 6. Tengo un formulario con un botón 'Imprimir' que lo que hace es llamar a otro formulario donde tengo el control para mostrar el report por pantalla. La primera vez que muestro el report no hay problema. El problema surge cuando lo cierro y lo llamo una segunda vez, entonces me da un error de 'la memoria no se puede "read"' y me cierra la aplicación del todo.
El código que tengo en este formulario es:
Private Sub Form_Load()
Dim reporte As New CRAXDDRT.Report
Dim crystal As New CRAXDDRT.Application
CrystalReport1.DataFiles(0) = "c:REGSOCPROFREGSOCPROF.MDB"
Set reporte = crystal.OpenReport("c:REGSOCPROFhojaregistral.rpt")
reporte.RecordSelectionFormula = "{HOJAS.CODHOJA}=" & FORM_DATOS.HOJAACTUAL
CrystalActiveXReportViewer1.ReportSource = reporte
CrystalActiveXReportViewer1.ViewReport
Set reporte = Nothing
Set crystal = Nothing
End Sub
Tengo un report hecho con Crystal Reports y lo llamo desde un programa hecho con Visual Basic 6. Tengo un formulario con un botón 'Imprimir' que lo que hace es llamar a otro formulario donde tengo el control para mostrar el report por pantalla. La primera vez que muestro el report no hay problema. El problema surge cuando lo cierro y lo llamo una segunda vez, entonces me da un error de 'la memoria no se puede "read"' y me cierra la aplicación del todo.
El código que tengo en este formulario es:
Private Sub Form_Load()
Dim reporte As New CRAXDDRT.Report
Dim crystal As New CRAXDDRT.Application
CrystalReport1.DataFiles(0) = "c:REGSOCPROFREGSOCPROF.MDB"
Set reporte = crystal.OpenReport("c:REGSOCPROFhojaregistral.rpt")
reporte.RecordSelectionFormula = "{HOJAS.CODHOJA}=" & FORM_DATOS.HOJAACTUAL
CrystalActiveXReportViewer1.ReportSource = reporte
CrystalActiveXReportViewer1.ViewReport
Set reporte = Nothing
Set crystal = Nothing
End Sub
Valora esta pregunta


0