Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10687 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【20489】マクロでプリンタ選択 miyoshi hiromi 04/12/10(金) 12:42 質問[未読]
【20491】Re:マクロでプリンタ選択 IROC 04/12/10(金) 12:59 回答[未読]
【20506】Re:マクロでプリンタ選択 ぴかる 04/12/10(金) 16:46 発言[未読]
【20489】マクロでプリンタ選択
質問  miyoshi hiromi  - 04/12/10(金) 12:42 -
引用なし
パスワード
   会社業務でエクセルファイルは社内ネットワークのサーバーに保存し
複数のパソコンからアクセスしています。

印刷内容によりプリンタ選択するようにマクロを組んでますが、
パソコンによりネットワークプリンタ番号が異なるようでエラーに
なります。原因を調査した結果、プリンタ名にマクロで自動付加
している"Nexx"がパソコン毎に異なっているのが原因のようです。
解決方法はないのでしょうか？

Application.ActivePrinter = "RICOH imagio MF5570 on Ne01:"
Application.ActivePrinter = "Kyocera Mita LS-C5016N KX on Ne04:"
Application.ActivePrinter = "\\OFF-NAKAYAMA\OKI MICROLINE 5350SE on Ne07:"
【20491】Re:マクロでプリンタ選択
回答  IROC  - 04/12/10(金) 12:59 -
引用なし
パスワード
   同じような質問が過去にたくさんありますので検索してみてください。
【20506】Re:マクロでプリンタ選択
発言  ぴかる  - 04/12/10(金) 16:46 -
引用なし
パスワード
   miyoshi hiromi さん、こんにちは。

私も最近、よく似た事をやりました。各パソコンのＩＰアドレスを取得して、それに合わせてプリンター名を指定するというやり方です。ＩＰアドレス取得マクロは、どこかの掲示板で探してきました。いろんなＶＢＡ掲示板で検索すると、多分見つかると思います。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10687 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free