Trabajos de impresión - VB-MUNDO

deneb · #1 (**permalink**) 07-02-2007, 17:59:35

Buenas,

estoy trabajando con un componente de imagen (THB image) y tengo que imprimir varias imágenes. Lo que hago es ir mostrando las imágenes una a una y al mostrar cada imagen la imprimo haciendo:

'Start a print job to get a valid Printer.hDC
Printer.Print Space(1)

'Print the picture best fitted
THBImage1.PrintPicAligned Printer.hdc, lngLeft, lngTop, lngRight, lngBottom, True, thbPosCC, thbStretchBoth

Printer.EndDoc

El problema de hacerlo así es que cada vez que imprimo una imagen me manda un trabajo nuevo a la impresora, con lo que si imprimo por ejemplo 400 imágenes me manda 400 trabajos de impresión. Lo que pasa es que la impresora entre trabajo y trabao se para un poco y vueleve a arrancar por lo que se para 400 veces y eso hace que tarde una eternidad (horas).

Me gustaría saber si se podría, en lugar de mandar 400 trabajos, mandar un trabajo de 400 páginas (como hace por ejemplo el Word), así no se pararía entre página y página y mejoraría mucho la velocidad.

Gracias de antemano.

Saludos.

Alella · #2 (**permalink**) 08-02-2007, 08:18:08

Hola, que tal.

Utiliza Printer.EndDoc sólo una vez y al final de la impresión.

Ya nos contarás.

deneb · #3 (**permalink**) 08-02-2007, 09:28:20

:smt009 ... no ha funcionado, he sacado Printer.Print Space(1) y Printer.EndDoc fuera del bucle y he repetido solo

'Print the picture best fitted
THBImage1.PrintPicAligned Printer.hdc, lngLeft, lngTop, lngRight, lngBottom, True, thbPosCC, thbStretchBoth

pero cuando haces Printer.EndDoc solo imprime la última imagen,

Gracias de todas formas...

Alella · #4 (**permalink**) 08-02-2007, 09:37:33

Hola, que tal.

Has probado a intercalar:

Printer.NewPage

Teoricamente te debería de funcionar. Ya nos contarás.

deneb · #5 (**permalink**) 09-02-2007, 08:38:56

OK! :smt003 creo que lo he conseguido utilizando esto del Printer.NewPage

Muuuuchas gracias!!

Saludos.