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

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

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

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() \'预览

Bar.Code = dd("第一列")
这行是说 二维码的内容等于表A中第一列的内容

Bar.SaveImage("d:\\\\" & dd("第二列") &".bmp")

这行是说生成的二维码图片的文件名等于第二列的内容

问题解决了

路径应该为"d:\\"   不是"d:\\\\"