主题：如何用专业报表将需要的条码打印到条码纸上

在帮助文档中没有找到能够实现我的需求，请教狐爸

在软件中如何将如下条码根据需要的数量打印到

此主题相关图片如下：条码类型.jpg

如下条码纸上

此主题相关图片如下：纸张类型.jpg

有时候条码的数量肯定同，想根据数量一次性打印条码到纸上，希望给点提示，谢谢！

就是定位的位置而已，一开始要反复调整好位置和坐标，有什么特别的吗？

找不着啊

还是不能实现啊

Dim doc As New PrintDoc
Dim rbc As New prt.RenderBarCode()
rbc.Height = 25
rbc.BarCodeType = BarCodeEnum.Code39

Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code39
Bar.Code = "123456"
Bar.BarWidth = 0.18
Bar.HumanReadableText = "耳环       真金"
Bar.CodeAlignment = Barpro.Alignment.BelowJustify
Bar.Text = "RH00036  2088"
'Bar.SaveImage("文件名")

doc.Body.Children.Add(Bar)
Doc.Preview()

这样类似的代码如何整合呀 狐爸

你在命令窗口执行下面的代码看看：

Dim doc As New PrintDoc
Dim rbc As New prt.RenderBarCode()
Dim rt As new prt.RenderTable
For r As Integer = 0 To 99
    For c As Integer = 0 To 3
        rbc.Height = 25
        rbc.BarCodeType = BarCodeEnum.Code39
        Dim Bar As New BarCodeBuilder
        Bar.Symbology = Barpro.Symbology.Code39
        Bar.Code = "123456"
        Bar.BarWidth = 0.18
        Bar.HumanReadableText = "耳环       真金"
        Bar.CodeAlignment = Barpro.Alignment.BelowJustify
        Bar.Text = "RH00036  2088"
        Dim rm As New prt.RenderImage
        rm.Image = Bar.GetImage(300)
        rt.Cells(r,c).RenderObject = rm
    Next
Next
doc.Body.Children.Add(rt)  
Doc.Preview()