【WR30】プレビュー表示について

[HogeHoge]

２つのW30ファイルをLoadして１つの帳票イメージとして２頁
プレビュー表示させる・・ということは可能でしょうか？

もし可能であれば大筋の手順をご教示いただけませんでしょ
うか？

[伊藤＠ソフトウィング]

日頃より弊社製品をご利用いただきまして、誠にありがとうございます。

２頁プレビューとはマルチプレビューの事で宜しいでしょうか？
以下が２帳票をマルチプレビューを使用し、プレビューの出力を行うサンプルとなります。
サンプルはVBになっておりますので、ご参考にして下さい。

——————————————————-

‘レポートオブジェクトを宣言します
Dim oWRReport1 As WRReport
Dim oWRReport2 As WRReport

‘レポートオブジェクトをロードします
Set oWRReport1 = Me.WR3AXCL1.LoadReport(App.Path & “\帳票１.w30”)
Set oWRReport2 = Me.WR3AXCL1.LoadReport(App.Path & “\帳票２.w30”)

‘プレビューオブジェクトを作成します（プレビューオブジェクトはグローバルです）
If oWRPreview Is Nothing Then
Set oWRPreview = Me.WR3AXCL1.CreatePreview
End If

With oWRPreview

‘プレビューを表示します
.OpenPreview wrPREVIEWMODE_OVERLAP

‘レポートを出力します
.ReportPrint oWRReport1
.ReportPrint oWRReport2

‘マルチプレビューを設定します
.PreviewMode = wrPREVDSPMODE_MULTIH

End With

‘レポートオブジェクトを削除します
If Not oWRReport1 Is Nothing Then
oWRReport1.Delete
Set oWRReport1 = Nothing
End If

‘レポートオブジェクトを削除します
If Not oWRReport2 Is Nothing Then
oWRReport2.Delete
Set oWRReport2 = Nothing
End If

——————————————————-

以上、宜しくお願い致します。

[HogeHoge]

サンプル提示ありがとうございました。
難しく考えすぎていたようです。
おかげさまで解決しました。

[投稿者]

投稿