Dim Doc As new PrintDoc
Dim rt As New prt.RenderTable '定义一个新表格
rt.Style.GridLines.All = New prt.Linedef
Dim tb As Table = Tables("磅码单")
Dim ColNames As String() = New String(){"序号","数量"}
Dim idx As Integer = 0
For r As Integer = 0 To tb.Rows.Count -1 Step 10 '开始填入该列内容
rt.Cells(idx,0).Text = "序号"
rt.Cells(idx+1,0).Text = "数量"
Dim k As Integer = 1
For j As Integer = r To Math.Min(r+9,tb.Rows.Count -1)
rt.Cells(idx,k).Text = tb.Rows(j)("序号")
rt.Cells(idx+1,k).Text = tb.Rows(j)("数量")
k = k + 1
Next
idx = idx + 2
Next
Doc.Body.Children.Add(rt)
Doc.Preview
加好友 
发短信
Post By：2021/7/8 17:31:00 [显示全部帖子]
