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

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

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

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()