複数レイアウトの作成について②

[TT]

rapidreportで複数の帳票を1PDFファイルで出力したいと考えています。

言語はVBになります。

タイトル「複数レイアウトの作成について」(2016年の投稿)を元に作成しようとしているのですが、「pages1.addAll(pages2)  」の部分でエラーになってしまい困っています。

Dim report1 As New Report(Json.Read("example1.rrpt"))

report1.Fill(New ReportDataSource(dataTable1))

Dim pages1 As ReportPages = report1.GetPages()

Dim report2 As New Report(Json.Read("example1.rrpt"))

report2.Fill(New ReportDataSource(dataTable2))

Dim pages2 As ReportPages = report2.GetPages()

pages1.addAll(pages2)  

こちらは、現在 ReportPages クラスの仕様として、addAllメソッドをサポートしていないことに起因するものと思料いたします。

現在のプログラムの書き方をご教示願います。

どうぞよろしくお願いいたします。

[RapidReport]

吉川です。

AddAllをAddRangeに書き換えて下さい。

例）

        Dim report1 As New Report(Json.Read("example1.rrpt"))

        report1.Fill(New ReportDataSource(dataTable1))

        Dim pages1 As ReportPages = report1.GetPages()

        Dim report2 As New Report(Json.Read("example2.rrpt"))

        report2.Fill(New ReportDataSource(dataTable2))

        Dim pages2 As ReportPages = report2.GetPages()

        pages1.AddRange(pages2)

[TT]

吉川様

お世話になっております。

早速ご回答くださり、ありがとうございました。

実装することができました。

よろしくお願いいたします。

2021年11月12日金曜日 14:59:09 UTC+9 RapidReport: