- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]二维码换行 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=69592)
-- 发布时间：2015/6/7 21:50:00
-- [求助]二维码换行
怎么换不了行？老师，那不合适
Dim doc As New PrintDoc
Dim rg As prt.RenderGraphics
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
For Each r As Row In Tables("表A").Rows
Bar.Code = "姓名:" & r("第一列") & vbcrlf & "网址:" & r("第二列")
rg = new prt.RenderGraphics
bar.DrawOnCanvas(rg.Graphics,0,0,1)
rg.Style.Spacing.All = 3
Doc.Body.Children.Add(rg)
Next
Doc.Preview()
-- 发布时间：2015/6/7 21:58:00
--
代码没问题，换行。
-- 发布时间：2015/6/7 21:59:00
--
我扫描之后就是在同一行啊，没有换啊
-- 发布时间：2015/6/7 22:01:00
--
那就是你的扫描枪忽略了换行符。
我用手机测试没有问题。
-- 发布时间：2015/6/7 22:05:00
--
那老师你用啥的工具打开的，我是微信的
此主题相关图片如下：qq图片20150607220332.jpg
-- 发布时间：2015/6/7 22:18:00
--
那你这样试
Bar.Code = "姓名:" & r("第一列") & chr(10) & "网址:" & r("第二列")
Bar.Code = "姓名:" & r("第一列") & "\\n" & "网址:" & r("第二列")
如果不换行，就是你扫描软件有问题
-- 发布时间：2015/6/8 8:32:00
-- [求助]一起用手机都测试过来，就是不行
老师，我用很多手机都测试，都是同样的结果，我就做了个例子给您发过来了，您帮我看看
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.zip |
-- 发布时间：2015/6/8 9:37:00
--
测试了一下，一些软件忽略了回车的。
我用的正常，我用的是 诚品诚拍
-- 发布时间：2015/6/8 9:38:00
--
咋地了
-- 发布时间：2015/6/8 9:48:00
--
那老师，请问有木有什么终极的换行代码或技巧，我总不能要求顾客下载诚信成拍吧