ASCII direkt an Etikettendrucker schicken

[tuxracer78]

Also ungefähr so?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var tf: TextFile;
begin
  AssignFile(tf, 'LPT:1');
  Rewrite(tf);
  Write(tf, #02+'L');
  Write(tf, 'D11'+#13);
  Write(tf, '1A00000001501000123456789'+#13);
  Write(tf, '121100000000100Barcode A'+#13);
  CloseFile(tf);
end;

Da tut sich aber immer noch nichts am Drucker.