这样写代码测试没问题
Dim doc As New PrintDoc() '定义一个报表
Dim rg As prt.RenderGraphics
Dim Bar As New BarCodeBuilder
Dim img As prt.RenderImage
Bar.Symbology = Barpro.Symbology.QRCode
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
For Each r As Row In Tables("订单").Rows '逐行生成报表
Dim ra As new prt.RenderArea
Dim rt As prt.RenderText
ra.width=100
ra.Height=24
ra.SplitHorzBehavior = prt.SplitBehaviorEnum.Never '禁止水平分割
ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never '禁止垂直分割
ra.Style.Spacing.Bottom = 3
ra.Style.Borders.All = New prt.Linedef(0.3, Color.black) '设置边框
Doc.Body.ChildRen.Add(ra) '将容器加入到报表中
rt=new prt.rendertext
rt.text="单价:"
rt.x=2
rt.y=2
ra.children.add(rt)
rt=new prt.rendertext
rt.text=r("单价")
rt.x=12
rt.y=2
ra.children.add(rt)
rt=new prt.rendertext
rt.text="数量:"
rt.x=2
rt.y="prev.bottom+4"
ra.children.add(rt)
rt=new prt.rendertext
rt.text=r("数量")
rt.x=15
rt.y="prev.top"
ra.children.add(rt)
Bar.Code ="单价:" & r("单价") & vbcrlf & "数量:" & r("数量")
rg = New prt.RenderGraphics()
rg.Graphics.DrawImage(bar.GetImage,0,0, 50, 50)
'bar.DrawOnCanvas(rg.Graphics,0,0,0.47)
rg.x=75
rg.y=1
ra.children.Add(rg)
Next
Doc.Preview()