Imprinir txt en impresora matricial por puerto USB

[acuellar]

Buenas estimados

Hago lo siguinte y no fuciona

Code: Select all | Expand

 oPrn:= TDosPrn():New("USB001") 
 oPrn:StartPage()
   oPrn:Say( oPrn:nRow(),4, "COBRO DE SERVICIO" )
   oPrn:Say( oPrn:nRow()+2,0, "Cliente : "+COB->CLIENTE )
   oPrn:Say( oPrn:nRow()+1,0, "Contacto: "+COB->CONTACTO )
   oPrn:Say( oPrn:nRow()+1,0, "----------------------------------------")
   oPrn:Say( oPrn:nRow()+1,0, "FECHA          SERVICIO           MONTO" )
   oPrn:Say( oPrn:nRow()+1,0, "----------------------------------------")
   oPrn:Say( oPrn:nRow()+1,0,DTOC(MovCob->FECHA)+"  "+Left(MovCob->DETALLE,20) )
   oPrn:Say( oPrn:nRow(),31,Trans(Cob->SALDO,"9,999.99" ))
   oPrn:Say( oPrn:nRow()+1,0, "----------------------------------------")
   oPrn:Say( oPrn:nRow()+4,5,"--------------------------")
   oPrn:Say( oPrn:nRow()+1,5,"      Recibí Conforme")
   oPrn:Say( oPrn:nRow()+3,2,FecActual(Date()))
   oPrn:EndPage()
  oPrn:End()

Gracias por la ayuda

[acuellar]

Lo loigré enviandolo a un archivo de texto

Code: Select all | Expand

     tFile:=ViaOn+"ENLACE.TXT"
     oPrn:= TDosPrn():New(tFile)

y usando

Code: Select all | Expand

 PrintFileRaw( "EPSON TM-U230 Receipt", tFile)

[karinha]

Estimado Adhemar, te recomiendo TDOSPRN.PRG, es mucho mejor para controlar la impresión en modo TEXTO.

Mira aqui, porfa:

https://fivewin.com.br/index.php?/topic ... osprn-w11/

Regards, saludos.

[acuellar]

Muchas gracias estimado João

Efectivamente estoy usando TDOSPRN

[lubin]

Hola Adhemar

Resolviste el tema ??

otro tema también es configurar el Windows para que jale la impresion

Recuerdo .. Yo con una Epson FX990 conectado con usb tenia que configurar el windows..

1. La impresora la compartía y le ponía un nombre "EPSON990"

2. luego Ingresando con CMD le aplicaba ( la Consola del Windows) :

   
   

   Code: Select all | Expand

   net use LPT1: \\SERVIDOR\EPSON990 /persistent:yes

Espero sirva

Saludos

[acuellar]

Muchas Gracias Estimado Lubin

Ya lo solucioné