主题：表格

参考

http://www.foxtable.com/webhelp/scr/1414.htm

具体问题，实例发上来测试

参考代码

Dim doc As New PrintDoc '定义一个新报表
Dim rt As New prt.RenderTable '定义一个新表格
Dim tb As Table = Tables("表A")
Dim lieshu = 3
Dim jiange = 2
Dim hangshu = 5
rt.Cols.Count = lieshu * jiange
Dim idx As Integer = 0
For i As Integer = 1 To lieshu*2 Step 2
    For j As Integer = 1 To hangshu
        idx += 1
        rt.Cells(j-1,i-1).text = idx
        rt.Cells(j-1,i).text = tb.Rows(idx-1)("第一列")
    Next
Next
rt.Style.Gridlines.All = New prt.Linedef(Color.Gray) '灰色网格线
rt.CellStyle.Spacing.All = 0.5 '单元格内距设为0.5毫米
doc.Body.Children.Add(rt) '将表格加入到报表
doc.Preview()