Dim doc As New PrintDoc Dim img As prt.RenderImage Dim Bar As New BarCodeBuilder Bar.Symbology = Barpro.Symbology.Code39 Bar.BarRatio = 0.3 Bar.BarHeight = 8 Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight For Each r As Row In Tables("工序扫码").Rows bar.Code = r("操作员号") img = New prt.RenderImage img.Image = bar.GetImage Doc.Body.Children.Add(img) Next Doc.Preview()