- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]二维码打印按钮代码 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=77999)
-- 发布时间：2015/11/30 12:26:00
-- [求助]二维码打印按钮代码
想做一个打印二维码的按钮，指定行打印。找不到入手的方法。请老师帮忙。先谢谢了！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
[此贴子已经被作者于2015/11/30 13:39:39编辑过]
-- 发布时间：2015/11/30 14:49:00
--
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()
-- 发布时间：2015/11/30 15:31:00
--
谢谢大红袍老师