主题：[求助]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