1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

   Barcode1 := TAsBarcode.Create(self);
   Barcode1.Top := 50;
   Barcode1.Left := 30;
   Barcode1.Modul := 2;
   Barcode1.Ratio := 2.0;
   Barcode1.Height := 50;   
   Barcode1.Angle := 0.0;
   Barcode1.Typ := TBarcodeType(bcCodeEAN13);
   Barcode1.ShowText := TBarcodeOption(bcocode);
   Barcode1.Checksum := true;
   Barcode1.Text := '';
   Barcode1.ShowTextPosition := TShowTextPosition(stpTopLeft);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

procedure TForm1.drucken(ean, artikelbez, preis: string);
var
tmpbarcode : TAsBarcode;

begin
    Image1.Picture := nil;
    Barcode1.DrawBarcode(Image1.Canvas);

   tmpbarcode := TAsBarcode.Create(nil);
   try
      with printer do
      begin
         BeginDoc;
         tmpbarcode.Text := ean;
         
       { Height of barcode: 40mm }
         tmpbarcode.Height := ConvertMmToPixelsY(10.0);
        // tmpbarcode.Height := ConvertInchToPixelsY(1.5);
        { Modulwidth: 0.5mm }
         tmpbarcode.Modul  := ConvertMmToPixelsX(0.45); // 0.5
         tmpbarcode.Top    := ConvertMmToPixelsY(7.0); //100.0
         tmpbarcode.Left   := ConvertMmToPixelsX(5.0);  // 35.0
         tmpbarcode.DrawBarcode(Canvas);
         EndDoc;
      end;
   finally
      tmpbarcode.Free;
   end;
end;