此主题相关图片如下：tim截图20190314173024.jpg
代码如下:
Dim doc As New PrintDoc
Dim rt As New prt.RenderText '定义一个文本对象
Dim ra As New prt.RenderArea '定义一个容器
Dim rg As prt.RenderGraphics
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
'Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
ra.Stacking = prt.StackingRulesEnum.InlineLeftToRight '设置容器中对象的排列方式
For Each r As Row In Tables("产品编码_主表").Rows
rt = New prt.RenderText() '创建文本对象
rt.Text = r("产品编码")
'rt.Style.Spacing.All = 2 '设置各个方向的间隔
ra.Children.Add(rt)
bar.Code = r("产品编码")
rg = new prt.RenderGraphics
bar.DrawOnCanvas(rg.Graphics,0,0,1)
rg.Style.Spacing.All = 2
ra.Children.Add(rg)
Next
doc.Body.Children.Add(ra) '将容器ra加入到报表
Doc.Preview()
设置了排列方式,为何不起作用?
加好友 
发短信
Post By：2019/3/15 15:02:00 [只看该作者]
