Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   Corte papel en impresora Epson (https://www.clubdelphi.com/foros/showthread.php?t=8546)

superfer17 25-03-2004 17:55:23

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

delphi.com.ar 25-03-2004 18:05:27

Yo trabajé con una impresora similar, y recuerdo que cuando se instalaba te instalaba dos drivers, uno con corte y otro sin corte. Si utilizabas el que cortaba, una vez terminada la página la cuchilla cortaba el papel.
Si querés escribir directamente en el puerto, te recomendaría que busques la documentación de la impresora.

Saludos!

superfer17 26-03-2004 10:41:02

Gracias, lo probaré con otro driver.
Pero en ese caso ¿bastaría con ejecutar el report para que automáticamente se corte el papel? ¿sin escribir ningún código más?

delphi.com.ar 26-03-2004 15:27:40

Cita:

Empezado por superfer17
¿bastaría con ejecutar el report para que automáticamente se corte el papel? ¿sin escribir ningún código más?

Exacto!, si lo que quieres es imprimir reportes gráficos, creo que es la mejor solución!

PepeLolo 01-04-2004 18:08:49

Sí tienes el driver de la impresora instalado, debes buscar dentro de propiedades de la impresora un apartado donde se pueda configurar esto, sin tener que mandar ningún tipo de secuencia.


Toy seguro, seguro.

Saludos :rolleyes:


La franja horaria es GMT +2. Ahora son las 16:37:02.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi