[WR2.0]プリンターの設定

[REI]

お世話になります。
DELPHI5.0、WR2.0を使って開発をし始めたばかりの初心者です。
wrSetPrinterDeviceを使ってプリンタを設定しようとしているのですが、一向に効きません。

wrSetPrintModeを「レポートが指定したプリンタ」から「通常使うプリンタ」に変更すると効きました。

wrSetPrinterDeviceはwrSetPrintModeを「レポートが指定したプリンタ」にするときは使えないものなのでしょうか？
ACCESS2000、WR2.0では出来たと思ったのですが。。

お願いします。

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

お世話様になっております。
wrSetPrinterDeviceの設定についてですが
wrSetPrintModeを通常使用するプリンタ(WRP_MDDFLTPTR)とすると
wrSetPrinterDeviceの指定に関わらず
[windowsが通常使用するプリンタ]から印字されます。

指定したプリンタから出力する場合は
wrSetPrintModeをレポートに設定されているプリンタ
(WRP_MDDFLTPTR)とする必要があります。

以下はコーディング例となります。

—————-ここから—————

var
szPrinterName: array[0..256] of Char ;
szPrinterNameChk : array[0..256] of Char ;

//レポートに設定されているプリンター情報で印刷
nRet := wrSetPrintMode(hReport, WRP_MDNORMAL);

//レポートに設定されているプリンタ以外のプリンタ名
szPrinterName := ‘EPSON LP-8300’;
//プリンタの情報をセットします｡
If wrSetPrinterDevice(hReport, szPrinterName) = 0 Then
begin
//エラー処理
nRet := wrUnloadReport(hReport);
{レポートのアンロード}
nRet := wrExit(@nError);
{印刷エンジン終了処理}
exit ;
end;

//プリンタ情報を取得します｡
If wrGetPrinterDevice(hReport, szPrinterNameChk, 255) = 0 Then
begin
//エラー処理
nRet := wrUnloadReport(hReport);
{レポートのアンロード}
nRet := wrExit(@nError);
{印刷エンジン終了処理}
exit ;
end;

—————-ここまで—————

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

[REI]

レスありがとうございます。

もう一度やってみたいと思います。

[島本]

中嶋様の回答内容を見ると、通常使用するプリンタの場合と、指定したプリンタから出力する場合と共に「WRP_MDDFLTPTR」を指定するように読めるのですが、実際にはどうすればいいのでしょうか。

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

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

回答に誤りがありましたので訂正させて頂きます。

＞指定したプリンタから出力する場合は
＞wrSetPrintModeをレポートに設定されているプリンタ
＞(WRP_MDDFLTPTR)とする必要があります。

とありますが、「WRP_MDDFLTPTR」ではなく
「WRP_MDNORMAL」とする必要があります。

通常使うプリンタから印刷する場合：「WRP_MDDFLTPTR」
指定したプリンタから印刷する場合：「WRP_MDNORMAL」

を指定してください。

回答に誤りがありご迷惑をおかけしました。
以上、よろしくお願いいたします。

[投稿者]

投稿