- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 打印产品的二维码时不能左右排列 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132173)
-- 发布时间：2019/3/15 15:02:00
-- 打印产品的二维码时不能左右排列
此主题相关图片如下：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()
设置了排列方式,为何不起作用?
-- 发布时间：2019/3/15 16:02:00
--
1、如果要排列好看，尽量用表格布局，在单元格里面加入内容。
2、每一个报表控件，都是默认占一行的，除非你指定其宽度width