Autor Tema: Impresion En Mas De Una Printer (Leído 1113 veces)

daniex · « **en:** Sábado 11 de Diciembre de 2004, 05:01 »

Estimado FORANEOS

Es la primera vez que escribo un topic aca, Hace meses que solo miraba y sacaba ayuda desde las lineas de tan interesante foro.

Tengo una aplicacion de punto de venta.

Esta esta coenctada a una impresora de matriz de punto puerto paralelo, una impresora de ticket de la pequeñas por puerto serial

Llevo mucho tiempo tratando de saber como puedo setear los listados de Crystal report en la impresora paralela y las boletas en la impresora serial.

Ya que el usuario es medio trucho y se lo olvida cambiar de impresora predeterminada al final del dia para emitir los listados de ventas por ejemplo y deja la media cagada en la impresora de boletas. (Serial)

Bueno espero sus consejos

Gracias por su tiempo y atencion

Atte.
Daniex
Desde Chile

ebolo

Hola Daniex, yo no he usado nunca Cristal report, pero puedes elegir la impresora por la que quieres mandar el informe mediante este código:

-------------------------------------------------------------------------------
Dim P As Printer
For Each P In Printers
If P.Port = "COM1:" Then 'Selecciona la impresora que está en COM1
Set Printer = P
Exit For
End If
Next P
--------------------------------------------------------------------------------
Si la quieres madar por el puerto paralelo por LPT1:
También puedes usar el nombre de la impresora con la propiedad DeviceName
If P.DeviceName="nombreimpresora" then
.....
end if

Saludos y suerte.

SoloCodigo

Autor Tema: Impresion En Mas De Una Printer (Leído 1113 veces)

daniex

Impresion En Mas De Una Printer

ebolo

Re: Impresion En Mas De Una Printer