![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
エクセル2002を使用しています。VBAはまったくわかりません。
マクロの自動登録で印刷を記録すると、通常使うプリンタから
出力されるようですが、LANでプリンタ複数使用可能な環境です
ので、いちいち通常使うプリンタを変更するのではなく、マクロ
実行時にプリンタを選択したく思います。
因みに、以下のマクロはSheet1に値を入力し、Sheet1の値をコピー
したSheet2を印刷するというマクロです。このマクロのどの部分に
コードを付け加えればプリンタをこのマクロ実行時に選択可能でしょうか?
もしくはマクロではプリンタを選択できないのでしょうか?
どうぞよろしくお願いいたします。
******************************************************************
Sub 印刷()
Sheets("Sheet2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Sheet1").Select
End Sub
*******************************************************************
No.5ベストアンサー
- 回答日時:
#4です。
WinAPIを使ってプリンタ一覧を取得。
VBAでActivePrinterを取得。
ユーザーの指示によりActivePrinterを設定。
印刷処理。
ActivePrinterを元に戻す。
ってことをやるには相当の技術力が必要になります。
ここはひとつ、
Application.Dialogs(xlDialogPrint).Show
こうして印刷ダイアログを表示するだけにとどめておいてはどうでしょうか。
あとはユーザーが好きなプリンタを選択して[OK]を押せば印刷されます。
No.4
- 回答日時:
あのー・・・
使用環境が書いてないのですが・・・
・複数のPCで使用するマクロなのですか?
・それとも1台のPCで使用するが、出力するプリンタをフレキシブルに変更したい、ってことですか?
前者なら各PCの標準プリンタに出力されるので問題ないんじゃないかと思いますが・・・
後者であれば他の方の回答を参考にしてください。
回答ありがとうございます。
説明足らずで申し訳ありませんでした。
環境的には前者+後者のようなものです。
すなわち、各PCともに複数のプリンタドライバを入れている
ため(インクジェットとレーザプリンタなど)、出力の都度
どのプリンタに出力するのか選択したいのであります。
No.3
- 回答日時:
まずは、マクロの記録時に、プリンターを選択するようなアクションをしてみてください。
そうすると、
Application.ActivePrinter = "******"
みたいなスクリプトがPrintOutの前に書かれませんか?
手っ取り早そうなのは、プリンターごとにマクロを用意することでしょうか・・
もしくは、
"******"っていうのを変数にします。例えば、
myPrinter = "*******"
Application.ActivePrinter = myPrinter
てな感じで。
ということは、myPrinterの値を入力により制御できればいいでしょう。
例えば、inputbox関数で、何らかの数値を入力させて、
その数値に対してmyPrinterの値を変更するとか。
どうでせう?
No.2
- 回答日時:
PrintOutの前に、ActivePrinterを入れるとどうですか。
(例)Application.ActivePrinter = "USBPRN01 の Canon BJ S300"
ActivePrinter プロパティは取得・設定とも可能とあり。
テストできる環境に無いので曖昧で済みません。
(ListBoxなどで、=の右辺に持ってくるプリンタのIDを
決めさせてセットする事も可能かと思います。)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】プリントスクリーンした画像をエクセルに貼付して印刷したい 6 2022/11/30 20:11
- その他(Microsoft Office) Excelのマクロについて教えてください。 1 2022/03/25 10:03
- Visual Basic(VBA) DisplayAlertsブロパティで ”実行時エラー424オブジェクトが必要です” 5 2022/05/15 18:02
- Excel(エクセル) エクセルの印刷マクロについて質問があります。 現在、下記のマクロで印刷しています。Sheet1のD6 5 2023/06/12 10:59
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- プリンタ・スキャナー 佐川急便のプリンターで印刷用の送り状が印刷時に詰まる 2 2022/11/23 18:25
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
- Excel(エクセル) セルによって印刷するシートを変える方法 EXCEL-VBA 2 2022/08/01 20:48
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
左右反転印刷は?
-
エクセルの余白の塗りつぶし方法
-
個人でのレーザープリンター処...
-
パラレルデスクトップでのプリ...
-
印刷しようとすると「保存」が...
-
PCを立ち上げると同時に、プリ...
-
プリンタを2台同時に印刷可能?
-
同機種のプリンターを買った場...
-
PSプリンタってなに?
-
エクセルでの袋とじ
-
ラインが繋がっているのにオフ...
-
マクロでプリンタ、用紙、給紙...
-
印刷時に表示される印刷キュー...
-
プリンタの調子が悪いです。EPSON
-
FAXの繋ぎ方 ADSL無線LAN
-
ポストスクリプト対応のプリン...
-
EPSON iPRINTでプリンタが認識...
-
エクセルの取り消し線が印字さ...
-
リソース不足のため、プリンタ...
-
ウインドウズ7 ワードの割り...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
同機種のプリンターを買った場...
-
エクセルの余白の塗りつぶし方法
-
マクロでプリンタ、用紙、給紙...
-
左右反転印刷は?
-
あなたは日常生活上、家庭用プ...
-
印刷しようとすると「保存」が...
-
印刷プレビューにない文字が印...
-
「指定したPPDは無効です」でプ...
-
エクセルの「赤」の印刷がうま...
-
エクセルの用紙サイズについて...
-
プリンターについて
-
複数のシートを一括で手差し→自...
-
プリンタをBluetoothで無線化し...
-
印刷のマークが消えてしまった
-
プリントサイズがつねにA3サイズ
-
プリンターが見つかるのに、接...
-
印刷するときだけパソコンの電...
-
ワードで背景を入れたのですが...
-
ワードで作成した文書を他のP...
-
太文字が印刷されない。
おすすめ情報