[WR3.0]２台のプリンタへの出力

[高坂 勝美]

いつもお世話になっております。
現在[WR3.0]を使用して「送り状」と「宛名ラベル」を同時に印刷するプログラムを作成しております。
「送り状」と「宛名ラベル」のプリンタをそれぞれ別々に指定して２台のプリンターへ印刷したいのですが、１台目のプリンタをCreatePrinterしてPrinterInfoへDEVMODE構造体を引き渡してOpenPrinterした後、２台目のプリンタをCreatePrinterすると、「不正な処理」となって強制終了してしまいます。
１台目のプリンタへ渡すDEVMODE構造体の渡し方がまずくメモリを破壊してしまっている可能性も考えて調べているのですが原因がわかりません。
１フォームに[WR3.0]のＯＣＸコントロールを２つ貼り付けてそれぞれ別々のプリンタを同時にオープンして同時に印刷をしようとしているのですが、こういった使い方は[WR3.0]では許されているのでしょうか？

プリンタのオープンは以下のように記述しています。

‘送り状用プリンタオープン
Set waxPrinter1 = frmPrintOkuriAtena.WR3AXCL1.CreatePrinter
With waxPrinter1
.ClearInfo
.PrinterInfo = bytOkuriPrnDEVMODE
.UpdateInfo
.CancelDlg = False
.OpenPrinter frmPrintOkuriAtena.hWnd
End With

‘宛名ラベル用プリンタオープン
Set waxPrinter2 = frmPrintOkuriAtena.WR3AXCL2.CreatePrinter
With waxPrinter2
.ClearInfo
.PrinterInfo = bytLabelPrnDEVMODE
.UpdateInfo
.CancelDlg = False
.OpenPrinter frmPrintOkuriAtena.hWnd
End With

開発環境は
WIN98SE + VB6.0
です。

宜しくお願い致します。

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

お世話になります。

ご質問のコントロールを複数使用した場合ですが、問題なく動
作致します。また、単独のコントロールを使用して複数のプリ
ンターオブジェクトを作成しても問題ございません。

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

[高坂 勝美]

早速の御回答ありがとうございます。
あと、複数のプリンタを扱う際のシステムのプリンタ設定なのですが、使用したいプリンタをオープンする前にシステムの通常使うプリンタを変えておく必要等はあるのでしょうか？
また、複数のプリンタを扱うのと同様に、複数のプレビューも同じように設定する事は可能でしょうか？(プリンタの場合はプリンタ情報のプロパティがあるのですが、プレビューにはないようでしたので・・・）
度々申し訳ございませんがよろしくお願い致します。

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

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

複数のプリンターオブジェクトを使用する場合においても、シ
ステムの「通常使用するプリンター」設置を変更する必要はご
ざいません。使用するプリンター名を指定してプリンターオブ
ジェクトを作成してください。
プレビューについても同様に複数のオブジェクトを作成する事
が可能です。ただし、プリンターオブジェクトとは異なります
のでプリンター名等は必要ございません。

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

[投稿者]

投稿