给表格加上标题

示例代码:

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() '预览报表

执行结果:

 


本页地址:http://www.foxtable.com/webhelp/topics/1212.htm