老师:您辛苦了!
Dim doc As New P r i n t Doc '定义一个报表
Do c.Pa g e S e t ti n g. L e f t Margin = 10 '设置左边距
Do c.P age Se t ti n g. R i g h t Margin = 10 '设置右边距
D o c. P a g e Se t ti n g.To p M a r gin = 10 '设置上边距
Do c.P a g e Se t t in g .B o t t om Mar gin = 10 '设置下边距
Dim rt As New pr t.R en d e r T a b le () '定义一个表格对象
doc.Stacking = pr t.St ac kin g R u l e s E n u m .B lo c k T o T o Bot tom
rt.Width = "Parent.Width" '对象宽度等于页面宽度
rt.Cols.Count = 7 '置总列数
rt.Cols(0).Width = 55
rt.Cols(0).Width = 55
rt.Cols(1).Width = 9
rt.Cols(2).Width = 10
rt.Cols(3).Width = 12
rt.Cols(4).Width = 25
rt.Cols(5).Width = 12
rt.Cols(6).Width = 10
rt.Cols(7).Width = 9
rt.Cols(8).Width = 55
Dim fa As Table = Tables("表A")
Dim rl As Table = Tables("表B")
Dim n As Integer = Tables("表A").Rows.Count-1
Dim nl As Integer = Tables("表B").Rows.Count-1
For i As Integer = 0 To n
For il As Integer = 0 To n l ' Step 2
Dim i m g As p rt .R en d e r I m age
Dim Bar As New B a r Code B u i l d er
Bar.Symbology = B a r p r o.S y m b o l o g y. C o d e 1 28
B a r. B a r R a t i o = 0.05
B a r . B a r H e i g h t = 6
Doc.Stacking = p r t . S t a c k i n g R u l e s E n u m . I n l i n e L e f t T o Right
bar.Code = fa.Rows(i)("x kg n") & "*" & fa.Rows(i)("ys") & "*" & fa.Rows(i)("kg") & "*" & rl.Rows(il)("acb")
i mg = new p r t. R e n d e r I m age
i m g . Image = b a r . G e t I mage
Doc.Body.Children.Add(i mg)
'rt.Cells(i,0).R e n d e r Object = i mg
doc.Stacking = p r t . S t a c k i n g R u l e s E n u m . B l o c k T o p T o Bottom
Next
Next
Doc.Preview()
谢谢!
加好友 
发短信
Post By：2024/1/18 1:08:00 [只看该作者]
此主题相关图片如下：aa.png
