主题：[求助]Excel报表容量问题

有一Excel报表每一记录占一页，当记录数超过1370行时，报表不正常甚至导致主机报警死机。

不正常

此主题相关图片如下：2010-12-15 10-32-12.png

正常时预览

此主题相关图片如下：2010-12-15 10-58-19.png

有什么解决方法？
With Tables("申请表")
    .Select(0 ,0, .Rows.Count - 1, .Cols.Count - 1)
End With
If Forms("选项").Controls("ComboBox1").Value >"" Andalso Forms("选项").Controls("ComboBox2").Value >"" Then
    Dim Book As New XLS.Book(ProjectPath & "Attachments\登记表.xls") '打开模板
    Book.Build() '生成细节区
    Book.Save("d:\My Documents\Reports\登记表.xls") '保存工作簿
    Dim Proc As New Process '打开工作簿
    Proc.File ="d:\My Documents\Reports\登记表.xls"
    Proc.Start()
End If

怎么用循环来打印或预览？

我想个笨办法，先判断行数，不会写代码

If Forms("选项").Controls("ComboBox1").Value >"" AndAlso Forms("选项").Controls("ComboBox2").Value >"" Then
    If ("_Identify") < 1370 Then
        With Tables("申请表")
            .Select(0 ,0, .Rows.Count - 1, .Cols.Count - 1)
        End With
        Dim Book As New XLS.Book(ProjectPath & "Attachments\核实表.xls") '打开模板
        Book.Build() '生成细节区
        Book.Save("d:\My Documents\Reports\核实表.xls") '保存工作簿
        Dim Proc As New Process '打开工作簿
        Proc.File ="d:\My Documents\Reports\核实表.xls"
        Proc.Start()
    End If
Else
    MessageBox.Show("手工选定行数","提示")
End If

加上也不行的

已经实现了半自动：

先执行

If Forms("选项").Controls("ComboBox1").Value >"" AndAlso Forms("选项").Controls("ComboBox2").Value >"" Then
    For i As Integer = 0 To Tables("申请表").Rows.Count -1 Step 1370
        With Tables("申请表")
            .Select(i, 0, math.min(i + 1369,.rows.count -1), .cols.count -1)
        End With
        Dim Book As New XLS.Book(ProjectPath & "Attachments\登记表.xls") '打开模板
        Book.Build() '生成细节区
        Book.Save("d:\My Documents\Reports\登记表.xls") '保存工作簿
        Dim Proc As New Process '打开工作簿
        Proc.File ="d:\My Documents\Reports\登记表.xls"
        Proc.Start()
    Next
END IF

此主题相关图片如下：2010-12-17 9-22-21.png

下面窗口弹出说明已经超过1370行（不超过不弹出），后面还有记录被选中没有生成报表

此主题相关图片如下：2010-12-17 9-17-43.png

此主题相关图片如下：2010-12-17 8-24-54.png

接着执行

此主题相关图片如下：2010-12-17 9-18-45.png

If Forms("选项").Controls("ComboBox1").Value >"" AndAlso Forms("选项").Controls("ComboBox2").Value >"" Then
    Dim Book As New XLS.Book(ProjectPath & "Attachments\登记.xls") '打开模板
    Book.Build() '生成细节区
    Book.Save("d:\My Documents\Reports\登记.xls") '保存工作簿
    Dim Proc As New Process '打开工作簿
    Proc.File ="d:\My Documents\Reports\登记.xls"
    Proc.Start()
END IF

 全部记录生成报表形成两个文件登记.xls  登记表.xls

上面的过程需要人工判断能不能来个全自动的