主题：[求助]批量打印条形码

请问批量打印条形码，如何用代码绑定字段

呵呵，能具体点吗？

我没有看懂你的问题。

也就是如何批量打印准考证号条形码

 

帮助中有个打印标签和专业的条形码，两者结合我搞不定

做个简单的例表上来，具体说明要求和问题所在。

 

想把条码里的号批量打成上图的效果，但号是不同的

例如条码存储在表A的第一列中：

 

Dim doc As New PrintDoc
Dim rbc As prt.RenderBarCode
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
For Each r As Row In Tables("表A").Rows
    rbc = New prt.RenderBarCode
    rbc.Height = 25
    rbc.BarCodeType = BarCodeEnum.Code39
    rbc.BarDirection = BarDirectionEnum.Normal
    rbc.Text = r("第一列")
    rbc.ShowText = True
    rbc.Style.Spacing.All = 2
    doc.Body.Children.Add(rbc)
Next
Doc.Preview()

老大，用RenderBarCode打出来的条形码不好，条码不能到下面文字部分。

那就用BarCodeBuilder:

 

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
For Each r As Row In Tables("表A").Rows
    bar.text = r("第一列")
    img = new prt.RenderImage
    img.Image =  bar.GetImage
    Doc.Body.Children.Add(img)
Next
Doc.Preview()

谢谢，请问GetImage(300)中的300是指打印分辨率吗？

还有关于BarCodeBuilder的详细介绍帮助中找不到。

差不多吧，是DPI来的