以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何在每页都加上标题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=12800)
--  作者：7032175
--  发布时间：2011/9/15 15:00:00
--  如何在每页都加上标题

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

 

 

这是帮助里面的文件   但是只能在一个页面里面加上标题 我想在每页里面都加上同样的标题实何实现，请狐爸爸教一下。
--  作者：狐狸爸爸
--  发布时间：2011/9/15 15:06:00
--  

用一个大大的页眉，当做标题？

 

http://www.foxtable.com/help/topics/1197.htm

 
--  作者：yangming
--  发布时间：2011/9/15 15:13:00
--  
Doc.PageHeader = rs　＇　　做为页眉
--  作者：yangming
--  发布时间：2011/9/15 15:32:00
--  

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 = 60 \'设置行数
rt.Cols.Count = 3 \'设置列数
For i As Integer = 1 To rt.Rows.Count
rt.Rows(i).Height = 6 \'设置行高
Next
rs.Text = "表格标题" \'设置文本对象的内容
rs.Style.Spacing.Bottom = 10 \'标题和后续对象的垂直间隔为10毫米

rs.Style.Font = New Font("宋体", 24 , FontStyle.Bold) \'设置文本对象的字体
rs.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'文本内容水平居中
Doc.PageHeader = rs
doc.Body.Children.Add(rt) \'将表格对象加入到报表中

Doc.Preview() \'预览报表