Clarion - impresion

Como puedo enviar a imprimir un ticket a 2 miniprinter al mismo tiempo con una aplicacion en clarion 6.3. Gracias

Andrade


Direccionalo a una impresora

LOC:DefaultPrinter = (PRINTER{PROPPRINT:Device}) ! Guardo la Impresora por Predeterminada
LOC:ReceiptPrinter = 'Epson LX-810' ! Cambio por la Epson LX-810
PRINTER{PROPPRINT:Device}=CLIP(LOC:ReceiptPrinter)

Ejecuta el código de la impresión
Loop
.
.
.
END
Direcciona la otra impresora

LOC:ReceiptPrinter = 'Epson LX-300' ! Cambio por la Epson LX-300
PRINTER{PROPPRINT:Device}=CLIP(LOC:ReceiptPrinter)

Ejecuta el código de la impresión nuevamente
Loop
.
.
.
END

Devuelve la impresora que tenias al ingresar a la rutina

PRINTER{PROPPRINT:Device}=CLIP(LOC:DefaultPrinter) ! Devuelvo la impresora predeterminada

Esto es un ejemplo muy bruto, pero espero que sirva para darte una idea.


Espero te sirva.