以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  二维码被表格遮住了  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130944)
--  作者：edisontsui
--  发布时间：2019/2/12 14:56:00
--  二维码被表格遮住了
    Dim Bar As New BarCodeBuilder
    Dim img As new prt.RenderImage
    Bar.Symbology = Barpro.Symbology.QRCode
    Bar.Code = "081003" & "|" & r("客户物料编号") & "|" &  r("每箱数量") & "|" & r("批次号") & "0600"
    Bar.QuietZoneWidth = 2
    Bar.QRCodeErrorCorrectionLevel = Barpro.QRCodeErrorCorrectionLevel.H
    Bar.QRCodeModuleSize = 0.57
    img.Image = bar.GetImage
    img.x = -10
    img.y = 67
    ra.Children.Add(img)
    Doc.Body.ChildRen.Add(ra)

上面一段代码里面，如果img.x的值设置正确的话，二维码可以到达正确的位置，但是会被表格遮住，也就是说二维码看不见了。请教要怎么解决？谢谢。（我设计了一个表格，在表格里面要打印二维码）
--  作者：有点甜
--  发布时间：2019/2/12 15:12:00
--  

方法一：先添加表格，再添加二维码，如

 

Doc.Body.ChildRen.Add(表格)

Doc.Body.ChildRen.Add(二维码)

 

方法二：如果你要在表格里面插入图片，直接插入即可，如

 

http://www.foxtable.com/webhelp/scr/1220.htm

 
--  作者：edisontsui
--  发布时间：2019/2/12 16:40:00
--  
    ra = rt.cells(9,6).area
    ra.Stacking = prt.StackingRulesEnum.BlockLeftToRight \'排列方式为从左到右
    Dim Bar As New BarCodeBuilder
    Dim img As new prt.RenderImage
    Bar.Symbology = Barpro.Symbology.QRCode
    Bar.Code = "081003" & "|" & r("客户物料编号") & "|" &  r("每箱数量") & "|" & r("批次号") & "0600"
    Bar.QuietZoneWidth = 2
    Bar.QRCodeErrorCorrectionLevel = Barpro.QRCodeErrorCorrectionLevel.H
    Bar.QRCodeModuleSize = 0.57
    img.Image = bar.GetImage
    img.x = 30
    img.y = 30
    ra.Children.Add(img)

我改成上面那样，但是运行结果是看不到二维码图案了。
--  作者：有点甜
--  发布时间：2019/2/12 16:44:00
--  

参考

 

Dim doc As New PrintDoc \'定义一个报表
Dim rt As New prt.RenderTable() \'定义一个表格对象
doc.Body.Children.Add(rt) \'将表格对象加入到报表中
Dim ra = rt.cells(9,6).area
ra.Stacking = prt.StackingRulesEnum.BlockLeftToRight \'排列方式为从左到右
Dim Bar As New BarCodeBuilder
Dim img As new prt.RenderImage
Bar.Symbology = Barpro.Symbology.QRCode
Bar.Code = "123"
Bar.QuietZoneWidth = 2
Bar.QRCodeErrorCorrectionLevel = Barpro.QRCodeErrorCorrectionLevel.H
Bar.QRCodeModuleSize = 0.57
img.Image = bar.GetImage
ra.Children.Add(img)
Doc.Preview() \'预览报表
--  作者：edisontsui
--  发布时间：2019/2/13 13:29:00
--  
应该是 img.x = 30 和 img.y = 30 的问题，我去掉它们，就没事了。谢谢。