[WR3.0]WRPReportPrintでエラー

[nik]

開発言語：Delphi6
実行環境：Windows2000 Professional SP2

API関数を使用したアプリケーションを開発しています。
その中で「WRPReportPrint」だけがエラーになり、
プリントできません。
WingReportの環境に問題は無いでしょうか？

下記ファイルは全てSYSTEM32にコピーされています。
WRENGEN30.DLL (3.2.0.17)
WRCTRL30.DLL (3.0.0.22)
WR3AXCL.OCX (3.1.0.7)
WRCIF30.DLL (3.1.0.5)

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

お世話になります。

エラー発生時のエラー番号等をご連絡頂けないでしょうか？

※OCXコントロールのLastError及びLastErrorText

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

[nik]

LastError及びLastErrorTextの取得方法が分かりません。
ちなみに下記のソースコードにてエラーが発生しています。

if WRInit(nError) <> 0 then begin
WRSetErrorDispMode(0);
hReport := WRRLoadReport(‘test.w30′));
if (hReport > 0) then begin
WRRClearData(hReport);
WROSetText(hReport,’aaa’,’000′);
hPrinter := WRPCreatePrinter(PChar(cmbPrinter.Text));
WRPSetBin(hPrinter, cmbPaper.ItemIndex);
WRPUpdateInfo(hPrinter);
if WRPOpenPrinter(hPrinter, Form1.Handle) = 0 then begin
WRExit(nError);
end;

***************下記命令で異常*****************
if WRPReportPrint(hPrinter, hReport) = 0 then begin
WRPClosePrinter(hPrinter, 0);
WRExit(nError);
Exit;
end;

WRPClosePrinter(hPrinter, 1);
end;
WRExit(nError);
end;

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

ご連絡ありがとうございます。

>WRSetErrorDispMode(0);
部分を「WRSetErrorDispMode(1);」と変更して処理を行った場
合に、表示される内容をご連絡頂けないでしょうか？

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

[nik]

WRSetErrorDispMode(1)で確認したところ、
プリンター用紙サイズの関係でエラーになっていました。
用紙サイズを登録したら上手くいきました。
ありがとうございました。

[投稿者]

投稿