主题：专业报表的多页打印问题

我是想设置每页打印六行，剩下的下页打印，我设置好之后多了一页空白页，请各位高手帮我瞧瞧

代码如下：

Dim doc As New PrintDoc '定义一个新报表

doc.AutoRotate = False '禁止自动旋转打印内容
doc.PageSetting.Width = 210 '纸张宽度
doc.PageSetting.Height =297 '纸张高度
Doc.PageSetting.LeftMargin = 5 '设置左边距
Doc.PageSetting.RightMargin = 5 '设置右边距
Doc.PageSetting.TopMargin = 3 '设置上边距
Doc.PageSetting.BottomMargin = 1 '设置下边距

''''++++++++++++++++++''''定义表头及表尾文字
Dim dr As Row = Args(2)
Dim tb As Table = Args(3)

If Args(1) <> "重打" Then
    Dim cmd As new SQLCommand
    cmd.C
    cmd.CommandText = "update sc_ddzb set dy = 1 where scph = '" & Trim(dr("订单编号")) & "'"
    cmd.ExecuteScalar()
End If

Dim ir As Integer
If tb.Rows.Count Mod 6 = 0 Then
    ir = tb.Rows.Count / 6
Else
    ir = tb.Rows.Count / 6 + 1
End If

For i As Integer = 0 To ir - 1
    'MessageBox.Show(1 + i)
    Dim ra As New prt.RenderArea '定义一个容器
    'ra.Height = 250
    ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never  '禁止容器因为分页而被垂直分割
    Dim rt1,rt2,rt3,rt4,rt5,rt6,rt7,rt8 As New prt.RenderText '定义文本对象
    'For i As Integer = tb.TopRow To tb.BottomRow
    rt1.Text = "高宏饰品生产总单"
    rt1.Style.Font =  New Font("华文细黑", 24 )
    rt1.Style.TextAlignHorz = prt.AlignHorzEnum.Center '居中
    rt1.Style.FontBold = True '加粗
    rt1.y = 14  '指定垂直位置
    ra.Children.Add(rt1)
    'doc.Body.Children.Add(rt1)
   
    rt2.Text = "客户名称:" & dr("客户名称")
    rt2.Style.Font =  New Font("宋体", 12 ) ',
    rt2.x = 6 '指定水位位置
    rt2.y = 27 '指定垂直位置
    'doc.Body.Children.Add(rt2)
    ra.Children.Add(rt2)
    '''''
    rt3.Text = "接单日期:" & dr("接单日期") & "            " & "下单日期:" & Format(dr("下单日期"),"yyyy-MM-dd")
    rt3.Style.Font =  New Font("宋体", 12 ) ',
    rt3.X = 72 '指定水平位置
    rt3.y = 27 '指定垂直位置
    'doc.Body.Children.Add(rt3)
    ra.Children.Add(rt3)
    '''''
    rt4.Text = "订单编号:" & dr("订单编号")
    rt4.Style.Font =  New Font("宋体", 12 ) ',
    rt4.x = 6
    rt4.y = 33 '指定垂直位置
    'doc.Body.Children.Add(rt4)
    ra.Children.Add(rt4)
   
    rt5.Text = "交货日期:" & dr("交货日期") & "            " & "操 作 人:" & dr("操作员")
    rt5.Style.Font =  New Font("宋体", 12) ',
    rt5.X = 72 '指定水平位置
    rt5.y = 33 '指定垂直位置
    'doc.Body.Children.Add(rt5)
    ra.Children.Add(rt5)
   
    rt6.Text = "总共" & ir & "页 第" & i +1 & "页"
    rt6.Style.Font =  New Font("宋体", 10) ',
    rt6.X = 174 '指定水平位置
    rt6.y = 38 '指定垂直位置
    'doc.Body.Children.Add(rt5)
    ra.Children.Add(rt6)
   
    '''''
    Dim rt As New prt.RenderTable '定义一个新表格
    rt.X = 4 '指定水平位置
    rt.y = 42 '指定垂直位
   
    Dim ColNames As String() = New String(){"产品编号", "产品名称", "图片","工艺","效果要求","包装要求","数量"}
    ''''''''''''''''''设置列宽
    rt.Width = "Auto" '表格宽度为自动,也就是等于各列设置宽度之和
    rt.Cols(0).Width = 18  '产品编号
    rt.Cols(1).Width = 18  '产品名称
    rt.Cols(2).Width = 40  '图片
    rt.Cols(3).Width = 24  '工艺
    rt.Cols(4).Width = 50   '效果要求
    rt.Cols(5).Width = 24   '包装要求
    rt.Cols(6).Width = 15  '数量
   
    '''''''''''''''填入内容
    Dim cmd As new SQLCommand
    cmd.C
    For c As Integer = 0 To ColNames.Length - 1 '逐列设置和填入内容
        rt.Cells(0,c).Text = ColNames(c) '列名作为标题
        rt.Cells(0,c).Style.TextAlignHorz = prt.AlignHorzEnum.Center '标题内容水平居中
        If tb.Cols(ColNames(c)).IsNumeric OrElse tb.Cols(ColNames(c)).IsDate Then '如果是数值或日期列
            rt.Cols(c).Style.TextAlignHorz = prt.AlignHorzEnum.Right '数据水平靠右
        Else
            rt.Cols(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '生产批号居中
            rt.Cols(4).Style.TextAlignHorz = prt.AlignHorzEnum.left '计价居中
            rt.Cols(5).Style.TextAlignHorz = prt.AlignHorzEnum.Center '单位居中
            'rt.Cols(6).Style.TextAlignHorz = prt.AlignHorzEnum.left '单位居中
        End If
        For r As Integer = 0 To tb.Rows.Count -1 '开始填入该列内容
            rt.Cells(r + 1, c).Text = tb.Rows(r)(ColNames(c))
           
            cmd.CommandText = "select tp from yp_cptp where cpbh = '" & tb.Rows(r)(ColNames(0)) & "'"
            If cmd.ExecuteScalar() IsNot Nothing Then
                Dim imageByte() As Byte = cmd.ExecuteScalar()    '查询数据,并存入字节数组
                Dim ms As New IO.MemoryStream(imageByte)         '将字节数组转换为二进制流
                Dim image As Image = Image.FromStream(ms)        '将二进制流转换为图片
                Dim rm As New prt.RenderImage() '定义一个图片对象
                rm.Image = image '请改为实际的图标名称和路径
                rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center '图片水平居中
                rm.Style.ImageAlign.AlignVert = prt.ImageAlignVertEnum.Center '图片垂直居中
                rm.Style.ImageAlign.KeepAspectRatio = True
                rm.Height = 45
                rm.Width = 45
                rt.Cells(r + 1, 2).RenderObject = rm
            Else
                rt.Cells(r + 1, 2).RenderObject = Nothing
            End If
        Next
    Next
   
    ''''''''''''以下代码确保数据行数为7行
    For c As Integer = 0 To ColNames.Length - 1 '逐列设置和填入内容
        For r1 As Integer = tb.Rows.Count + 2 To 6 '开始填入该列内容
            rt.Cells(r1, c).Text = ""
        Next
    Next
    For r2 As Integer = 0 To rt.Rows.Count -1
        rt.Rows(r2).Height = 32.5 '行高
        rt.Rows(r2).Style.TextAlignVert = prt.AlignVertEnum.Center '文字垂直居中
        rt.Rows(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '第一行内容水平居中
    Next
    '''''''''''
    rt.Rows(0).Height = 10  '设置表头行高
    rt.Rows(7).Height = 13  '设置表头行高
    rt.Cells(7,0).SpanCols = 7 '第7行第1个单元格向右合并5列
    rt.Cells(7,0).text = "  生产经理:                                                                                                                          " & _
    "下单员:" & Vars("UserName")
    rt.Rows(7).Style.TextAlignVert = prt.AlignVertEnum.Center '文字垂直居中
    rt.Rows(7).Style.TextAlignHorz = prt.AlignHorzEnum.Center
    rt.Cells(7,0).Style.TextAlignHorz = prt.AlignHorzEnum.left
   
    rt.Style.GridLines.All = New Prt.LineDef(0.2, Color.Black) '所有边框
    rt.Style.GridLines.Bottom = New Prt.LineDef(0.5, Color.Black) '下边框
    rt.Style.GridLines.Left = New Prt.LineDef(0.5, Color.Black) '左边框
    rt.Style.GridLines.Right = New Prt.LineDef(0.5, Color.Black) '右边框
    rt.Style.GridLines.Top = New Prt.LineDef(0.5, Color.Black) '上边框
   
    'rt.BreakAfter = prt.BreakEnum.page   '打印之后另起一栏
    ra.Children.Add(rt)
    'ra.BreakAfter = prt.BreakEnum.page
    doc.Body.Children.Add(ra) '将文本对象加入到报表
Next

doc.Preview()
'doc.Print()