下記のマクロコードがあります。
Sub 印刷()
'
' 印刷 Macro
'
'
Sheets(Array("A", "B")).Select
Sheets("A").Activate
Application.ActivePrinter = "LBP8710 on Ne02:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub
このコードだとマクロを実行すると 印刷したいシートが「LBP8710」で印刷されるのですが、 ファイル全体のプリンター設定も「LBP8710」になってしまいます、 印刷したいシートの時だけ「LBP8710」になり ファイル全体のプリンター設定は「iR-ADV C7260」のままの設定にする方法があれば教えていただけますでしょうか。 よろしくお願いいたします。
No.2ベストアンサー
- 回答日時:
No.1のものです。
End Subの直前に最期に、下記を設定すれば、元に戻るのでは?
Application.ActivePrinter = "iR-ADV C7260 ~ :"
No.3
- 回答日時:
No.1の者です。
プリンターをLBP8710の設定にした状態で、マクロの記録から、プリンター
をiR-ADV C7260に設定すると、そのコードができると思うのですが。
さすがに、こちらでは、プリンターの詳細な設定までは分かりません。。。
LBP8710 → "LBP8710 on Ne02:"
iR-ADV C7260 → "iR-ADV C7260 ??????"
No.1
- 回答日時:
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
印刷が片寄る…
-
Wordの印刷設定をファイルごと...
-
WORDにてA4・2枚分がA3・1枚で...
-
カラーで印刷されない。
-
ワードで中央揃えで入力しても...
-
macで同じ画像を均等に一枚の紙...
-
カラー用紙に白い文字をプリン...
-
ワード2010で「2ページ/枚...
-
Excelで画像を官製はがきサイズ...
-
印刷について
-
エプソンプリンター A5印刷方法
-
手差し印刷が出来ません。
-
逆順に印刷されてしまう
-
A5の文書をA4に2つ並べて印刷
-
差込印刷設定がプリンターに送...
-
Excelで印刷するとき濃ゆくしたい
-
エクセルで白い字を印刷をした...
-
選んだPDFを1クリックで全て印...
-
エクセルで勝手に多く枚数を印...
-
Windows11homeを新しく購入し、...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Wordの印刷設定をファイルごと...
-
印刷が片寄る…
-
WORDにてA4・2枚分がA3・1枚で...
-
カラーで印刷されない。
-
差込印刷設定がプリンターに送...
-
カラー用紙に白い文字をプリン...
-
差し込み印刷で封筒に文字が上...
-
ワードで中央揃えで入力しても...
-
macで同じ画像を均等に一枚の紙...
-
ワード2010で「2ページ/枚...
-
手差し印刷が出来ません。
-
エクセルで勝手に多く枚数を印...
-
ワードの文書を印刷すると勝手...
-
選んだPDFを1クリックで全て印...
-
Excelで印刷するとき濃ゆくしたい
-
印刷について
-
Google Earthの印刷について
-
wordのA3で作ったファイルをA4...
-
A5の文書をA4に2つ並べて印刷
-
お世話になります。 MS明朝体で...
おすすめ情報
回答ありがとうございました。
IgnorePrintAreas:=False
Application.ActivePrinter = "iR-ADV C7260 ~ :"
End Sub
ご指示の通りにこーどを設定いたしましたが
印刷は上手くいきましたが、
その後にエラーが出てしまい、
Application.ActivePrinter = "iR-ADV C7260 ~ :"
の部分が黄色く表されてしまいました、
解決方法がありましたらよろしくお願いいたします。