合并单元格
单元格有一个SpanRows属性,用于指定单元格向下合并的行数,另外有一个SpanCols属性,用于指定向右合并的列数。
示例
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.Rows(6).Height
= 50
'第7行的高度为50毫米
rt.Cells(0,4).SpanRows
= 6
'第1行第5个单元格向下合并6行
rt.Cells(4,1).SpanCols
= 3
'第5行第2个单元格向右合并3列
rt.Cells(6,0).SpanCols
= 5
'第7行第1个单元格向右合并5列
Doc.Preview()
'预览报表
执行结果: