VBのソースは下記です。 --------------------------------------------------------------------------------- Dim dtPrint As New DataTable '印刷データ用Datatable '上記データテーブルの値はTEST.rrdt参照
'下記で実行をしています---------------------------------------------------------- Dim cCustomizer As New Customizer'コンテント変更クラス
'TEST_Markサブページとして生成 Dim subReport As New Report(json.Read("report\\TEST_Mark.rrpt"), cCustomizer) subReport.Fill(New data.ReportDataSource(dtPrint)) Dim subPages As ReportPages = subReport.GetPages()
'TEST帳票出力処理 Dim report As New Report(json.Read("report\\TEST.rrpt"), cCustomizer) ' 外枠帳票にサブページを登録します report.AddSubPages("Mark", subPages) ' 外枠帳票の中でサブページが正しく割り当てられるようにSubPageDataSourceを渡します report.Fill(New data.SubPageDataSource(subPages, Nothing, "page1"))
Dim pages As ReportPages = report.GetPages() '帳票定義 設定ファイルの設定 pPrinter = New Printer(pages)