老师，下面的代码生成的条形码怎么无法扫描？谢谢！
Dim doc As New PrintDoc
Dim r As Row = Tables("职业健康检查表").Current
Dim Bar As New BarCodeBuilder
Dim img As prt.RenderImage
Bar.Symbology = Barpro.Symbology.Code39
bar.Code = r("条码号")
bar.HumanReadableText = r("姓名")
bar.Text = r("性别")
Bar.BarHeight = 10
Bar.QuietZoneWidth = 2
Bar.BarRatio = 0.3
Bar.AddCheckSum = False
Bar.DisplayChecksum = False
Bar.DisplayStartStopChar = False
Bar.TextAlignment = Barpro.Alignment.BelowRight
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
For i As Integer = 1 To 3
img = new prt.RenderImage
img.Image = bar.GetImage
Doc.Body.Children.Add(img)
Next
Doc.Preview()
加好友 
发短信
Post By：2019/6/12 7:33:00 [显示全部帖子]
