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

--  作者：有点蓝 --  发布时间：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()