レコードがない場合も用紙の最後まで罫線を出力する方法

Question

お世話になります。

タイトルの件、AC97にて下記の方法があります。

この方法は、ACCESS2003でも有効でした。

http://support.microsoft.com/kb/404909/ja

しかし、この方法をACCESS2010で利用すると、うまくいかないケースがあります。

例えば、１ページに１５行印刷するようにした時、２ページ目の最終行がたまたま

レコードの終わりの時。（トータルレコードが３０レコードの時）

２ページ目の最終行が印刷されず、３ページ目に罫線のみの空白ページが印刷され、

４ページ目の途中まで、罫線のみが印刷されます。

回避方法をご存知の方、よろしくお願いします。

Answer 1

その方法は、VBAのコード量も多く、VBAとレポートのイベントのメカニズムを理解していないと使いこなすのは難しいですね。

レポートのプロパティの設定やレイアウトでうまく行かない場合も多々あるようですが、実物を見ないでそれを特定するのはなかなか困難です。

別方法の提案ですが、下記で紹介している方法はVBAコードも1行ですし、比較的シンプルでトラブルが少ないのでお勧めです。

レコードがない場合も用紙の最後まで罫線を出力する - hatena chips

他にも下記の方法がありますので、試してみてください。

レコードがない場合も用紙の最後まで罫線を出力する関数

レコードがない場合も用紙の最後まで罫線を出力する NextRecord版

Answer 2

hatena19 様

ありがとうございます。

無事解決しました。

また、機会がありましたらよろしくお願いします。