把分页做在页眉上

佩服楼主的韧劲:(

就是不会动脑想想，页面页眉上的记录编号是第一条（1，11，21等），页脚上对应的编号是当页中最后一条（10，20，30等），其实放在页眉上更简单，不用考虑最后一页的图书情况，用下面的代码就可以了：

Private Sub 页面页眉_Format(Cancel As Integer, FormatCount As Integer)
      
       Me.页合计 = 0
   Dim Num As Integer
   Num = DCount("*", "表AB新", "凭证号=" & Me.[凭证号])
   Num = IIf(Num Mod 10 = 0, Num \ 10, Num \ 10 + 1)
    
   Me.Txx = (izz \ 10 + 1) & "/" & Num

End Sub