Barcodes auf Ettiketten ausdrucken - aber wie?

[shmia]

Bei Version 1.27 (und auch früheren Versionen) ist doch ein Demo-Programm dabei.
Es zeigt, wie man einem Barcode drucken kann. Im Menu File -> Print
Hier der Code-Ausschnitt:

Delphi-Quellcode:

procedure TForm1.print_demo(bc:TAsBarcode);
var
   tmpbarcode : TAsBarcode;
begin
   { create a temp barcode object, because we want to change some
     properties
     }
   tmpbarcode := TAsBarcode.Create(nil);
   { copy the object }
   tmpbarcode.Assign(bc);
   try
      with printer do
      begin
         BeginDoc;
         Canvas.TextOut(10, 10, 'Barcode Printing Demo '+DateTimeToStr(Now));

         { Height of barcode: 40mm }
         tmpbarcode.Height := ConvertMmToPixelsY(40.0);
         tmpbarcode.Height := ConvertInchToPixelsY(1.5);

         { Modulwidth: 0.5mm }
         tmpbarcode.Modul  := ConvertMmToPixelsX(0.5);

         tmpbarcode.Top    := ConvertMmToPixelsY(100.0);
         tmpbarcode.Left   := ConvertMmToPixelsX(35.0);
         tmpbarcode.DrawBarcode(Canvas);
         EndDoc;
      end;
   finally
      tmpbarcode.Free;
   end;
end;