Etiketten drucken mit Zebra LP 2824

[ZeroQool007]

Habs hinbekommen...Problem lag die ganze Zeit darin, da es sich um ein USB Gerät handelt. Habe nun per CMD den LPT auf UBS umgeleitet.

Delphi-Quellcode:

procedure Tfrm_Druckerwahl.Button2Click(Sender: TObject);
var
  F : TextFile;
begin
  AssignFile(F,'LPT2');
  Rewrite(F);

  Writeln(F,'N');
  Writeln(F,'Q20,110');
  Writeln(F,'D15');

  Writeln(F,'A30,200,0,4,1,1,N,"TEXT"');
  Writeln(F,'B30,20,0,1,2,5,50,N,"BARCODE"');

  Writeln(F,'P1');
  CloseFile(F);
end;