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

呵呵，能具体点吗？

我没有看懂你的问题。

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

例如条码存储在表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()

那就用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()

差不多吧，是DPI来的

也许有bug，先用6楼代码吧

楼主，不好意思，不是bug来的，是我的代码有问题，正确的：

 

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.Code = r("第一列")
    img = new prt.RenderImage
    img.Image =  bar.GetImage
    Doc.Body.Children.Add(img)
Next
Doc.Preview()

 

BarCodeBuilder的属性请参考：

 

http://help.foxtable.com/topics/2092.htm