Para la impresión utilizo la clase TDOSPRN y las posibilidades son:
1) Impresora de ticket conectada al puerto LPT1, LPT2, COM1, COM2
Sería una opción facil:
- Code: Select all Expand view
- oPrn:=TDosPrn():New("puerto_elegido")
oPrn:say(1,1,'empenzando a imprimir...')
...
2) Impresora de ticket conectada al puerto USB
a) que la impresora esté compartida en RED
- Code: Select all Expand view
- vRuta:=alltrim("\\rutaPC\nombreImpresora")
vPath:=NETREDIR( "LPT1",vRuta)
IF vPath=.T.
WINEXEC('NET USE LPT1: &vRuta',0)
MSGINFO("YA PUEDO IMPRIMIR CON LA TDOSPRN EN RED")
oPrn:=TDosPrn():New('LPT1')
oPrn:say(1,1,'empenzando a imprimir...')
...
ENDIF
¿La variable vRuta se podría depurar con vRuta:=GetPrintDefault( GetActiveWindow() )
b) NO compartida en RED
¿ El código sería el mismo que en la opción anterior ?
A la espera de respuestas, saluda
LORENZO Fdez.
Cádiz, España