Epson TM-T88 Römisch 3 NUR Kassenschublade öffnen

[omata]

Neuer Versuch...

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 TForm.ButtonClick(Sender: TObject);
begin
  Printer.BeginDoc;
  DirectPrint(#27 + 'p' + #0 + #50 + #50);
  Printer.EndDoc;
end;