主题：[求助]二维码换行

 代码没问题，换行。

那就是你的扫描枪忽略了换行符。

 

我用手机测试没有问题。

 那你这样试

 

Bar.Code = "姓名:" & r("第一列") & chr(10) & "网址:" & r("第二列") 

 

Bar.Code = "姓名:" & r("第一列") & "\n" & "网址:" & r("第二列") 

 

 如果不换行，就是你扫描软件有问题

 

 测试了一下，一些软件忽略了回车的。

 

 我用的正常，我用的是 诚品诚拍

 再测试了一下，只要是网址，就会造成不换行的情况，各种app都有不同的处理。

 

 要不你就把网址处理一下，如

 

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("第二列").Replace(":", StrToWide(":")).replace(".",StrToWide(".")) & ""
    rg = new prt.RenderGraphics
    bar.DrawOnCanvas(rg.Graphics,0,0,1)
    rg.Style.Spacing.All = 3
    Doc.Body.Children.Add(rg)
Next
Doc.Preview()

 各种软件的处理不同，只要出现了网址，可能就会当成一个网址来处理，也是就不会换行。