| Pregunta: | 239 - AVISO AL FINALIZAR LA IMPRESIÓN |
| Autor: | Angel |
| Programo en Visual Basic 5 y i pregunta es sobre impresión. ¿Qué tengo que hacer para que cada vez que la impresora termine uno de los trabajos que le he enviado, el programa me de un aviso? Me han comentado el utilizar el api con las funciones EnumJobs, Getjobs y Setjobs pero no lo tengo muy claro el como hacerlo. Os agradecería cualquier orientación al respecto | |
| Respuesta: | José Luis Castro Ramírez |
| Te envío ésta parte de código, la variable Statusrpt te almacena el status del control de crystal, dependiendo del estado en que se encuentre es el mensage que envía, espero solucione tu problema.
Statusrpt = MDImnuFideaca.CrtFidaca.Status MDImnuFideaca.CrtFidaca.WindowState = 2 MDImnuFideaca.CrtFidaca.Destination = 0 'Pantalla 'Ruta de la Base de Datos y el Reporte MDImnuFideaca.CrtFidaca.DataFiles(0) = "C:\Fideaca\AccessBDFideaca\Fidaca.mdb" MDImnuFideaca.CrtFidaca.ReportFileName = "C:\Fideaca\Reportes\Recibo.rpt" Screen.MousePointer = 11 MDImnuFideaca.CrtFidaca.Action = 1 Screen.MousePointer = 0 If Statusrpt = 0 Then MsgBox "El Informe no se ha impreso, o no se ha terminado de imprimir", vbInformation If Statusrpt = 3 Then MsgBox "El Informe se Termino de Imprimir", vbInformation If Statusrpt = 5 Then MsgBox "EL Usuario Cancelo el Informe", vbInformation | |
| Respuesta: | Julio |
| hola mi nombre es julio la forma de saber cuando termina tu impresion es de la sigte forma si lo haces con crystal report que es lo que manejo y creo que cualquier otra forma: recuerda que la version de CR de VB5.0 no maneja ventanas como VB4.0 (donde cierre= al nombre del archivo en CR) cierre.WindowTitle = "Informe Realizado"al terminar de realizar todos estos pasos se supone que CR a generado el archivo de impresion y solo basta con un MSGBOX al final para que avise.
| |