Corte papel en impresora Epson
Saludos a todos
Se trata de activar la cuchilla para el corte de ticket en una impresora en red Epson TM-J2100. He utilizado parte del código que ya se ha puesto en el foro:
/////////////////////////////////
// INICIO CODIGO REPORT
/////////////////////////////////
type
Tpasa_datos = Record
nLong : Integer;
Datos : Array[0..255] of byte;
end;
Procedure Impresion_directa(s : String);
var
CadenaB : TPasa_datos;
Begin
CadenaB.nLong := Length(s);
StrPCopy(@CadenaB.Datos,s);
//Se le manda al puerto al que está conectado la impresora la secuencia
//de escape pasada como parámetro
Escape(printer.handle, PASSTHROUGH,0,@CadenaB,nil);
End;
Este procedimiento lo llamo en el AfterPrint del report:
begin
Printer.BeginDoc;
// Como parámetro se pasa la secuencia de caracteres de escape que corta
// el papel para la impresora : ESC i para la TM-J2100
Impresion_directa(CHR(27)+Chr(105));
Printer.EndDoc;
end;
/////////////////////////////////
// FIN CODIGO REPORT
/////////////////////////////////
El caso es que no me funciona. No se si es por que no es una impresora local, o bien porque no estoy haciendo bien la secuencia de escape.
Si alguien tiene alguna idea de porque puede fallar, será bien recibida.
Muchas gracias por adelantado.
Un saludo!!
|