No se imprimen algunas imágenes

[EGMM]

Hola:

Tengo un sistema desarrollado en Delphi 5 que está instalado en muchos clientes. Con ese sistema se imprimen muchos formularios. Algunos de ellos tienen 2 o 3 imágenes. Lo que me pasa es que eso anda casi siempre bien pero cada tanto, hay alguna imagen que no se imprime. Es decir que se imprime todo el formulario (texto, recuadros, etc.) y todas las imágenes menos una. Quizás 100 veces anda todo bien y al imprimir el formulario 101 pasa esto, aunque claro que la frecuencia no es constante.

Cuando esto pasa, el usuario simplemente reimprime el formulario (que un minuto antes salió con una imagen menos) y se imprime bien con todas las imágenes.

La impresión se hace usando TPrinter, las imágenes son archivos (JPG o BMP) que se leen en un TImage y se copian al TPrinter.canvas usando StretchDraw.

Esto pasa en más de un cliente (pero no en todos) con diferentes imágenes y diferentes impresoras.

¿Alguna idea de cuál puede ser la causa (y la solución) del problema?

[rgstuamigo]

No sé si te pueda servir hacer un refrescamiento antes de mandar a imprimir:

Código Delphi [-]
...
Printer.Canvas.Refresh;//<--
...

Pruébalo...
Saludos...

[EGMM]

Muchas gracias por tu sugerencia. La voy a probar a ver si funciona.

Saludos

[cfernan]

A mi me ha pasado, y no se sabe cuándo pasa. Según lo que vi, yo uso imágenes BitMap y para imprimir uso Draw. Según la ayuda de Delphi, para imprimir BitMap se debe usar PrinBitMap. En eso estoy.

[cfernan]

Mira esto la página scalabium.com/faq/dct0090.htm

[EGMM]

Empezado por cfernan

Mira esto la página scalabium.com/faq/dct0090.htm

Ese mismo método para imprimir está en los siguientes links:

w ww.howtodothings.com/computers/a1102-stretchdraw-an-image-to-a-printer-canvas.html

coding.derkeiler.com/Archive/Delphi/borland.public.delphi.language.objectpascal/2004-01/0338.html

De todos modos ya lo probé y pasa lo mismo, así que lamentablemente esto no soluciona el problema.

[EGMM]

Empezado por cfernan

A mi me ha pasado, y no se sabe cuándo pasa. Según lo que vi, yo uso imágenes BitMap y para imprimir uso Draw. Según la ayuda de Delphi, para imprimir BitMap se debe usar PrinBitMap. En eso estoy.

Yo tengo Delphi 5 y en mi ayuda no está PrintBitMap. ¿Vos qué versión de Delphi tenés?

¿Es un procedure, un método de TPrinter, una función de la API...?