Microsoft Access 掲示板

レポートについて / 5

5 コメント
views
4 フォロー
5

レポートの詳細セクションのフォーマット時のイベントプロシージャに下記のようなコードを記述することで、強制的に10レコード毎に改ページします。


'詳細のフォーマット時イベント
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
    If Me.CurrentRecord Mod 10 = 0 Then
        Me.詳細.ForceNewPage = 2  'カレントセクションの後で改ページ
    Else
        Me.詳細.ForceNewPage = 0  '改ページしない
    End If
End Sub

下余白はなるべく小さくしておいて、自動改ページしないようにしておきます。

この2ページ目はレコードがある部分だけ罫線が入り他は何もない空白になります.
この状態があまり見栄えがよろしくないのと、手書きに追記出来るように
レポート出力時空データを作り罫線を作っています.

そういう目的なら、下記で紹介している方法で空データを作成することなくご希望のことか可能です。

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

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

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

通報 ...