Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   Cortar Papel Epson Tm-t88v (https://www.clubdelphi.com/foros/showthread.php?t=93265)

marcelocarazas 05-07-2018 18:55:13

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

ecfisa 13-07-2018 00:56:44

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 :)


La franja horaria es GMT +2. Ahora son las 14:04:15.

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