Etiketten drucken mit Zebra LP 2824

[ZeroQool007]

Hallo, weiß jemand wie ich von D7 aus Barcodes drucken kann?

Mein bisheriger Code ist:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var  f         : TextFile;
     s, oldFnt : string;
     i         : Word;
begin
  Printer.PrinterIndex := -1;     // Standarddrucker einstellen
  oldFnt := Printer.Canvas.Font.Name;   // Druckerfont merken

  Printer.Canvas.Font.Name := 'Courier New';

  AssignPrn(f);     // Textfile mit Drucker verbinden

  try
    Rewrite(f);     // Textfile initialisieren
    Write(f, '' + #10);
    Write(f, 'N'+ #10);
    Write(f, 'A30,200,0,4,1,1,N,''' + 'TEXT'''+ #10);
    Write(f, 'B30,20,0,1,2,5,50,N,''' + 'BARCODE''' + #10);
    Write(f, 'P1'+ #10);

  finally
    CloseFile(f);                         // Textdatei schließen
    Printer.Canvas.Font.Name := oldFnt    // Druckerfont zurücksetzen
  end;
end;