Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderTable() '定义一个表格对象
doc.Body.Children.Add(rt) '将表格对象加入到报表中
rt.Style.GridLines.All = New prt.Linedef '设置网格线
rt.Rows.Count = 7 '设置总行数
rt.Cols.Count = 5 '设置总列数
rt.Height = 120 '设置表格的高度为120毫米
rt.Cells(2, 1).SpanRows = 3 '第3行第2个单元格向下合并3行
rt.Cells(2, 1).SpanCols = 3 '第3行第2个单元格向右合并3列
Doc.Preview() '预览报表