お世話になっています。
以下の件についてお教えください。
Win2000Pro上で
SQLで検索した内容を一覧印刷を行うプログラムで
「検索」→「印刷」を数回繰返すとエラーで止まってしまう現象が起きています。
同一ソフトをWin98、Win98SEで使用した場合は現在エラーでの停止は確認されていません。
Delphiでのソースは以下の通りです
try
WrRept := WR3AXCL1.LoadReport(‘XXXX.w30’);
WrPrit := WR3AXCL1.CreateReportPrinter(WrRept,Handle,wrPRTDLGITEM_DIS_PROPERTY);
WrPrit.OpenPrinter(Handle);
印刷内容のセット
WrPrit.ReportPrint(WrRept);
WrPrit.ClosePrinter(True);
WrPrit.Delete;
WrRept.Delete;
except
if WR3AXCL1.LastError <> 0 then begin
WR3AXCL1.ClearLastError;
end;
if not VarIsEmpty(WrRept) then begin
WrRept.Delete;
end;
if not VarIsEmpty(WrPrit) then begin
WrPrit.Delete;
end;
よろしくお願いします。