[WR2.0]２回目のプレビュー画面がフリーズ

[坂本 栄三]

初めて投稿させていただきます。

Dehlphiから印刷プレビュー表示を行なっているのですが、
１回目のプレビュー表示は正常に表示されるのですが、２回目のプレビュー表示で、プレビュー画面がフリーズしてしまいます。
何か開放する処理が抜けてると思い、色々調べてみたのですが、本当に分からなくて困っています。
何かヒントでも頂けると助かります。よろしくお願い致します。

処理概要↓
var
iPageTable : array[1..2] of integer;
WinHon: hwnd;
iError: Integer;
begin
iPageTable[1] := 1;
iPageTable[2] := 0;
wrInit(@iError)
wrSetErrorDispMode(0);
iReport := wrLoadReport(Pchar(‘ウイングレポートファイル名’));
wrSetPrintMode(iReport, WRP_MDPREVIEW);
wrOpenPrinter(iReport, WinHon, 0);
wrPrint(iReport, @iPageTable, ‘1’);
wrClosePrinterEx(iReport, 1, 1, WR_WS_MAXIMIZE, 0, 0, 0, 0, 1);
wrExit(@iError);
end

環境↓
Delphi5.0
WR2.0

[星野＠SoftWing]

お世話になっております、ソフトウィング星野です。

2回目のプレビューに失敗してしまうとの事ですが、
ソースを拝見させていただきましたところ、2点ほど問題となり得る箇所がございましたので、ご確認を御願いいたします。

①ウィンドウハンドルの指定
WinHon: hwnd;と定義されておりますが、初期化されていない可能性がございます。
例といたしましては、Form名がForm1としてあった場合、
WinHon := Form1.Handle;
のようにウィンドウハンドルを指定する必要がございます。

②印刷ページの指定
wrPrintの２番目と３番目の引数についてですが、
どちらかが有効になる仕様となっております。
たとえば、２番目を指定した場合は
wrPrint(iReport, @iPageTable, ”);
となります。

以上です、よろしく御願いいたします。

[坂本 栄三]

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

ご指摘の箇所を修正したところ、
見事に解決致しました。

ありがとうございました。

[投稿者]

投稿