以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  二维码图片不能显示  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=135255)
--  作者：rgbjwjb
--  发布时间：2019/5/21 23:11:00
--  二维码图片不能显示

思路：我想根据窗体录入的数据生成一个二维码图片，然后将该图片绑定到图片框，并将该图片打印出来；

代码：Dim DoC As PrintDoc = e.Form.Gernateprintdoc()
Dim mg As String = ProjectPath & "Images\\二维码.wmf" \'约定的图片文件
Dim r As Row = Tables("收款明细表").Current
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Bar.Code = "债权人:" & r("债权人") & vbcrlf & "借款日期:" & r("借款日期")
bar.SaveImage(mg,300)
Dim pic As WinForm.PictureBox = e.Form.Controls("PictureBox1")
pic.ImageFile = ProjectPath & "Images\\二维码.wmf"
pic.SizeMode = ImageSizeMode.Zoom

Doc.Print

问题：执行代码后，二维码的图片打不出来外，其他数据可以打印出来

请指教，谢谢！！

        

--  作者：有点蓝
--  发布时间：2019/5/21 23:22:00
--  


Dim mg As String = ProjectPath & "Images\\二维码.wmf" \'约定的图片文件
Dim r As Row = Tables("收款明细表").Current
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Bar.Code = "债权人:" & r("债权人") & vbcrlf & "借款日期:" & r("借款日期")
bar.SaveImage(mg,300)
Dim pic As WinForm.PictureBox = e.Form.Controls("PictureBox1")
pic.Image = getimage(ProjectPath & "Images\\二维码.wmf" )

pic.SizeMode = ImageSizeMode.Zoom

Dim DoC As PrintDoc = e.Form.Gernateprintdoc()

Doc.Print


[此贴子已经被作者于2019/5/21 23:22:01编辑过]