Access グループごとのページ／総ページ 表示がおかしい

よろしくお願いします。

　見出しのとおりのことを実現しようと考え，以下のようなコードを書きました。
するとページヘッダーセクションに配置した「ページ表示」には１／３　２／３　３／３と正しく表示されるのですが，ページフッターセクションに配置した「ページ表示２」には１／３　２／３　０／３となってしまします。（最終ページが０／＊　になります。）

　どなたかご教授ください。

Dim gps(50) As Integer 'グループ毎のページ数を保存する配列
Dim i As Integer

Private Sub レポートヘッダー_Format(Cancel As Integer, FormatCount As Integer)
i = 0
End Sub

Private Sub グループフッター0_Format(Cancel As Integer, FormatCount As Integer)
If FormatCount = 1 Then
If Pages = 0 Then gps(i) = Page
i = i + 1
Page = 0
End If
End Sub

Private Sub ページヘッダーセクション_Format(Cancel As Integer, FormatCount As Integer)
If Pages > 0 Then ページ表示 = Page & "/" & gps(i)
End Sub

Private Sub ページフッターセクション_Format(Cancel As Integer, FormatCount As Integer)
If Pages > 0 Then ページ表示２ = Page & "/" & gps(i)
End Sub

質問者からの補足コメント

• 回答ありがとうございました。
  残念ながらできませんでした。
  ちなみにページ設定２はページフッターセクションに配置しています。

  No.1の回答に寄せられた補足コメントです。 補足日時：2016/06/16 15:33

No.1 回答者： y504 回答日時： 2016/06/16 10:03

原因は調べていませんけど

Private Sub ページヘッダーセクション_Format(Cancel As Integer, FormatCount As Integer)
If Pages > 0 Then
　ページ表示 = Page & "/" & gps(i)
　ページ表示２ = Page & "/" & gps(i)
End If
End Sub

これでできませんか？