FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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!! |
|
|
|