| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 扫描二维码后无信息 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=148552) |
| -- 作者：rgbjwjb -- 发布时间：2020/4/9 22:37: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("借款日期")& 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
|
| -- 作者：有点蓝 -- 发布时间：2020/4/9 22:47:00 -- 使用微信扫码也没有问题？保存为bmp或者jpg格式试试 |
| -- 作者：rgbjwjb -- 发布时间：2020/4/10 16:09:00 -- 改为为bmp或者jpg格式后，可以在浏览器中查询到，但在手机中不能查看，另外：执行上述代码后，出现票据先吐出现象，然后再放进票据才可打印，怎样修改代码才能消除吐出票据的现象？请指教，谢谢！！ |
| -- 作者：有点蓝 -- 发布时间：2020/4/10 16:27:00 -- 手机中不能查看指什么，这个不应该和图片格式有关。 打印机设置的问题吧。使用普通打印机打印有没有问题？ 缩小窗口，或者设置一下页边距试试
|
| -- 作者：rgbjwjb -- 发布时间：2020/4/10 21:50:00 -- 手机上不能看到相关的内容，只显示一个很长的链接，需将该链接通过浏览器才能显示；另外是打印机设置的问题，谢谢！ |
| -- 作者：有点蓝 -- 发布时间：2020/4/11 10:01:00 -- 什么样的链接，发上来看看 |