There is an open source barcode library, please refer to this link: http://code.google.com/p/zxing/
And you can also have a look at the Crystal Reports Code 39 generator and Crystal Reports UPC-A generator

you can do it with a function - in that function we have a font called OCR-A BT

http://www.azfonts.net/load_font/ocr-a_bt.htmlOCR Font Free

here is ours

local stringvar xw;       
local numberVar array x := [0,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0];
local numbervar xt;
local numbervar lsum;
local numbervar lsum2;
local numbervar lsum3;
local numbervar lprod;
local numbervar lschk;
local numbervar lschk1;
local numbervar lschk2;
local numbervar lschk3;

for xt := 1 to 5 step 1 do x[xt + 2] := Int(ToNumber(Mid({@strInvoice},xt , 1)));
for xt := 1 to 2 step 1 do x[xt + 8] := int(ToNumber(Mid({@l-s-serx},xt,1)));
for xt := 2 to 8 step 1 do x[xt + 10] := int(tonumber(mid({@l-s-amtx},xt,1)));
lsum := 0;
for xt := 4 to 6 step 2 do lsum := lsum + x [xt];
for xt := 3 to 7 step 2 do lsum := lsum + Int((2 * x[xt]) / 10) + Remainder (2 * x[xt],10 );
lschk := remainder(10 - remainder(lsum,10),10);
x[8] := lschk;
lprod := 2 * x[9];
lsum := x[10] + int(lprod / 10) + remainder(lprod,10);
lschk1 := remainder(10 - remainder(lsum,10),10);
x[11] := lschk1;
lsum2 := 0;
for xt := 13 to 17 step 2 do lsum2 := lsum2 + x[xt];
lsum3 := 0;
for xt := 12 to 18 step 2 do lsum3 := lsum3 + int((2 * x[xt]) / 10) + remainder(2 * x[xt],10);
lsum2 := lsum2 + lsum3;
lschk2 := remainder(10 - remainder(lsum2,10),10);
x[19] := lschk2;

lsum := 0;
for xt := 2 to 18 step 2 do lsum := lsum + x[xt];
for xt := 1 to 19 step 2 do lsum := lsum + int((2 * x[xt]) / 10) + remainder(2 * x[xt],10);
lschk3 := remainder(10 - remainder(lsum,10) ,10);

xw := replicatestring(' ',45);
xw := mid(xw,1,10) + {@l-s-type} + replicatestring(' ',45 - 10 - len({@l-s-type}));
xw := mid(xw,1,14) + {@strInvoice} + replicatestring(' ',45 - 14 - len({@strInvoice}));
xw := mid(xw,1,19) + totext(lschk,0,'','') + replicatestring(' ',45 - 19 - len(totext(lschk,0,'','')));
xw := mid(xw,1,22) + {@l-s-serx} + replicatestring(' ',45 - 22 - len({@l-s-serx}));
xw := mid(xw,1,24) + totext(lschk1,0,'','') + replicatestring(' ',45 - 24 - len(totext(lschk1,0,'','')));
xw := mid(xw,1,27) + mid({@l-s-amtx},2,8) + replicatestring(' ',45 - 27 - len(mid({@l-s-amtx},2,8)));
xw := mid(xw,1,34) + totext(lschk2,0,'','') + replicatestring(' ',45 - 34 - len(totext(lschk2,0,'','')));
xw := mid(xw,1,37) + totext(lschk3,0,'','') + replicatestring(' ',45 - 37 - len(totext(lschk1,0,'','')));
xw := mid(xw,1,39) + ' ' + {@l-s-chair};

xw;

Hi, recthor.
Nice sharing.
Thanks a lot for that.
But I wonder whether the free tools online have as many professional fuctions as the paid ones.
I used to generate  barcodes in labels in Crystal Reports with another Barcode Generator SDK whose processing way is simple and fast.
Even though I only tried its free trial package and didn´t check the cost and licensing conditions, it works well.
You can pick you indeed need if necessary.
And I will try your guys´ sharing later and find more.
Many thanks again.


Best regards,
Arron