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

怎么换不了行？老师，那不合适

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()