Epson TM-T88ii

[Ruso777]

Hola, estoy intentando realizar un corte de papel luego de imprimir en la impresora termica epson TM-T88ii
Podrian enviarme algun ejemplo de como hacer esto en Delphi?

Saludos y gracias

[[BlueSteel]]

Empezado por Ruso777

Hola, estoy intentando realizar un corte de papel luego de imprimir en la impresora termica epson TM-T88ii
Podrian enviarme algun ejemplo de como hacer esto en Delphi?

Saludos y gracias

Hola...

Yo tengo una Micro Star... y se setea para que el corte del papel sea automático... revisa si tiene alguna caracteristica similar..

salu2

[Ruso777]

Hola, gracias por tu respuesta.
Tengo seteada la impresora para que la configuración de papel sea con corte parcial automático.
Cuando imprimo una pagina de prueba, funciona correctamente.
Lamentablemente no logro reproducir este comportamiento desde la aplicación Delphi.

Probé con TPrinter.BeginDoc y TPrinter.EndDoc y tambien con envio directo de texto a la impresora (Assign(file) y Writelns)
El codigo que encontre en los foros (que supuestamente funciona) seria el Writeln(file, #27#105) pero no hay efecto salvo imprimir "caracteres extraños" al final del reporte.

[Cañones]

Hola. Yo ya estuve luchando con esa impresora
Si me esperas en unas horas te mando el comando escape para que haga el corte de papel
También te puedo mandar por mail un pdf con los comandos escapes.
Saludos.

[Ruso777]

Muchisimas gracias, avisame si ves el mail registrado en mi usuario o te lo tengo que enviar por aqui

Saludos

[Cañones]

Empezado por Ruso777

Hola, estoy intentando realizar un corte de papel luego de imprimir en la impresora termica epson TM-T88ii
Podrian enviarme algun ejemplo de como hacer esto en Delphi?

Saludos y gracias

En este link http://www.clubdelphi.com/foros/showthread.php?t=31186 está la respuesta al final de todo.

[Ruso777]

Muchas gracias por la respuesta.

He probado con esos códigos pero sigue sin funcionarme.
Copio el código utilizado
...
Writeln(file, line);
Writeln(file, #27#105);
System.CloseFile(file);

Saludos

[Ruso777]

Aclaración: en lugar de cortar el papel, luego de la ultima linea que imprimo aparecen 2 caracteres extraños.
Pareciera que en lugar de interpretar el comando, esta tomando el #27#105 como un string adicional a imprimir...

[Cañones]

No pude mandarte las cosas por correo. Ahora estoy en el trabajo y no tengo nada de eso, perp ni bien pueda te paso los camandos escapés y un procedimeinto completo de como imprimo.
Saludos

[Cañones]

Ah´i va. Disculpas por la demora.

Código Delphi [-]
procedure TfrmQRArticulos.ver; 
var 
  impresora:TextFile; 
  sProducto, sStock, sPrecio:string; 
begin 
  ibqArticulos.Close; 
  ibqArticulos.Open; 
  // ------------------------------Impresion----------------------------------// 
  try 
    AssignFile(Impresora,'LPT1'); 
    rewrite(Impresora); 
    Writeln(Impresora,#27#64); 
    //--------------- HEADER --------------------------------// 
    WriteLn(Impresora,'Fecha: '+DateTimeToStr(Now)); 
    //------------ BODY -----------------// 
    Writeln(Impresora,#27#33#128'PRODUCTO'#27#33#0+'                     '+ 
       #27#33#128'STOCK'#27#33#0+#27#33#128'  PRECIO'#27#33#0); 
    //------------------------------------------------------------------------// 
    ibqArticulos.First; 
    while not ibqArticulos.Eof do 
      begin 
      sProducto:=ibqArticulos.Fields[0].AsString; 
      sStock:=ibqArticulos.Fields[1].AsString; 
      sPrecio:=FormatFloat('0.00',ibqArticulos.Fields[2].AsFloat); 
      Writeln(Impresora,sProducto+sStock+sPrecio); 
      ibqArticulos.Next; 
      end; 
    //------------ FOOTER----------------// 
    //------------------------ Avance de papel y corte -----------// 
    //------- aca va el corte. Por debajo queda en la siguiente -----------// 
    WriteLn(Impresora,''); 
    WriteLn(Impresora,''); 
    WriteLn(Impresora,''); 
    WriteLn(Impresora,''); 
    Writeln(Impresora,#27#105); //Esto 'CORTA el TICKET' 
  finally 
    CloseFile(Impresora); //cerrar el archivo 
  end; 
end;

Cualquier consulta a disposición.