主题：[求助]二维码打印按钮代码

想做一个打印二维码的按钮，指定行打印。找不到入手的方法。请老师帮忙。先谢谢了！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

Dim doc As New PrintDoc '定义一个报表对象
Dim rm As New prt.RenderImage '定义一个图片对象
Dim ewm As WinForm.BarCode = e.Form.Controls("二维码")
rm.Image = ewm.GetImage
doc.Body.Children.Add(rm) '将图片对象加入报表
Doc.Preview() '预览

'doc.Print()

谢谢大红袍老师