複数レポートのページ番号連携

例えば「レポート1」「レポート2」という名前のレポートがあるとします。「レポート1」を印刷した後に「レポート2」を印刷したいけど、この際、ページがつながっているようになればいいのにという問題を解決する方法です。

「レポート1」にはページフッターにページ数が入るようになっています。次に「レポート1」のページ数を取得するため標準モジュールに次のような関数を作成します。

Public Function PageNum() On Error Resume Next PageNum = Reports!レポート1.Page End Function

「レポート2」のページフッターのページ数が入るテキストボックスのプロパティのコントロールソースに「=PageNum()+[Page] & "ページ"」と入力します。 「レポート1」の方は「=[Page] & " ページ"」のままです。 ただし、この方法は、「レポート1」が開いている状態で「レポート2」も開くようにしなければエラーとなります。 また、「レポート1」も最後のページまで表示させてから、「レポート2」を開くようにしなければページがつながらないので、ご注意ください。