Hi all expert, Need help here. RS.Open "Select * From TABLE where Box_ID = '" & BOXID & "' Order By CASE_NO ASC", con1, adOpenDynamic, adLockOptimistic Set DataReport.DataSource = RS DataReport.Sections("section1").Controls.Item("Text1").DataField = RS("BOX_ID").Name DataReport.Sections("section1").Controls.Item("Text2").DataField = RS("LOT_ID").Name In my program i am able to printout the data field. But how can i convert RS("LOT_ID).Name to barcode? Eg. BOX1001 100001 BOX1002 100002 I want to printout the LOT_ID as barcode instead of text. i had tried to change the font to barcode 39 font but the barcode printout is not readable by scanner. DataReport.Sections("section1").Controls.Item("Text2").DataField = "*" & RS("LOT_ID").Name & "*" I had …

Member Avatar
Member Avatar
+0 forum 5

The End.