用下面的代码打印出的二维码，扫描后一直处于扫描状态，也没有任何错误提示，请问什么原因？谢谢指教！
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("借款日期")& vbcrlf & "借款年限:" & r("借款年限")&"年"& vbcrlf & "借款利率:" & 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
加好友 
发短信
Post By：2020/4/9 22:37:00 [只看该作者]
