主题：动态识别指定列的数据为条形码

不知道您说的第一列、第二列、第三列是什么？都是数字吗？而且您指的表A的哪一行？

Dim r As Row = Tables("表A").Current
Dim doc As New PrintDoc
Dim img As prt.RenderImage
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code39
Bar.BarRatio = 0.3
Bar.BarHeight = 8
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
bar.Code =r("第一列") & r("第二列") & r("第三列") '打印条形码
img = new prt.RenderImage
img.Image = bar.GetImage
Doc.Body.Children.Add(img)
Doc.Preview()

 

注：这三列都必须是数字，输入其它不符合条码规则的字符会报错！

这就是打印按钮命令，自己测试一下就知道了！