superfer17
25-03-2004, 16:55:23
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!!
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!!