把条码作为表格的一部分,比如代码
Dim doc As New PrintDoc '定义一个报表
doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
For i As Integer = 1 To 2
Dim rt As New prt.RenderTable() '定义一个表格对象
doc.Body.Children.Add(rt) '将表格对象加入到报表中
'设置各位置的网格线
rt.Style.GridLines.All = New Prt.LineDef(0.5, Color.Black)
rt.width = 50
'下面的代码向表格中填入值
rt.cells(0,0).text = 1
rt.cells(1,0).text = 2
rt.cells(2,0).text = 3
Dim rbc As New prt.RenderBarCode()
rbc.Height = 5
rbc.style.Padding.Top = 0.5
rbc.BarCodeType = BarCodeEnum.Code39
rbc.BarDirection = BarDirectionEnum.Normal
rbc.Text = "123"
rt.cells(3,0).RenderObject = rbc
Next
doc.Preview() '预览报表