以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  微信二维码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=141531)

--  作者：yifan3429 --  发布时间：2019/10/2 18:04:00 --  微信二维码 \'链接二维码 Dim rg As prt.RenderGraphics Dim Bar As New BarCodeBuilder Bar.Symbology = Barpro.Symbology.QRCode Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight bar.Code = "客户微信:" & CurRow("用户微信") rg = new prt.RenderGraphics bar.DrawOnCanvas(rg.Graphics,0,0,1) rg.Style.Spacing.All = 2 这个二维码微信号不能直接识别  请教老师怎么解决呢

--  作者：有点蓝 --  发布时间：2019/10/6 8:57:00 --   我测试没有问题 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()