Hola buen dia a todos.
Llevo dias probando como realizar el corte de papel en una impresora Epson, la secuencia de corte es #27#109 pero no corta
al mandar la secuencia se impreme sus respectivos caracteres ascii .(27) m(109)
Ya he buscado en el foro a muchos dicen que siles funciona pero ami no :S ..
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var x, y: Integer;
begin
Printer.BeginDoc;
with Printer.Canvas do
begin
x := Printer.PageHeight div 50;
y := Printer.PageWidth div 15;
Font.Name:= 'tahoma';
Font.Height:= x*2;
Font.Color:= clblack;
TextOut (x,y * 3, 'Prueba ...'+IntToStr(x)+'--'+IntToStr(y));
x := x + 2;
y := y + 2;
TextOut(x, y, #27+#109); end;
Printer.EndDoc;
end;
La impresora está esta dada de alta como Generica - Solo texto
Puede alguien darme una sugerencia de que hacer ???
Gracias