How to print a barcode symbol to paper

Please use the Print method of the barcode component to print the barcode symbol to paper. The TImage control isn't required.

For example:

var

...

TextDefine: TBarcodeTextDefine;

begin

...

Printer.BeginDoc;

... { Print other content }

Font1 := TFont.Create;

try

Font1.Name := 'Comic Sans MS';

Font1.Size := 9;

TextDefine.DisplayText := dtBarcode;

TextDefine.TextPosition := tpBottomOut;

TextDefine.TextAlignment := taJustify;

TextDefine.TextFont := Font1;

TextDefine.ExtraFontSize := 9;

Barcode1D_Code391.Print(20, 20, '1234567890', True, clBlack, clWhite, TextDefine, 2, 0.3);

finally

Font1.Free;

end;

... { Print other content }

Printer.EndDoc;

...

end;

or

var

...

TextDefine: TBarcodeTextDefine;

begin

...

Printer.BeginDoc;

... { Print other content }

with Barcode1D_Code391 do

begin

Ratio := 2;

AutoCheckDigit := True;

BarColor := clBlack;

SpaceColor := clWhite;

DisplayText := dtBarcode;

TextPosition := tpBottomOut;

TextAlignment := taJustify;

TextFont.Name := 'Comic Sans MS';

TextFont.Size := 9;

Barcode := '1234567890';

Print(20, 20, 0.3);

end;

... { Print other content }

Printer.EndDoc;

...

end;

Contents