[WR3.0]マルチページ印刷機能の使用方法について

[佐藤]

マルチページ印刷機能を利用して、Ａ４縦、Ａ４横の２種類のレポートを1ジョブで印刷（プレビュー)したいと考えているのですが、具体的な使用方法がわかりません。具体的な説明、およびサンプルコードを御教示いただけませんでしょうか。あるいはヘルプのどの部分に記載があるのか教えていただけませんでしょうか。
よろしくお願いします。

[Hirayama]

いつもお世話になっております。

ご質問の件、下記の通り回答させて頂きます。

デザイナーでA4縦のレポートとA4横のレポートを作成します。
作成したレポートファイル名を
・A4縦.w30
・A4横.w30
とします。

プログラムコードは以下の用に記述します。
変数を宣言します。
Dim objReport1 as WRReport
Dim objReport2 as WRReport
Dim objPreview as WRPreview

２つのレポートファイルをロードします。
Set objReport1 = frm.WR3AXCL1.LoadReport(“～\A4縦.w30”)
Set objReport2 = frm.WR3AXCL1.LoadReport(“～\A4横.w30”)

プレビューオブジェクトを作成します。
Set prwaxPreview = frm.WR3AXCL1.CreatePreview

２つのレポートオブジェクトをプレビューオブジェクトに出力します。
prwaxPreview.ReportPrint waxReport1
prwaxPreview.ReportPrint waxReport2

以上の様にすることにより１ジョブで印刷及びプレビューが可能になります。

[投稿者]

投稿