Report_改ページコントロールを利用した改ページの方法

　改ページをしたい場所に「改ページコントロール」を配置します。レコードレベルで改ページしたいときは「詳細」に、グループレベルで改ページしたいときは、そのグループフッターあるいはグループヘッターに配置します。
　「改ページ」コントロールをレポートに配置すると、レポートの左端に、点線で「・･･・」のように表示されます。コントロールのデータを分割しないように、コントロールの上または下に配置します（右の図では下に配置しています）。改ページコントロールを[詳細]セクション内の一番上に配置すれば、その行を印刷する前に改ページが行われ、一番下に配置するその行が印刷された後に改ページが行われます。
　VBで改ページするときは、この改ページコントロールの[Visible/可視]プロパティを「False」に設定しておき、改ページをしたいとき「True」に設定します。

（注）改ページコントロールのプロパティウィンドウには[Visible/可視]というプロパティは表示されません。またコード上で「ドット」を入力すると表示される「プロパティ/メソッドの一覧」にも出てきませんが
　 Me.改ページ.Visible = True
のように手入力してください。

印刷データに連番フィールド（ここでは名前を「CD」としておきます）があって、１，２，３，４、・・・のように連続した数値が格納されている場合、次のようにします。

上の図のように改ページコントロール（名前を「改ページ」としておきます）を配置します。
「並べ替え/グループ化ダイアログボックス」で、ｃｄフィールドを選択し「昇順」を選択します。
詳細の印刷時イベントに次のようなコードを記述します。1ページ40行で印刷されます。

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
  If Me!cd Mod 40 = 0 Then
     Me.改ページ.Visible = True
  Else
     Me.改ページ.Visible = False
  End If
End SubこれをVBAで実行するには

印刷データに上のような連番フィールドが無い場合は、あるいはあってもこれを使用しない場合は、次のようにします。

上の図のように改ページコントロール（名前を「改ページ」としておきます）を配置します。
宣言セクションでモジュールレベルの変数「lngcount」（行数カウント用）を宣言します。

Option Compare Database

Option Explicit
Dim lngcount As Long

レポートヘッダーのフォーマット時イベントにつぎのコードを記述します。。

Private Sub レポートヘッダー_Format(Cancel As Integer, FormatCount As Integer)
 lngcount = 0
 Me.改ページ.Visible = False
End Sub

詳細のフォーマット時イベントに次のコードを記述します。

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
  lngcount = lngcount + 1
  If lngcount = 30 Then
     Me.改ページ.Visible = True
     lngcount = -1
  Else
     Me.改ページ.Visible = False
  End If
End Sub

【解説】1ページ３０行で印刷されます。「 lngcount = -1」の部分を「 lngcount = 0」に変更すると２ページ目から１ページに29行しか印刷されてしまいます。

レポートを、グループ毎に改ページして印刷するには、次のようにします。

「並べ替え/グループ化ダイアログボックス」でグループ化したいフィールドを選択して、グループヘッダー、グループフッターを「はい」に設定します。
グループフッターに改ページコントロール（名前を「改ページ」としておきます）を配置します。フッターの高さは最小限に調整しておきます。この高さが高い場合、途中に空白ページができる場合があります。
レポートヘッダーのフォーマット時イベントに次のコードを記述します。

Private Sub レポートヘッダー_Format(Cancel As Integer, FormatCount As Integer)
  Me.改ページ.Visible = True
End Sub