Kassenlade öffnen

[Natcree]

also mit diesem code öffnet er die kassenlade schiebt aber einen 2 cm streifen raus und cuttet ihn.

Delphi-Quellcode:

 type
   TPassThroughData = record
     nLen : Integer;
     Data : array[0..255] of byte;
   end;
procedure DirectPrint(s:string);
var PTBlock : TPassThroughData;
begin
   PTBlock.nLen := length(s);
   StrPCopy(@PTBlock.Data, s);
   Escape(Printer.Handle, PASSTHROUGH, 0, @PTBlock, nil);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Printer.BeginDoc;
   DirectPrint(#27 + 'p' + #0 + #50 + #50);
   Printer.EndDoc;
end;