プリンターポートの変更

Question

Sub 自動中尾指令書印刷1()

'

' 自動中尾指令書印刷1 Macro

' マクロ記録日 : 2009/6/25  ユーザー名 : Administrator

'

'

    Range("A1:EA75").Select

   Application.ActivePrinter = "OKI MICROLINE 5650SU-R on Ne05:"

    Selection.PrintOut Copies:=1, ActivePrinter:="OKI MICROLINE 5650SU-R on Ne05:" _

        , Collate:=True

上記のようなマクロを使ってますが！　ネットワーク上にプリンターが増えたり減ったりするたびにNo05の部分の数字が変わってしまい、止まってしまいます。

そのたびに数字の変更は大変なんですが何か良い方法はありますか？

このマクロを各レンジごとでいくつも使っていますので一括で変更する方法はありますか？

それともＮｏ０５とは違った指定の方法はありますか？（ネットワーク上のプリンタの数量が変わっても変更しなくて良い）

Answer 1

​松兄ちゃん さん、こんにちは。

マイクロソフト コミュニティをご利用いただき、ありがとうございます。

マクロで印刷を実行していて、ネットワーク上のプリンターが増減するたびコードが変わってしまうため、一括で変更する方法はあるかという質問ですね。

この変更されてしまう部分を一括変更する方法について情報などが無いか探してみましたが、よい情報は見つかりませんでした。

マクロのコードを一括変更する方法について、専門の VBA フォーラムがあるのでこちらのフォーラムにも投稿をしてみて情報を集めてみてはいかがでしょう。

一括変更する方法や、作成されているコードに変更点や工夫すべき点などがあれば、経験豊富な方から有力なアドバイスが得られるかもしれません。

・ Visual Basic for Application(VBA)

せっかくの質問だったのですが、 VBA フォーラムのご利用も検討なさってみてくださいね。