Visual Basic - Ayuda con Report Manager

Life is soft - evento anual de software empresarial
 
Vista:

Ayuda con Report Manager

Publicado por DiegoM (27 intervenciones) el 06/10/2009 17:28:49
Hola, estoy trabajando con Vb6 y report manager ( Activex) , y estoy teniendo un problema que no he podido resolver

Tengo una grilla , donde seleccionando la celda requerida (actualiza una base de dato Auxiliar con los datos a Imprimir ) y luego presionando un Command , me muestra en informe.

Esta es la Conexion que tengo en el Command

Private Sub Command2_Click()
Report.FileName = App.Path & "\Presupuesto.rep"
Report.Preview = True
Report.ShowPrintDialog = False
Report.Execute
End Sub

Ok, hasta aqui todo Barbaro, Ahora quiero que al hacer dobleClick sobre la Celda , me haga lo mismo

Pero que pasa me tira error en el Report.Execute, el mensaje dice
"Error '-2147418113(8000ffff)' en tiempo de ejecucion:
No data available to print "

Ya revise la Tabla Auxiliar de impresion y tiene los datos actualizados.

Creo que el Report debe quedar cargado y no se como vaciarlo.

Por favor si alguien puede ayudarme

Se los Agradesco.

Diego M.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

RE:Ayuda con Report Manager

Publicado por Santiago (34 intervenciones) el 07/10/2009 07:22:35
Es verdad tu teoria antes de generarlo nuevamente debes cerrarlo, yo para cerrar un reporte hago esto

With DTETodasLasNotas.rsCmdTodasLasNotas

If .State = adStateOpen Then
.Close
End If
End With

esto es con un dataenvironment pero adecualo a lo tuyo y estará solucionado. lo ideal es que lo cierres al final del mismo evento no afecta en la visualizacion y deja listo para cualquier reporte de inmediato

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda con Report Manager

Publicado por Diego M (27 intervenciones) el 08/10/2009 17:20:56
Santiago , desde ya gracias por tu respuesta .

estoy tratando de adaptarlo , pero no entiendo muy bien tu ejemplo.

Lo que hice y me anda a medias es colocar un On Error Resume Next

Private Sub Command2_Click()
On Error Resume Next
Report.FileName = App.Path & "\Presupuesto.rep"
Report.Preview = True
Report.ShowPrintDialog = False

Report.Execute

End Sub

Y te digo que me anda a medias , porque cuando hago doble clic sobre el preupuesto que quiero ver , aveces me lo muestra y otras tengo que volver a hacer doble clic.

Desde ya muchas gracias . y Saludos cordiales.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:Ayuda con Report Manager

Publicado por Santiago (34 intervenciones) el 09/10/2009 08:07:09
Solo usa un report.close despues del report.execute para que cierre el reporte y se pueda generar uno nuevo, saludos!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar