丢失的表头

在命令窗口执行下面的代码:

Dim doc As New PrintDoc '定义一个报表
Dim
rt As New prt.RenderTable() '定义一个表格对象
doc.Body.Children.Add(rt)
'将表格对象加入到报表中
rt.Style.GridLines.All = New prt.Linedef
'将网格线设为默认类型
rt.CellStyle.Spacing.All =
0.5 '内容距离网格线0.5毫米
rt.Rows(
0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '第一行内容水平居中
rt.Rows(
0).Style.TextAlignVert = prt.AlignVertEnum.Center '第一行内容垂直居中
rt.Rows(
0).Style.BackColor = Color.LightGray '第一行背景颜色设为灰色。
'下面的代码向表格中填入值

For
c As integer = 0 to 5
    rt.Cells(
0, c).Text = "第" & (c + 1) & "列"
Next
For
r As Integer = 1 To 200
   
For c As integer = 0 to 5
        rt.Cells(r,c).Text = r &
"," & c
    Next
Next

doc.Preview()
'预览报表

执行结果:

显然,灰色的第一行是作为表头使用的,但是现在的问题是,这一行只在第一页打印,导致从第二页开始,就没有表头了。
如何才能让表头在每一页都打印呢,这是我们接下来要解决的问题。


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