I am searching for info about inserting barcodes into Crystal.

Do I need special software  to convert data into a barcode in crystal or maybe there is a font I can use.

Basically, a font can convert number or letters into barcode in crystal reports. however, the checksum should be calculated manually. If add a barcode library to crystal reports, then the checksum of a barcode can be calculated automatically. 

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;

Edited by comatt1 - 31 Aug 2012 at 5:45am