一行打印多个二维码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

没看懂，什么A列B列？

比如piao号为 11109100105，其二维码扫出的结果是 11139100037，这是不对的，扫出的结果也应该是 11109100105才行。

请上传实例测试

'msgbox(1)

msgbox("ty=" & ty)

Dim ra As New prt.RenderArea

Dim Bar As New BarCodeBuilder

Dim img As New prt.RenderImage

Bar.Symbology = Barpro.Symbology.QRCode

Bar.Code = ty

Bar.QuietZoneWidth = 1

Bar.QRCodeErrorCorrectionLevel = Barpro.QRCodeErrorCorrectionLevel.H

Bar.QRCodeModuleSize = 0.4

img.Image = bar.GetImage

img.X = 75 + (L1 - 1) * 75

img.y = 25 + (h2 - 1) * 30

ra.Children.Add(img)

现在我改用按钮代码来打印piao号及其二维码，piao号是可以显示出来了，但是二维码没有出来。上面的代码 msgbox("ty=" & ty) 这个提示的结果也是对的。请问是什么原因导致二维码出不来呢？谢谢。

可能位置设置不正确

如果位置不对，就会被挤到下一行去吧？但是也不见在下一行显示出来。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:临时代码3.zip

全部代码是这样子的。就是二维码出不来。

测试的时候只有一页吧。代码里处理最后一页的地方都没有添加图片的代码呀。

另外也没有把ra添加到报表里，缺少下面代码

doc.Body.Children.Add(ra)

谢谢。

请看附页代码和图片：我希望每个piao号与其二维码的上边是平的，比如 11019102200 这个piao号就是符合要求的。现在右边第一行piao号 11019102201 这个piao号与其二维码的上边还没有齐平，所以我要将它的二维码往上移动，但是当逐步移到与左边 11019102200 的二维码高度重叠的时候，重叠部分就看不到 11019102201 的二维码了，就感觉 11019102201 的二维码被 11019102200 的二维码遮住了。如果这个两个二维码高度完全一样的话，11019102201 的二维码就完全看不见了。请问这是什么原因呢？谢谢。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:图片10131.zip

下载信息 [文件大小：下载次数： ]
点击浏览该文件:临时代码31.rar

图片是添加到ra里面的，应该设置ra的位置。其实如果ra里只有一张图片，完全没有必要使用ra，直接把图片添加到报表即可

主题：一行打印多个二维码