Page 1 of 1
Ayuda con impresora Epson TM-T20III Receipt 5 RESUELTO
Posted: Sat May 14, 2022 1:39 am
by FranciscoA
Saludos a todos.
Alguno puede facilitarme un ejemplo de los comandos de la TDOSPRN para cortar el papel automaticamente con esta impresora ?
EPSON TM-T2DII Receipt 5
Agradeceré mucho.
Re: Ayuda con impresora Epson TM-T2DII Receipt 5
Posted: Sat May 14, 2022 3:09 pm
by Adolfo
Hola
por aca estan todos
http://www.lprng.com/RESOURCES/EPSON/epson.htmejemplo
oPrn:Say( 20, 0, CHR(27) + "i") cortar Papel
Desde Chile
Saludos
Re: Ayuda con impresora Epson TM-T2DII Receipt 5
Posted: Sat May 14, 2022 3:12 pm
by VitalJavier
Que tal Francisco
Lo que yo hago, es que en la configuracion, le pongo
que corte al finalizar la impresion, y listo
Ya no lo uso (Que yo controlo el corte)
Pero lo usaba asi : _oPrn:CmSay(_Ren,0,Chr(27)+Chr(105))
Saludos.
Re: Ayuda con impresora Epson TM-T2DII Receipt 5
Posted: Sat May 14, 2022 4:40 pm
by FranciscoA
Adolfo, Javier:
Muchas gracias por su valiosa información.
Efectivamente, he usado algunos de los comandos sugeridos y han funcionado en impresoras de tickets matriciales. (Unicamente he usado las de series TM-U200)
En la impresora TM-T2DII Receipt 5 no me funciona.
En este momento no tengo a la mano la impresora para hacer pruebas, por lo que agradecería me confirmaran si han usado esta impresora con esos comandos para cortar el papel.
Les digo que he "googleado" bastante, pero no he podido encontrar informarción.
Saludos
Re: Ayuda con impresora Epson TM-T2DII Receipt 5
Posted: Sun May 15, 2022 3:35 pm
by gabo
Hola Francisco
Yo uso la siguiente funcion y comando de impresora y me ha funcionado en cualquier modelo y tipo de impresora de tiques
Saludo!
Code: Select all | Expand
//------------------------------------------------------------------------------
FUNCTION CortaPapel(cImpresora)
LOCAL cFileTemp, cString
cFileTemp:= GetTempFilename( Application:CurrentDir() + "Spool" )
cString:= ""
cString+= " " + Hb_OsNewLine()
cString+= " " + Hb_OsNewLine()
cString+= " " + Hb_OsNewLine()
cString+= " " + Hb_OsNewLine()
cString+= " " + Hb_OsNewLine()
cString+= " " + Hb_OsNewLine()
cString+= chr(27)+"m"
cString+= " " + Hb_OsNewLine()
cString+= " " + Hb_OsNewLine()
cString+= " " + Hb_OsNewLine()
cString+= " " + Hb_OsNewLine()
IF WriteStream( cFileTemp, cString )
WIN_PrintFileRaw( cImpresora, cFileTemp, "Cut_Paper" )
IF hb_FileExists( cFileTemp )
FErase( cFileTemp )
ENDIF
ENDIF
RETURN ( FError() == 0 )
Re: Ayuda con impresora Epson TM-T2DII Receipt 5
Posted: Sun May 15, 2022 7:17 pm
by postinelli
Asi hago yo y funciona en todas las termicas que por cierto las tengo como generic txt only
//esto es para el corte automatico del papel
//separo 5 filas que es la distancia entre la ultima impresion y la linea de corte
oPrn:Say( nRow, nCol, ' ' )
nRow ++
oPrn:Say( nRow, nCol, ' ' )
nRow ++
oPrn:Say( nRow, nCol, ' ' )
nRow ++
oPrn:Say( nRow, nCol, ' ' )
nRow ++
oPrn:Say( nRow, nCol, ' ' )
nRow ++
oPrn:Endpage()
//este es el grupo de comandos especificos para corte de papel
oprn:Startpage()
oprn:command("27","64" )
oprn:command("27","105" ) //corte total
oprn:command("18" )
oprn:Endpage()
oPrn:End()
//hasta aca el corte automatico
Re: Ayuda con impresora Epson TM-T2DII Receipt 5
Posted: Mon May 16, 2022 1:24 am
by FranciscoA
Gabo, Postinelli.
Muchas gracias. Mañana haré las pruebas correspondientes, y les comento.
Saludos.
Re: Ayuda con impresora Epson TM-T2DII Receipt 5
Posted: Mon May 16, 2022 7:31 pm
by leandro
Con la tdosprn
Code: Select all | Expand
***************
*CORTA EL PAPEL
***************
Function CortarPapel()
Local IMfac
Local cPorta
Local cPrinter
//LANZAMOS LA IMPRESION DEL CORTE DE PAPEL
cPorta := PrnGetPort()
cPrinter := PrinterPortToName( cPorta )
IMfac := TDosPrn():New(".\dbfs\lamtem\cortapapel.txt")
IMfac:StartPage()
IMfac:say(0,0,chr(027) + chr( 105 ) ) //Corte de papel
IMfac:EndPage()
IMfac:End()
PrintFileRaw( cPrinter, TrueName(".\dbfs\lamtem\cortapapel.txt"), "Corta Papel" )
return nil
Re: Ayuda con impresora Epson TM-T2DII Receipt 5
Posted: Tue May 17, 2022 4:13 am
by FranciscoA
Muchas gracias Leandro.
Voy a intentarlo mañana.
Re: Ayuda con impresora Epson TM-T2DII Receipt 5
Posted: Wed May 18, 2022 3:30 am
by FranciscoA
Hola.
He probado el codigo de todos y no he logrado resultados para cortar el papel en esta impresora :
EPSON TM-T20III Receipt 5 ( la habia descrito mal anteriormente)
Pueden decirme, por favor, que me falta en el siguiente codigo, o qué estoy haciendo mal.
Este codigo me funciona perfectamente para imprimir la factura, pero no hace el corte de papel.
Code: Select all | Expand
//-------------------------------------//
Function CortarElPapel()
LOCAL oPrn
local nLin := 0
local nCol1:=2
local nCol2:=7
local nCol3:=20
local nCol4:=30
local cPort:= "LPT1"
local cPrinter := Alltrim(GetDefaultPrinter())
LOCAL cDoc := cNewFileName("C:\FAP_TEMP\Prueba","TXT")
local nAgregLnsCorte := 5
//Creamos carpeta donde se deposita temporalmente .txt de la factura
if !lIsDir("C:\FAP_TEMP")
lMKdir("C:\FAP_TEMP")
endif
nLin := 2
oPrn := TDosPrn():New(cDoc)
oPrn:StartPage()
oPrn:Say( nLin, nCol1, PADC("ESTA ES EMPRESA DUMMY",38) )
nLin+= 1
oPrn:Say( nLin, nCol1, PADC("Chinandega",38) )
nLin+= 2
oPrn:Say( nLin, nCol1, "Aqui va Codigo, Descrip, Canti, Precio" )
nLin+= 1
oPrn:Say( nLin, nCol1, "Aqui va Codigo, Descrip, Canti, Precio" )
nLin+= nAgregLnsCorte //Agreg lineas en blanco para linea del corte
oPrn:Say( nLin, nCol1, "" )
// Ninguno de estos hace el corte del papel
// CortarPapel( "Chr(27)+Chr(100)+Chr(0)+Chr(27)+Chr(105)" )
// oPrn:say(nLin,0,chr(027) + chr( 105 ) )
oPrn:EndPage()
oPrn:End()
PrintFileRaw( cPrinter, TrueName(cDoc), "CorteP" )
Ferase(cDoc)
return nil
Nuevamente, muchas gracias.
Re: Ayuda con impresora Epson TM-T2DII Receipt 5
Posted: Wed May 18, 2022 10:57 am
by karinha
Re: Ayuda con impresora Epson TM-T2DII Receipt 5
Posted: Wed May 18, 2022 3:58 pm
by FranciscoA
Excelente, Karinha.
Parece que aqui se encuentra la solución. Muchas gracias.
Saludos
Re: Ayuda con impresora Epson TM-T20III Receipt 5
Posted: Thu May 19, 2022 9:52 pm
by FranciscoA
Agradezco a todos por su gran interés.
Logré encontrar la solución con los links de Karinha. Muchas gracias Joao.