我测试没有问题
Dim doc As New PrintDoc
Dim rg As New prt.RenderGraphics
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
bar.QRCodeByteEncodingName = "utf-8"
bar.Code = "客户微信:foxtable"
rg = new prt.RenderGraphics
bar.DrawOnCanvas(rg.Graphics,0,0,1)
Doc.Body.Children.Add(rg)
Doc.Preview()