Cortar Papel Epson Tm-t88v

[marcelocarazas]

Buenos días, estoy imprimiendo con rave report, lo que necesito es cortar el papel de mi impresora térmica, busque en Internet y encontré estos código de escape para esta impresora

Corte Papel [ESC] i 27 105 1B 69


procedure TServicios.proReporte(Rv : TBaseReport);
var
i, ColPag : Integer;
saldo: Real;
begin
with Rv do
begin
//proNuevaHoja(Rv, 1);

GotoXY(0.20, 0.2);
PrintXY(0.2, 0.4,'a' );
PrintXY(0.2, 0.6,'b' );
PrintXY(0.2, 0.8,'c' );
//Incl ()
printXY(0.2, 1, AnsiChar(27)+ AnsiChar(105));
//PrintXY(0.2, 1,#27#105 );
PrintXY(0.2, 1.2,'a' );
PrintXY(0.2, 1.4,'b' );
PrintXY(0.2, 1.6,'c' );
end;
end;


Lo unico que me muestra el reporte es

http://www.framac.com.bo/images/rave%20report.jpg

y no corta nada, por favor si pueden ayudarme y muy agradecido por la atencion

[ecfisa]

Hola.

Aquí está la lista completa de códigos Commands in Code Order (https://reference.epson-biz.com/modules/ref_escpo/index.php?content_id=72#), de la impresora. Y, según este documento (https://reference.epson-biz.com/modules/ref_escpos/index.php?content_id=87) del fabricante, deberías hacer algo similar a este código:

...
implementation

uses Printers;

procedure CutPage;
var
prn: TextFile;
begin
Printer.PrinterIndex := Printer.Printers.IndexOf('Epson Tm-t88v'); //(1)
AssignPrn(prn);
try
Rewrite(prn); // Reset ??
Writeln(prn, #29#86#48); //(2)
CloseFile(prn);
except
on E : Exception do
ShowMessage(E.Message);
end;
end;
...

(1) Deberá ser exáctamente el nombre con que figure la impresora en la lista de las mismas.
(2) Prueba el último valor con los indicados en el último enlace.

Lamento no poder probar la funcionalidad del código ya que no dispongo de esa impresora, pero espero te sirva de guía.

Saludos :)