コピー枚数の設定について

[寺井肇]

コピー枚数を設定するタイミングについてお教え下さい。

PaperSizeSupportが有効（TRUE）なプリンタでプリンターオブジェクトを作成しコピー枚数を指定すると下記のようになります。

正しい「Copies」プロパティの使い方を教えてください。

プリンターをオープン（OpenPrinter）する前にコピー枚数を指定すると

○エラー：40005（パラメータが無効）

プリンターをオープン（OpenPrinter）した後にコピー枚数を指定すると

○エラー：10301（呼び出し順が矛盾）

のエラーが出ます。

よろしくお願いいたします。

[寺井肇]

追加情報

●WingReport v3.0
●VB6.0＋SP5
●NEC MultiImpact 700XX

[星野＠SoftWing]

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

Copiesプロパティの正しい使用法についてですが、OpenPrinterメソッドの実行前、プリンタオブジェクトのStatusプロパティがwrPRINTERSTAT_IDOL(数値では16)である時に設定ができる使用となっております。
また、Copiesプロパティの設定後UpdateInfoメソッドにて変更を反映する必要がございますので、ご注意ください。

なお、プリンタの種類によりましては、コピー枚数指定をサポートしていない機種もあるようです。サポートされているかどうかにつきましては、プリンタオブジェクトのCopiesSupportというプロパティにて確認することが可能となっておりますので、そちらをご参照頂ければと思います。

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

[寺井肇]

早速の回答ありがとうございます。

回答の内容を元にコードを下記のようにしましたがやはり「40005」が出てしまいます。

Set waxPrinter = Me.WR3AXCL1.CreatePrinter

If waxPrinter.CopiesSupport Then
If waxPrinter.Status = wrPRINTERSTAT_IDLE Then
waxPrinter.Copies = 2
waxPrinter.UpdateInfo
End If
End If

waxPrinter.OpenPrinter

もちろん

●CopiesSupport=True
●Status = wrPRINTERSTAT_IDLE(16)

で条件は満たしています。

[星野＠SoftWing]

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

コードの内容とご回答ありがとうございました。
お手数ではありますが、以下の項目に付きましてご回答いただけませんでしょうか？

①お使いのＯＳ名とサービスパック
②お使いのプリンタドライバのバージョン

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

[寺井肇]

①お使いのＯＳ名とサービスパック

WINDOWS 2000＋SP4

②お使いのプリンタドライバのバージョン

●NEC MultiImpact 700XX
●ドライバーバージョン 5.0

よろしくお願いいたします。

[投稿者]

投稿