• ベストアンサー

マクロで印刷時のポートについて

こんにちは エクセルのマクロを作成していますが、うまくいかずに困っています。 内容は、LANで接続された複数台のプリンターを複数台のパソコンで一つのマクロを含んだエクセルファイルを共有使用しています。 この時操作するパソコンにより、登録されているプリンターのポート番号が違うために、それぞれ専用の印刷用マクロを作成して使用しています。 そこで質問ですが、印刷時にポート番号を指定せずにプリンター名でプリンター指定するには、どうすればよいのでしょうか? よろしくお願いいたします。

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

  • ベストアンサー
  • KenKen_SP
  • ベストアンサー率62% (785/1258)
回答No.1

こんにちは。 PrintOut メソッドの名前付き引数 ActivePrinter でプリンターを指定すると、 ポート指定が不要です。 (例1) ActiveSheet.PrintOut ActivePrinter:="XXXX XXXX" (例2) Range("A1:E25").PrintOut ActivePrinter:="XXXX XXXX" 一方で、ご質問にあるとおり、Application.ActivePrinter でプリンターを 指定する場合は、ポートまで指定しなくてはなりません。 (例3) Application.ActivePrinter = "XXXX XXXX on Ne00:"

jvc1717
質問者

お礼

ご回答ありがとうございます。 早速、例1の方法でためしてみました。 対応したパソコンは一台だけでしたが、うまくいきました。 単純に”PrintOut ActivePrinter”でよかったのですね どうもありがとうございました。 大変助かりました。

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

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

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

  • Port9100印刷の説明

    こんにちは。Port9100について質問です。 印刷するときに使用する「Port9100」とは、TCP/IPでポート番号を指定して印刷する、ということでしょうか。 ぐぐっても、Hewlet Packard互換のプリンタで使っていたポートだとか、rawポートだとかの説明があって、いまいちすっぱりとわかりません。 用語集などを漁っても見つからなかったのですが、どこかに分かりやすい説明などありましたら、URLなどご教授願えませんでしょうか。

  • 印刷ポート

    エプソンAT-920C WinXP使用しています。 印刷ポート1を利用して、プリンター2台(モノクロレーザー・名刺印刷機)を切り換え機を使用し、使い分けています 突然、1台のプリンターがオフラインになり、使用できなくなりました。 ポートを見ると、プリンター名が消えています。ドライバーを再インストールすると使用できましたが、今度はもう1台のプリンターが利用できません。 何度やっても同じ事の繰り返しです。1回は2台共同じデータを印刷できるのですが、2回目は、後にインストールしたプリンターしか利用出来ません 何が原因でしょうか、教えてもらえますでしょうか

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

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

  • 印刷マクロを教えてください。

    マクロは初心者です。よろしくお願いいたします。 エクセルで、列AからHまでにデータを入力しています。 また、Aの1から、Aの3までは行タイトルとしています。 列A4から下の行にNo1~の順番号をいれていますが、 例えばNo20からN045までのデータ分だけを印刷したい時など、指定したNoの範囲のデータだけを印刷出来るようなマクロがあれば教えてください。 印刷Noの指定は、行番号でもかまいません。 これまでの質問で印刷関係をみてみましたが、多すぎてわかりませんでした。どなたかよろしくお願いいたします。

  • 一枚ずつ印刷用のマクロに複数枚設定したい

    一枚ずつ印刷用のマクロに複数枚設定したい。マクロ初心者です。Excel2007のマクロシー トを使っています。作成者は他人ですので、質問ができません。複数のシートからなるExcelファイルで、シート1に入力したシーケンス番号を2のシートのマクロを起動してポップアップに入力すると、シート1の内容が反映された印刷用のフォーマットが1枚ずつ作成されるマクロがあります。シーケンス番号は200ほどあり、ひとつひとつ設定していると時間がかかるため、シーケンス番号の範囲を指定するなどして、印刷を一気に行う方法はありませんでしょうか?質問等に不備がございましたらお知らせください。よろしくお願いいたします。

  • エクセル 印刷マクロ

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

  • エクセルから印刷時のプリンターの設定をしたい

    いつもお世話になっております。 常時使用するプリンターが2台あり、機能と印刷単価が違っており、1台は数枚以下&カラー用、もう1台は大量印刷と裏紙印刷で使い分けているのですがこれをエクセルのマクロ(ボタン)で設定することは出来ないでしょうか? 一応、マクロの記録で印刷を記録してみましたが、印刷の実行はできましたが、やはりプリンターの選択とかトレイの指定はできませんでした。 何かアイディアは内でしょうか? 使うソフトはメインはエクセル、後はワードです。 毎日のことでつい「大量にカラーでしかも非常に時間がかかる」ようなウッカリが後を絶たないので何か改善策が有りましたらご教示お願いします。

  • VB2008(印刷ダイアログ)上でExcel印刷

    現在VB2008でExcel操作(COM参照使用)をしているのですが、 Excelシートを印刷する際にVB2008にある印刷ダイアログにて プリンタを設定後そのシートを印刷することは可能ですか? 現在はExcelVBAの起動時マクロでプリンタ設定しているのですがプリンタの中にはネットワークプリンタもあり、しばしばプリンタ名(後ろのNe:○○の番号が可変)が変わりそのたびにコードを書き変えています また複数台プリンタがあり通常使うプリンタがラベルプリンタなのでA4紙データを印刷するととんでもないことになるので(汗) そのためVB2008上でダイアログからプリンタを選んで印刷できればいいなと考えています ご教授お願いします。

  • Excel でボタンひとつで登録したプリンタに出力する方法

    1つのパソコンに複数のプリンタを接続しています。 1つのExcelファイルの中に複数のシートがあって、 それぞれ印刷に使用するプリンタが違うのですが、 毎回使用するプリンタを選びなおすのが、非常に 面倒に感じています。 上部のバーに、印刷ボタンがありますが、これを 複数設置して、それぞれのプリンタを登録しておき、 ボタンを押すだけで、登録しているプリンタで印刷 するような方法はありませんでしょうか? マクロを使って、セル上に専用のボタンを作ると できるそうですが、私はマクロは組めないため、 そのようなマクロを公開しているサイトがありましたら、 そちらも教えていただけますと大変助かります。 毎日業務で使用するため、もう少し簡単にならないか と思っています。何卒よろしくお願いいたします。

専門家に質問してみよう