Corte de Papel en impresora

[ethangio]

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); //corte de papel
  end;
  Printer.EndDoc;
end;

La impresora está esta dada de alta como Generica - Solo texto
Puede alguien darme una sugerencia de que hacer ???

Gracias

[Casimiro Noteví]

Algunas impresoras tienen unos switchs para configurar que corte o que no corte, no sé si la tuya será de esas.

[[newtron]]

Hola.

Igual estoy confundido pero creo que los caracteres de corte de la EPSON son #27+#i, o sea, #27+#105.

Saludos

[CrazySoft]

Si no estoy mal no funciona con canvas
prueba de esta manera

Código Delphi [-]
var Impresora: TextFile;
 
Begin
            assignFile(Impresora,'LPT1');
 
//           o
//                       AssignPrn(Impresora);
 
            rewrite(Impresora); //apertura del archivo, creacion
            Write(Impresora, #27); //ESC, Write(Impresora, ESC);
            Write(Impresora, '!'); // ! , Write(Impresora, !);
            Write(Impresora, #0); //Write(Impresora, n); #n
            Writeln(Impresora, ' Prueba');
            CloseFile(Impresora); //cerrar el archivo
        except
            Showmessage('Error impresora');
        end;
End;

[ethangio]

Hola disculpa la demora. Tuve que salir y no pude checar el foro antes

He estado probando con tu ejemplo CrazySoft ,, pero no me ha funcionado sigue sin cortar el papel
e imprimiendo los caracteres correspondientes al 27 y al 105 y/o 109

por cierto la impresora esta conectada por el puerto serial.

Tendras alguna otra solucion que nos pueda ayudar

Gracias, seguiré investigando.

[[newtron]]

Hola.

No tengo impresora de tickets a mano para probar pero mira a ver si esto te sirve, tendrás que poner en el uses del formulario la unidad WinSpool.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  DocInfo1: TDocInfo1;
  sLinea:   String;
  N:        DWORD;
  Handle:   THandle;
begin
  OpenPrinter('NombreImpresora', handle, nil);
  with DocInfo1 do begin
    pDocName    := PChar('prueba.doc');
    pOutputFile := nil;
    pDataType   := 'RAW';
  end;
  StartDocPrinter(Handle, 1, @DocInfo1);
  StartPagePrinter(Handle);
  sLinea := #27 + #105;
  WritePrinter(Handle, PChar(sLinea), Length(sLinea), N);
  EndPagePrinter(Handle);
  EndDocPrinter(Handle);
  ClosePrinter(Handle);
end;

Saludos