ClosePreviewメソッドコール時のオートメーションエラーについて

[HogeHoge]

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

WinXPHE、VB6、WR31です。

連続でプレビュー処理をした際、２回目のプレビュー
処理時に１回目の内容が表示される現象に直面してい
ます。

Previewオブジェクトが正しくクローズされていない為
であると考え、プレビュー処理後、Previewオブジェクト
を破棄したくPreviewWndCloseイベントで

Preview.ClosePreview
Set Preview = Nothing

を行っております。この際、ClosePreviewメソッドを
コールしたタイミングでオートメーションエラー（ｺｰﾄﾞ440）
が発生してしまいます。

Previewオブジェクトをクローズする正しい手順をお示し
頂きたくよろしくお願い致します。

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

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

まず、２回目のプレビュー処理時に１回目の内容が表示される現象についてですが、こちらは１回目の表示終了時にReportオブジェクトの「ClearData」メソッドを呼んで頂けますでしょうか。
こちらのメソッドを呼ぶことによりReportオブジェクトの内容がクリアされますので、クリアされた状態で２回目のデータを設定して頂く事で、正常にプレビューが行われると考えられます。

「ClosePreview」のエラーについてですが、こちらのメソッドはプレビューウィンドウを閉じるメソッドになります。PreviewWndCloseイベントはプレビューウィンドウが閉じられた際に発生するイベントになりますので、プレビューウィンドウが閉じた状態でさらにプレビューウィンドウを閉じようとした為にエラーが発生したと考えられます。

Previewオブジェクトのクローズ処理は以下の通りにお願い致します。

If Not Preview Is Nothing Then
Preview.Delete
Set Preview = Nothing
End If

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

[HogeHoge]

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

>まず、２回目のプレビュー処理時に１回目の内容が表示され
>る現象についてですが、こちらは１回目の表示終了時に
>Reportオブジェクトの「ClearData」メソッドを呼んで頂け
>ますでしょうか。

プレビューウインドウを閉じるタイミングでクリアしたく
考えています。この場合、PreviewQueryWndCloseイベント
中で「ClearData」メソッドをコールする、という認識で
いいでしょうか？

また、Previewオブジェクトも同様に同イベントで破棄し
ていいでしょうか？

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

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

>プレビューウインドウを閉じるタイミングでクリアしたく
>考えています。この場合、PreviewQueryWndCloseイベント
>中で「ClearData」メソッドをコールする、という認識で
>いいでしょうか？
上記についてですが、こちらはReportオブジェクトの宣言個所によって、「ClearData」メソッドをコールする個所が異なってくる為、一意にPreviewQueryWndCloseイベントでのコールが適切かはこちらでは分かりかねます。
１回目の表示終了時のタイミングでは難しい場合、１ページ分のデータをReportオブジェクトへ設定する際に、各ページ毎に初期化処理としてクリアして頂いても正常動作すると考えられます。

>また、Previewオブジェクトも同様に同イベントで破棄し
>ていいでしょうか？
Previewオブジェクトの破棄はこのタイミングでは行わないようにお願い致します。
このタイミングで破棄してしまいますと、次回正常にプレビュー処理が行われなくなります。
Previewオブジェクトの破棄はプログラム終了時にお願い致します。
ウィングレポートインストール先に御座いますSample\VB\VB6\Sample1のサンプルを参考にしてお願い致します。

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

[投稿者]

投稿