0

マクロで 2台のプリンターを使い分け、 共有PCでエラーがでる エクセル２００２を使用しております。

複数のパソコンで 2台のプリンターを共有しております。（以下、PR－A・PR-Bとします）

シート1を印字するのに、マクロボタン１として PR-A から印字するようにしておりますが

シート２を新に加え、マクロボタン２を作成し、 PR-B から印字をしたいので

「ツール」→「マクロ」→「新しいマクロの記録」を使用して、下記の通りマクロを作成致しました。

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Sub Macro10()
'
' Macro10 Macro
' マクロ記録日 : 2011/11/18 ユーザー名 : a＊＊＊＊
'

'
Sheets("封").Select
Range("C3:c24").Select
ActiveSheet.PageSetup.PrintArea = "$C$3:$c$24"
Application.ActivePrinter = "ALCO-SERVERCanon iP4700 series on Ne09:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"ALCO-SERVERCanon iP4700 series on Ne09:", Collate:=True
Sheets("デマ").Select
Range("B2:Q44").Select
Range("P43").Activate
ActiveSheet.PageSetup.PrintArea = "$B$2:$Q$44"
Sheets("選択").Select
Range("C2").Select
Application.ActivePrinter = "Canon MP280 series Printer (コピー 1) on Ne07:"
End Sub

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

最後の行は PR－B で印字した後、PR-A で印字できるようにしたものです


設定したPCでは問題なく作動しますが、他のネットワークPCから マクロボタン２を

実行すると、「実行時エラー1004 activeprinterメソッドは失敗しました」

と言うエラーが発生します。

説明がわかりにくくて申し訳ないのですが、

どのようにすれば他のプリンターからも、PR-A PA-B で

各々印字することができるマクロになるでしょうかご教授下さい。

質問者が選んだベストソリューション

Yahoo!知恵袋