Cortar Papel Epson Tm-t88v
 

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

Código Delphi [-]
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



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

Hola.

Aquí está la lista completa de códigos Commands in Code Order, de la impresora. Y, según este documento del fabricante, deberías hacer algo similar a este código:

Código Delphi [-]
...
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 :)