主题：[求助]为何制作出来的条码不能识别汉字？

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("第一列")&r("第二列")

    Bar.HumanReadableText = r("第一列")&r("第二列")

    Bar.BottomMargin = 1

    rg = new prt.RenderGraphics

    bar.DrawOnCanvas(rg.Graphics,0,0,1)

    rg.Style.Spacing.All = 1.5

    Doc.Body.Children.Add(rg)

Next

Doc.Preview()