Ayuda con impresora Epson TM-T20III Receipt 5 RESUELTO

[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.

[Adolfo]

Hola
por aca estan todos

http://www.lprng.com/RESOURCES/EPSON/epson.htm

ejemplo
oPrn:Say( 20, 0, CHR(27) + "i") cortar Papel

Desde Chile
Saludos

[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.

[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

[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 view

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

 

[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

[FranciscoA]

Gabo, Postinelli.
Muchas gracias. Mañana haré las pruebas correspondientes, y les comento.
Saludos.

[leandro]

Con la tdosprn

Code: Select all  Expand view

***************
*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
 

[FranciscoA]

Muchas gracias Leandro.
Voy a intentarlo mañana.

[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 view

//-------------------------------------//
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.

[karinha]

https://atendimento.tecnospeed.com.br/hc/pt-br/articles/360012452493-Geral-Configurando-Impressora-EPSON-TM-T20-NFC-e

https://files.support.epson.com/pdf/pos/tmt20_/t20uug_pt_0.pdf

https://invisibleflamelight.wordpress.com/2010/01/21/listagem-de-cdigos-de-configurao-de-impressoras-e-gavetas-de-pos-ponto-de-venda/

https://www.manualpdf.com.br/epson/tm-t20iii/manual

Regards, saludos.

[FranciscoA]

Excelente, Karinha.
Parece que aqui se encuentra la solución. Muchas gracias.
Saludos

[FranciscoA]

Agradezco a todos por su gran interés.

Logré encontrar la solución con los links de Karinha. Muchas gracias Joao.

Code: Select all  Expand view

[b]29 86 1[/b] (corte completo)