Excelのマクロを設定してプリンターをしてする方法を教えてください。

下記のマクロコードがあります。
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」のままの設定にする方法があれば教えていただけますでしょうか。 よろしくお願いいたします。

質問者からの補足コメント

• 

  回答ありがとうございました。
  IgnorePrintAreas:=False
  Application.ActivePrinter = "iR-ADV C7260　～　:"
  End Sub
  ご指示の通りにこーどを設定いたしましたが
  印刷は上手くいきましたが、
  その後にエラーが出てしまい、
  Application.ActivePrinter = "iR-ADV C7260　～　:"
  の部分が黄色く表されてしまいました、
  解決方法がありましたらよろしくお願いいたします。

  No.2の回答に寄せられた補足コメントです。 補足日時：2022/02/03 15:21

No.2 ベストアンサー 回答者： mygoonickname 回答日時： 2022/02/03 14:47

No.1のものです。

End Subの直前に最期に、下記を設定すれば、元に戻るのでは？
Application.ActivePrinter = "iR-ADV C7260　～　:"

No.3 回答者： mygoonickname 回答日時： 2022/02/03 15:26

No.1の者です。

プリンターをLBP8710の設定にした状態で、マクロの記録から、プリンター
をiR-ADV C7260に設定すると、そのコードができると思うのですが。
さすがに、こちらでは、プリンターの詳細な設定までは分かりません。。。

LBP8710　→　"LBP8710 on Ne02:"
iR-ADV C7260　→　"iR-ADV C7260　？？？？？？"

No.1 回答者： mygoonickname 回答日時： 2022/02/03 14:36

こんにちは。

検索した記事ですが、下記が参考になるでしょうか？

https://violet-ayame.com/print_1/

この回答へのお礼

色々とありがとうございました。
参考にさせて頂きました。

お礼日時：2022/02/03 16:29