Dim doc As New PrintDoc '定义报表 Dim ra As New prt.RenderArea '定义一个容器 Dim rpar As prt.RenderParagraph() Dim tb as Table = CurrentTable For r As integer = 0 To tb.Rows.Count -1 '从上而下排版内容 For c As Integer = 0 To tb.Cols.Count -1 '从左到右排版内容 rpar = New prt.RenderParagraph() '定义一个段落 。。。 Next Next
加好友 
发短信
Post By：2009/12/21 9:17:00 [显示全部帖子]
