|
Dim doc As New PrintDoc
Dim img As prt.RenderImage
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code128
Bar.BarRatio = 0.3
Bar.BarHeight = 8
'Bar.BarWidth = 50
'Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
For Each r As Row In Tables("表A").Rows
For i As Integer = 1 To 1
bar.Code = r("第一列")
img = new prt.RenderImage
img.Image = bar.GetImage
Doc.Body.Children.Add(img)
Next
Next
Doc.Preview()
| 
加好友 
发短信
Post By：2015/7/21 19:10:00 [显示全部帖子]
