Corte de Papel en impresora

[[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