- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 帮助文件中二维码问题请教下老师 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=30836)
-- 发布时间：2013/4/4 20:15:00
-- 帮助文件中二维码问题请教下老师
看了帮助文件中QRCode码,请教下老师用专业报表的话能直接生成二维码打印吗?
或者是生成图片?打印时直接读取图片进行打印?
-- 发布时间：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() \'预览
此主题相关图片如下：图1.png
-- 发布时间：2013/4/4 21:16:00
--
Bar.Code = dd("第一列")
这行是说 二维码的内容等于表A中第一列的内容
Bar.SaveImage("d:\\\\" & dd("第二列") &".bmp")
这行是说生成的二维码图片的文件名等于第二列的内容
-- 发布时间：2013/4/5 21:33:00
--
问题解决了
路径应该为"d:\\" 不是"d:\\\\"