• ベストアンサー

エクセルマクロで印刷プリンタを指定する方法

表題のとおりなんですけと、エクセルのVBAでの印刷命令はできますが、複数あるプリンタから特定のプリンタを指定したいのですが、なにかいい方法ありませんか？

質問者が選んだベストアンサー

  • ベストアンサー
  • starsip
  • ベストアンサー率36% (22/60)
回答No.2

印刷のポートがLPT1：(プリンタポート)ならば 例：プリンタ名　自分のプリンタ Application.ActivePrinter = "自分のプリンタ on LPT1:" 'プリンタの指定 ActiveWindow.SelectedSheets.PrintOut '印刷 印刷ポートがLAN内のプリンタサーバーの場合 例１：プリンタ名　事務室プリンタ Application.ActivePrinter = "事務室プリンタ on Ne01:" ActiveWindow.SelectedSheets.PrintOut 例２：プリンタ名　会議室プリンタ Application.ActivePrinter = "会議室プリンタ on Ne02:" ActiveWindow.SelectedSheets.PrintOut Ne01 Ne02はLANにより異なります。

その他の回答 (1)

  • bonaron
  • ベストアンサー率64% (482/745)
回答No.1

ActiveSheet.PrintOut ActivePrinter:="Canon XXXX" 　とか？

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • エクセルでプリンタ指定のマクロ

    エクセルのマクロで、プリンタ指定をするマクロを教えていただけ ないでしょうか。 マクロボタンを押したら、「印刷」ウインドウのプリンタ指定が できるところで止めたいのです。"新しいマクロの記録"でやっても、 当然上記の場所で"記録終了"ができません。 使い方は、様々な部署で同一のエクセルを処理した後、その部署の 環境によって、手差しやカセット、プリンタを選択したいためです。 マクロ初心者です。ご教授よろしくお願いいたします。

  • エクセルマクロ印刷時にプリンタを指定できますか？

    エクセル２００２を使用しています。VBAはまったくわかりません。 マクロの自動登録で印刷を記録すると、通常使うプリンタから 出力されるようですが、LANでプリンタ複数使用可能な環境です ので、いちいち通常使うプリンタを変更するのではなく、マクロ 実行時にプリンタを選択したく思います。 　因みに、以下のマクロはSheet1に値を入力し、Sheet1の値をコピー したSheet2を印刷するというマクロです。このマクロのどの部分に コードを付け加えればプリンタをこのマクロ実行時に選択可能でしょうか？ もしくはマクロではプリンタを選択できないのでしょうか？ どうぞよろしくお願いいたします。 ****************************************************************** Sub 印刷() Sheets("Sheet2").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("Sheet1").Select End Sub *******************************************************************

  • エクセルVBAで、プリンタ名とプロパティを指定したい

    Excel97を使用しています。 用紙サイズ：A4縦の書類を2ページ作成しました。書類は縦並びになっています。 これをエクセルVBAを使って、A4の用紙に両面印刷するか、A3横の用紙に割付印刷したいのですが方法はありますでしょうか？ エクセルのページ設定でA3横にして横並びで作成しようとしたのですが、行の高さがページ毎で異なっていますので、横並びでは作成できませんでした。 ワークシート上にボタンを作成しましたので、それをクリックするだけで、特定のプリンタ名を指定し、そのプリンタのプロパティで両面もしくは割付印刷を設定して印刷させたいのです。 ご存知の方、どうぞよろしくお願いいたします。

  • Excelのマクロにおいて、期間指定で印刷範囲の設定方法

    Excelのマクロにおいて、期間指定で印刷範囲の設定方法 Excelのマクロで分からない事がありましたので質問させて頂きます。 Excelで、特定の期間(例えば2010/7/1～2010/10/31)以外の日は 特定のセルを印刷しないよう設定する事は可能でしょうか。 例えば… A1セル　TODAY関数 B1セル　ああああ C1セル　いいいい D1セル　うううう とした場合、指定期間(例えば2010/7/1～2010/10/31)はA1～D1までを印刷範囲として、 指定期間以外はC1のみを印刷範囲から外したい、という事です。 指定期間過ぎたらセル削除…という方法では事情により駄目なのです。 無茶な事言っているかもしれませんが、可能な方法がありましたらご教授お願い致します。

  • エクセルのマクロでプリンタを指定したいのですが

    エクセルのマクロで共有のネットワークプリンタを指定しているのですが Application.ActivePrinter = "*********** on Ne**:" Ne**の部分がパソコンを再起動すると変更されてしまうようでうまくいきません。～on Ne**:の記述なしでプリンタを指定する方法はないでしょうか？

  • マクロ　どのパソコンでも同じプリンターから印刷

    ネットワークで繋がっている複数台のパソコンでエクセルで作ったフォーマットを同じプリンターで印刷したいのですが、どのようにマクロを組んだらいいのか分かりません　少しだけマクロが分かりますので分かりやすく教えてくれる方いませんか。 プリンタをしてするとNe06などプリンター名のあとに付けるのですが、別のパソコンになると番号を変えなければなりません　同じマクロでどのパソコンでも同じプリンターで印刷をできる方法を教えてください。

  • Excel・VBAでのプリンタ指定

    パソコンに複数のプリンタが登録してあるのですが、 シート上にプリンタ(1)、プリンタ(2)というボタンを作っておき、 ボタンを押すだけでその指定されたプリンタから印刷するという 指定はできるんでしょうか？ できるとしたら、どのようにVBAで記述すればいいんでしょうか？ ちなみにネットワーク上のプリンタや、パソコンにローカル接続されて そのパソコン経由で出しているプリンタもあります。 よろしくお願いします。

  • エクセル　印刷範囲指定の方法

    エクセルの表の上部（表題部分）と最下部（合計数値）部分だけをウィンドウ枠固定をして表示し、その状態で印刷したいのですが、印刷部分を範囲指定（ドラッグ）をしようとすると中央のデータまで全部出てきてしまいます。方法がありますか？

  • エクセル　ファイルごとのプリンタ指定印刷について

    教えてください。 エクセルで、ファイルごとにプリンタを指定する方法があれば そのやり方を教えていただけないでしょうか。 ファイルによって使用するプリンタが違うのですが、 その都度設定を変更するのが面倒なので。 よろしくお願いします。

  • エクセル　印刷マクロ

    Win　ＸＰ　/エクセル2003　使用です。 エクセルで請求書を作成しています。 1件の請求書に1行目から100行目を使用し、 2件目は、101行目から200行目、 3件目は、201行目から300行目・・・を使用しています。 現在、印刷する時は、一枚一枚、 「印刷範囲を指定」して出力しているのですが、 これをマクロまたはＶＢＡのボタン機能を使って、 印刷できるようにしたいのですが、 何か良いサンプルなどはありますでしょうか？ よろしくお願いいたします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する