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

加上编码

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.QRCodeByteEncodingName = "utf-8"
    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()

参考 http://www.foxtable.com/help/topics/1925.htm