おやじプログラマー日記 : VB.NET:ActiveReports.NET 9.0J で複数のセクションレポートを統合する印刷処理

GrapeCityの「ActiveReports.NET 9.0J」を使っているのですが、 1個の印刷処理内で、どうしても複数のセクションレポートを統合する必要が発生しました。

昔の「ActiveReports」だと空の印刷オブジェクトを作っておいて、それに各印刷オブジェクトを追加してやる方法が在った様に覚えていたのですが、ネットで探してもそのような例は見つかりませんでした。

1個のセクションレポートに対して後から発生する他のセクションレポートを追加していく方法しかネットには載っていませんでしたので、何とか改良して複合的に行える様にしたのが、以下の例です。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    '印刷オブジェクトを統合するセクションレポートオブジェクト
    Dim rptMain As SectionReport = Nothing

For i As Integer = 0 To 9
        If (i Mod 2) = 0 Then
            '偶数の場合
            If rptMain Is Nothing Then
                '初めての場合
                rptMain = New rptEven() 'rptEven:偶数処理用のレポート
                rptMain.Run(True)
            Else
                'rptMainが生成されている場合
                Dim rpt As New rptEven()
                rpt.Run(True)
                '印刷用のオブジェクトに追加
                rptMain.Document.Pages.AddRange(rpt.Document.Pages)
            End If
        Else
            '奇数の場合
            If rptMain Is Nothing Then
                '初めての場合
                rptMain = New rptOdd()  'rptOdd:奇数処理用のレポート
                rptMain.Run(True)
            Else
                'rptMainが生成されている場合
                Dim rpt As New rptOdd()
                rpt.Run(True)
                '印刷用のオブジェクトに追加
                rptMain.Document.Pages.AddRange(rpt.Document.Pages)
            End If
        End If
    Next
    '表示
    Dim _viewerForm As New PreviewForm(rptMain.Document, Me)
    _viewerForm.ShowDialog()
End Sub

この例の前提として、「rptEven」「rptOdd」というセクションレポートのクラスが作成済みであることとします。

最初に印刷オブジェクトを統合するセクションレポートオブジェクトとして「rptMain」を宣言します。
その後、10回のループで偶数と奇数の回数の時にそれぞれ「rptEven」「rptOdd」のオブジェクトを生成して、「rptMain」の印刷オブジェクトに追加しています。

偶数回と奇数回での処理で、「rptMain」が「Nothing」であるかを確認し、初回の処理を行っています。
実際には奇数回の「rptMain」が「Nothing」であるかの確認は必要はありませんが、ループ処理において、どちらが先に来てもいいように考えました。

もっと簡単な方法があるかもしれませんが、何かの参考になればと思います。

ゼロから分かるActiveReports帳票開発入門 (CodeZine BOOKS)