WINDOWS2000でのプリンタの選択について

解決済

質問者：kirara_pika
質問日時：2002/01/18 23:18
回答数：2件

通常使うプリンタにしていないプリンタを一時的に通常使うプリンタにして出力するようにしたいのですが、
WINDOWS2000だと、うまくいきません。
プログラム実行前に通常使うプリンタの名前をＡ、
プログラムを実行すると同じPCに設定されているＢのプリンタから出力したいのですが、下記のようにしてみたのですが、
Dim PrinterScale as Single
Dim Name as String
Dim X As Printer
For Each X In Printers
If X.DeviceName =　Ｂ Then
Set Printer = X
　　　Name = Printer.DeviceName　・・・・　(1)
　　　PrinterScale = Printer.ScaleWidth
　　　Name = Printer.DeviceName ・・・・　(2)
Exit For
End If
Next

上記の場合、(1)のときNameの文字列はＢなのですが、プロパティを参照したりすると(2)の段階でNameがＡに戻ってしまうのです。結局実行後プログラム上で指定したプリンタから出力されず、実行前に通常使うプリンタに設定していたプリンタから出力されてしまいます。
だけどこれはＯＳがWINDOWS2000の時だけで、WIN98やXPのときはプログラム上で指定したプリンタから出力してくれます。WINDOWS2000でプロパティの変更や参照をしても元にもどらない方法があれば教えてください。因みにAdmin権限でログインしています。