丢失的表头

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

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

执行结果：

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