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

我在拍报表中例子的二维码的时候是合适的
此主题相关图片如下：qq截图20150608094816.png

 再测试了一下，只要是网址，就会造成不换行的情况，各种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()

谢谢老师，可以了，不过网址不能点击了，是因为被处理成非网址结构了吗？那我想要让其点击，有木有办法

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