
エクセル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で質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
同機種のプリンターを買った場...
-
左右反転印刷は?
-
ワードを使ってCDラベルを作成...
-
印刷プレビューにない文字が印...
-
エクセルの余白の塗りつぶし方法
-
マクロで印刷の途中でプリンタ...
-
プリンタをBluetoothで無線化し...
-
XPでファックスを送るには?
-
プリンタの部品で「フェザー」...
-
印刷のやり方(ノートパソコン)
-
PCを立ち上げると同時に、プリ...
-
ワードで背景を入れたのですが...
-
プリンタドライバについて
-
マクロでプリンタ、用紙、給紙...
-
印刷できません。
-
太文字が印刷されない。
-
印刷をしようとするとFAX送...
-
もともとWi-Fi仕様ではないプリ...
-
エクセルの用紙サイズについて...
-
商蔵奉行のプリンタ設定について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
同機種のプリンターを買った場...
-
エクセルの余白の塗りつぶし方法
-
パソコンプリンタ用紙の処分売...
-
「指定したPPDは無効です」でプ...
-
マクロでプリンタ、用紙、給紙...
-
PCを立ち上げると同時に、プリ...
-
印刷のマークが消えてしまった
-
太文字が印刷されない。
-
左右反転印刷は?
-
エクセルの用紙サイズについて...
-
印刷ができません (PCを再起...
-
印刷できません。
-
プリンタをBluetoothで無線化し...
-
複数のシートを一括で手差し→自...
-
エクセルでの袋とじ
-
プリンターが見つかるのに、接...
-
富士ゼロックスのプリンタドラ...
-
アプリ毎にデフォルトのプリン...
-
印刷プレビューにない文字が印...
-
印刷が途中のページで止まって...
おすすめ情報