Foxtable(狐表)用户栏目专家坐堂 → 二维码被表格遮住了


  共有1027人关注过本帖树形打印复制链接

主题:二维码被表格遮住了

帅哥哟,离线,有人找我吗?
edisontsui
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:485 积分:3302 威望:0 精华:0 注册:2014/12/18 16:12:00
二维码被表格遮住了  发帖心情 Post By: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的值设置正确的话,二维码可以到达正确的位置,但是会被表格遮住,也就是说二维码看不见了。请教要怎么解决?谢谢。(我设计了一个表格,在表格里面要打印二维码)

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:81449 积分:408408 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/2/12 15:12:00 [只看该作者]

方法一:先添加表格,再添加二维码,如

 

Doc.Body.ChildRen.Add(表格)

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

 

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

 

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

 


 回到顶部
帅哥哟,离线,有人找我吗?
edisontsui
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:485 积分:3302 威望:0 精华:0 注册:2014/12/18 16:12:00
  发帖心情 Post By: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)

我改成上面那样,但是运行结果是看不到二维码图案了。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:81449 积分:408408 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:485 积分:3302 威望:0 精华:0 注册:2014/12/18 16:12:00
  发帖心情 Post By:2019/2/13 13:29:00 [只看该作者]

应该是 img.x = 30 和 img.y = 30 的问题,我去掉它们,就没事了。谢谢。

 回到顶部