[5分]如何克服“打印到最后一页只要Report Footer而不要Page Footer”一文所述方法存在的缺陷？

原文地址：

http://www.accessoft.com/article-show.asp?id=686

照着这个方法做的话存在一种可能，就是当最后一页刚好撑满时，报表会多出一页，多出的这一页上没有任何记录，只有一个报表页脚。

我尝试了各种方法，发现原因是在一开始计算页数的时候会当成页面页脚和报表页脚都显示，这样就会多算一页

我尝试在pages=0，也就是计算总页数的时候控制页面页脚和报表页脚的visible，始终无法达成理想的效果，access似乎无法在pages=0时灵活的根据页面页脚和报表页脚的visible属性计算出正确的页数，要么就会出现非末页的页面页脚打不出来的结果，以下是我尝试的代码

Option Compare Database
Option Explicit
Dim shengyugeshu As Long '剩余的行数
Const meiyegeshu = 9 '存在页面页脚时每页最大行数

Private Sub 报表页脚_Format(Cancel As Integer, FormatCount As Integer)
If Pages = 0 Then
    If shengyugeshu <= meiyegeshu Then  '最后一页
        Me.报表页脚.Visible = True
        Else
        Me.报表页脚.Visible = False
    End If
Else
    Me.报表页脚.Visible = True
End If
End Sub

Private Sub 页面页脚_Format(Cancel As Integer, FormatCount As Integer)
If Pages = 0 Then
    If shengyugeshu <= meiyegeshu Then '最后一页
        Me.页面页脚.Visible = False
    Else
        Me.页面页脚.Visible = True
        shengyugeshu = shengyugeshu - meiyegeshu
    End If
Else
    If Page = Pages Then
    Me.页面页脚.Visible = False
    Else
    Me.页面页脚.Visible = True
    End If
End If
End Sub