グループヘッダーの[フォーマット時]イベントに Page = 1 を記載。 Private Sub グループヘッダー0_Format(Cancel As Integer, FormatCount As Integer) Page = 1 End Sub