Accessのレポートでページ番号がプレビューと印刷をした時で異なる

Question

Accessのレポートを作成しています。

ページフッターにグループ毎のページ番号／グループ毎の総ページ数を出力するよう作成したのですが、

プレビューでは正しく出力できているのに、印刷ボタンを押すたびに１/１→２/１→3/１とページ数が

増えていきます。

解決方法を教えてください。

Answer 1

レポートの改ページ設定を変更したところ、プレビュー時・印刷時ともに正常にページ数が出力されるようになりました。

ご回答ありがとうございました。

Answer 2

この部分の実際のコードを提示してください。（提示されたコードはこの部分ではないでよね。）

下記のページの方法も参考にしてみてはどうでしょうか。

この方法はワークテーブルは不要です。

グループ毎に Page/Pages 形式のページ数を表示する - hatena chips

申し訳ありません、記述誤りです。

正しくはレポートヘッダーではなく、ページヘッダーです。

コードは先に記載したものになります。

また、教えていただいた方法ですが

同レポートを他の処理から出力するレポートとしても使用しているため、他処理で影響が出ないようレポートの設定を変更しない方法で対応したいと考えております。

Answer 3

グループ番号用の変数とページ番号用の変数はレポートのオープン時に初期化しています。

また、グループ毎の総ページ数はワークテーブルから出力しています。

上記の場合、初期化処理の記述場所がレポートのオープン時となっているため、初回のみ初期化されるのでページ数が印刷するたびに加算されていました。

そのため、レポートヘッダーのフォーマット時に変数の初期化処理を記述しましたが、この場合、プレビューでは全ページのグループ毎のページ数が１となってしまいます。

この部分の実際のコードを提示してください。（提示されたコードはこの部分ではないでよね。）

下記のページの方法も参考にしてみてはどうでしょうか。

この方法はワークテーブルは不要です。

グループ毎に Page/Pages 形式のページ数を表示する - hatena chips

Answer 4

ページフッターのフォーマット時に、グループ番号用変数と現在参照しているグループ番号が同じ場合にグループ毎のページ番号を加算してページ数を出力しています。

異なる場合は、グループ毎のページ番号の初期化およびグループ番号用の変数に現在参照しているグループ番号を格納し、ページ数を出力しています。

グループ番号用の変数とページ番号用の変数はレポートのオープン時に初期化しています。

また、グループ毎の総ページ数はワークテーブルから出力しています。

上記の場合、初期化処理の記述場所がレポートのオープン時となっているため、初回のみ初期化されるのでページ数が印刷するたびに加算されていました。

そのため、レポートヘッダーのフォーマット時に変数の初期化処理を記述しましたが、この場合、プレビューでは全ページのグループ毎のページ数が１となってしまいます。

参考にしたページのURLは以下の通りです。

　http://www.accessclub.jp/bbs2/0103/beginter31498.html

よろしくお願いいたします。

<やりたいこと>

グループ番号　　グループ毎の総ページ数　　出力したいページ数

-----------------　-----------------------------　 ------------------------

１　　　　　　　　１　　　　　　　　　　　１／１

２　　　　　　　　２　　　　　　　　　　　１／２

２　　　　　　　　２　　　　　　　　　　　２／２

３　　　　　　　　３　　　　　　　　　　　１／３

３　　　　　　　　３　　　　　　　　　　　２／３

３　　　　　　　　３　　　　　　　　　　　３／３

<記述コード>

ページヘッダーセクション_Format

　グループ毎のページ番号 = 0

　グループ番号 = 0

ページフッターセクション_Format

　If グループ番号 <> 現在参照しているグループ番号 Then

　　グループ毎のページ番号 = 1

　　グループ番号 = 現在参照しているグループ番号

　Else

　　グループ毎のページ番号 = グループ毎のページ番号 + 1

　End If

　レポート項目名 = グループ毎のページ番号／ グループ毎の総ページ数

Answer 5

グループ毎のページ番号／グループ毎の総ページ数を表示するには、VBAが必須ですが、

具体的にどのような設定をして、どのようなコードを記述しましたか。

詳細に説明してください。

また、参考にしたページがあるなら、それのリンクも提示してください。