おやじプログラマー日記

最近昔のソフトの改修で触ったのですが【ActiveReports 2.0J】(これ結構古いですが)を使って 2個のレポートを1個に合体させて1個のレポートにする要請がありました。

ActiveReports 2.0J も古いですが、BASICもVisualBasic6.0(SP-5)なのでこちらもかなりなものです。
そこでネットに転がっているかなと思ったので調べたら、以下の様な方法で出来るようです。


以下にソースでは ActiveReports1 と ActiveReports2 と宣言したアクティブレポートが存在するものとし、 ActiveReports1 の後ろに ActiveReports21 のレポートを追加することを想定しています。 また、2個のアクティブレポートとも紙の大きさは同じものとします。
Dim i As Integer 'レポートオブジェクトの生成 Dim rpt1 As New ActiveReports1 Dim rpt2 As New ActiveReports2 'レポート1の実行 'rpt1.DataControl1.Source = "SELECT ..." 'rpt1.DataControl1.ConnectionString = "Provider=SQLOLEDB;Data Source=XXX;Initial CatalogYYYY;User Id=ZZZ;Password=zzzz;" rpt1.Run False 'レポート2の実行 'rpt1.DataControl1.Source = "SELECT ..." 'rpt1.DataControl1.ConnectionString = "Provider=SQLOLEDB;Data Source=XXX;Initial CatalogYYYY;User Id=ZZZ;Password=zzzz;" rpt2.Run False 'レポートの追加 For i = 0 To rpt2.Pages.Count - 1 rpt1.Pages.Insert rpt1.Pages.Count, rpt2.Pages(i) Next i '印刷の設定 rpt1.Printer.FromPage = 1 rpt1.Printer.ToPage = rpt1.Pages.Count rpt1.Printer.MaxPage = rpt1.Pages.Count 'ページコミット rpt1.Pages.Commit 'レポートやビューワは最新のPagesコレクションで満たされます。 '印刷の実行 rpt1.PrintReport False
尚、各レポートの DataControl1 はデータベースへのアクセスがある場合の例です。