FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Imprinir txt en impresora matricial por puerto USB
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Imprinir txt en impresora matricial por puerto USB
Posted: Sun Dec 07, 2025 12:21 PM

Buenas estimados

Hago lo siguinte y no fuciona

 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

Saludos,



Adhemar C.
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Imprinir txt en impresora matricial por puerto USB
Posted: Sun Dec 07, 2025 12:55 PM

Lo loigré enviandolo a un archivo de texto

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

y usando

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

:D

Saludos,



Adhemar C.
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Imprinir txt en impresora matricial por puerto USB
Posted: Mon Dec 08, 2025 05:21 PM

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/37742-tdosprn-w11/

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Imprinir txt en impresora matricial por puerto USB
Posted: Tue Dec 09, 2025 10:36 PM

Muchas gracias estimado João

Efectivamente estoy usando TDOSPRN

Saludos,



Adhemar C.
Posts: 467
Joined: Fri Dec 09, 2005 12:41 AM
Re: Imprinir txt en impresora matricial por puerto USB
Posted: Sat Dec 13, 2025 04:48 AM

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) :


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

Espero sirva

Saludos

Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Imprinir txt en impresora matricial por puerto USB
Posted: Mon Dec 15, 2025 06:57 PM

Muchas Gracias Estimado Lubin

Ya lo solucioné

Saludos,



Adhemar C.

Continue the discussion