ActiveReportsでグループごとで改ページするには？ (ID:84033)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 GroupValueで調査させていただき下記の内容でできました。 S.S さんありがとうございました。 Private Sub ActiveReport_ReportStart() GroupHeader1.GroupValue = DataControl1.Recordset.Fields("コード1").Value End Sub Private Sub Detail_Format() If Not GroupHeader1.GroupValue = DataControl1.Recordset.Fields("コード1").Value Then '行数による空打ち処理 If NowRowCount < MaxLine Then LayoutAction = 2 NowRowCount = NowRowCount + 1 Exit Sub End If GroupHeader1.GroupValue = DataControl1.Recordset.Fields("コード1").Value Else GroupHeader1.GroupValue = DataControl1.Recordset.Fields("コード1").Value End If End Sub