帮助文件中二维码问题请教下老师 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 帮助文件中二维码问题请教下老师

共有6365人关注过本帖树形打印复制链接主题：帮助文件中二维码问题请教下老师

mamuaiqing

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：824 积分：6288 威望：0 精华：0 注册：2012/3/1 3:17:00

帮助文件中二维码问题请教下老师 发帖心情

Post By：2013/4/4 20:15:00 [只看该作者]

看了帮助文件中QRCode码,请教下老师用专业报表的话能直接生成二维码打印吗?

或者是生成图片?打印时直接读取图片进行打印?

mamuaiqing

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：824 积分：6288 威望：0 精华：0 注册：2012/3/1 3:17:00

Post By：2013/4/4 21:14:00 [只看该作者]

研究了下,下面的代码出现了图片中的错误,请教老师代码要怎么改?

Dim dd As Row =Tables("表A").Current
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.DataMatrix
Bar.Code = dd("第一列")
Bar.QuietZoneWidth = 2
Bar.SaveImage("d:\\" & dd("第二列") &".bmp")

Dim doc As New PrintDoc '定义一个报表对象
Dim rm As New prt.RenderImage '定义一个图片对象
rm.Image = GetImage("d:\\" & dd("第二列") &".bmp") '设置图片
doc.Body.Children.Add(rm) '将图片对象加入报表
Doc.Preview() '预览