Dim doc As New PrintDoc '定义一个报表
Doc.PageSetting.LeftMargin = 0 '设置左边距
Doc.PageSetting.RightMargin = 0 '设置右边距
Doc.PageSetting.TopMargin = 0 '设置上边距
Doc.PageSetting.BottomMargin = 0 '设置下边距
Doc.PageSetting.Width = 40
Doc.PageSetting.Height= 40
Dim rg As prt.RenderGraphics
Dim Bar As New BarCodeBuilder
'Bar.Symbology = Barpro.Symbology.QRCode
Bar.Symbology = Barpro.Symbology.Code39
'Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
Dim ra As New prt.RenderArea
Dim rx As prt.RenderText '定义一个文本对象
Dim rm As prt.RenderImage '定义一个图形队形
Dim Currow As Row
Dim tbl As Table = Tables("表A")
For i As Integer = 0 To tbl.Rows.Count - 1
CurRow = tbl.rows(i)
For j As Integer = 1 To CurRow("数量")
Dim rep As New prt.RenderEmpty '定义一个新的空对象
rep.BreakBefore = prt.BreakEnum.Page '打印前换页
doc.Body.Children.Add(rep ) '加入到报表中
rx = new prt.RenderText
rx.Text = CurRow("名称")
rx.x = 1
rx.y = 1
doc.body.Children.Add(rx)
bar.Code = CurRow("条码")
rg = new prt.RenderGraphics
bar.DrawOnCanvas(rg.Graphics,2,3,1)
rg.Style.Spacing.All = 3
Doc.Body.Children.Add(rg)
Next
Next
Doc.Preview() '预览报表