Dim ra2 As New prt.RenderArea
ra2 = rt.Cells(rt.Rows.Count - 1, 2).Area '引用单元格的容器
Dim rg As prt.RenderGraphics
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
ra2.Stacking = prt.StackingRulesEnum.InlineLeftToRight '设置容器中对象的排列方式
Bar.Code = cr("客户料号") & "+" & CStr(rq).Replace("-", "") & Format(i - 1 + bh , "000") & "+" & qty & "+zxkj" '料号+流水号+数量+标记
Bar.QRCodeModuleSize = 0.7
Bar.QuietZoneWidth = 1 '静区宽度(两边空白)
rg = New prt.RenderGraphics
bar.DrawOnCanvas(rg.Graphics, 0, 0, 1)
rg.Style.Spacing.All = 0.5
ra2.Children.Add(rg)
用上面代码生成的二维码,如果客户料号中有中文,用手机微信扫码就会出现乱码或者
显示微信扫码暂不支持展示二维码中的文本内容
这种情况应该如何处理,谢谢!
加好友 
发短信
Post By：2024/4/29 9:23:00 [只看该作者]
