Ya lo tengo y ahora si que está todo completo.
Después de la instrucción de la función: Se debe hacer la llamada a la función con esta sintaxis:
Y a continuación escribo la función:
Esta función KillTask (me encanta el nombre :D), sirve para la eliminación de cualquier proceso que se esté ejecutando en el sistema, si sabes que exe lo lanza. |
En mi opinión, esto no es algo bueno para hacer; digamos que no es "educado". La impresora virtual puede estar siendo usada por otros procesos y tú simple y llanamente la matas junto con todo lo que estuviera haciendo. A decir verdad, es lo mismo que estaba haciendo yo :o.
No sé bien porqué no te funciona imprimir un documento después de otro pues no observé errores. Sin embargo, he puesto en el FTP un ejemplo algo más currado, como dicen por allá en España. Se trata del componente TPDFCreator que tiene un sólo método (CreateFile) para generar el archivo y un sólo evento (OnPrint) en donde pones el código con el que produzcas la impresión. De esta manera, puedes reusarlo para diversas impresiones. Junto con el componente, viene una demo en la que podrás ver, además, como poner a tu documento propiedades como autor, título y tema, así como protegerlo con contraseña. El archivo incluye un paquete (ClubDelphi.dpk) listo para instalar el componente. Pd: Se me olvidaba comentar que el componente se fija si la impresora ya está trabajando y, en tal caso, no intenta cerrarla. // Saludos |
Magnifico Román.
He utilizado tu componente y funciona perfecto, simplificando aún más el código. Nota: Cuando realizamos la asignación de la impresora como impresora determinada de Windows con la instrucción: Debemos del mismo modo asignarla al Quikreport (si es el caso), con la siguiente instrucción
Espero esto sirva a tanta gente como neuronas he quemado estos últimos días. :rolleyes: |
La franja horaria es GMT +2. Ahora son las 05:04:33. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi