主题：同样的二维码代码,内容不同时大小不一样

此主题相关图片如下：二维码.png

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("-", "") & "JBL*" & CStr(rq).Replace("-", "/")

Bar.CodeAlignment = Barpro.Alignment.BelowLeft

Bar.QRCodeModuleSize = 0.60

Bar.QuietZoneWidth = 1 '静区宽度(两边空白)

rg = New prt.RenderGraphics

bar.DrawOnCanvas(rg.Graphics, 0, 0, 1)

rg.Style.Spacing.All = 1

ra2.Children.Add(rg)