[WR3.0]WRPrinterオブジェクト生成時のエラー回避！

[ToolBox]

いつも、お世話になっています。
Delphi4.0で WRを使用しています。
wrPrt := WR3AXCL1.CreateReportPrinter(WrRept,Handle,wrPRTDLGITEM_DIS_PROPERTY);
でプリンター選択ウィンドウを開き「キャンセル」ボタンで終了すると
EOleCtrlErrorが発生します。
Try…exceptで WR3AXCL1.Free; ､ClearLastError;などは試したのですが！
エラーの回避方法をお教えください、よろしくお願いします。

[中嶋＠ソフトウィング]

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

印刷キャンセルのエラーの件ですが
WingReportではキャンセルの再はエラーとなります。

Delphiサンプル２を例にご説明します

Function TForm1.PrintReport(nPrintMode:Integer):boolean;
において

Try…exceptで囲まれている部分のexcept部

{‘WingReport エラー}
の部分で　Form1.WR3AXCL1.LastError

が印刷キャンセルされたエラコードであればForm1.WR3AXCL1.ClearLastError;

として、資源を解放するようなコーディングを行ってください。

発生するエラー番号は、WingReportV3リファレンスヘルプの共通エラー番号をご参照ください。

[投稿者]

投稿