给表格加上标题
示例代码:
Dim
doc As
New PrintDoc
'定义一个报表
Dim
rt As
New prt.RenderTable()
'定义一个表格对象
Dim
rs As
New prt.RenderText()
'定义一个文本对象
rt.Style.GridLines.All
= New prt.LineDef
'将网格线类型设为默认类型
rt.Rows.Count
= 3
'设置行数
rt.Cols.Count
= 3
'设置列数
rt.Height
= "6cm"
'设置表格的高度
rt.Style.Spacing.Top
= 4
'表格和前面对象的垂直间隔为4毫米
rt.Style.Spacing.Bottom
= 10
'表和和后续对象的垂直间隔为10毫米
rs.Text
= "表格标题"
'设置文本对象的内容
rs.Style.Font
= New Font("宋体",
24 ,
FontStyle.Bold) '设置文本对象的字体
rs.Style.TextAlignHorz
= prt.AlignHorzEnum.Center
'文本内容水平居中
doc.Body.Children.Add(rs)
'将文本对象加入到表格中
doc.Body.Children.Add(rt)
'将表格对象加入到报表中
rs =
New prt.RenderText()
'再次定义一个文本对象
rs.Text
= "上面的表格有三行三列,此行文本和表格的距离是10毫米"
doc.Body.Children.Add(rs)
'将文本对象加入到表格中
Doc.Preview()
'预览报表
执行结果: