下記のマクロコードがあります。
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で質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) Excelのマクロについて教えてください。 1 2022/03/25 10:03
- プリンタ・スキャナー 2台のプリンターでそれぞれ異なる様式の帳票を印刷したい。 2 2022/09/06 10:07
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- Excel(エクセル) 【Excel】複数シートがあるエクセルデータで片面印刷と両面印刷設定がシートごとに入 1 2023/03/10 15:25
- Excel(エクセル) 【マクロ】プリントスクリーンした画像をエクセルに貼付して印刷したい 6 2022/11/30 20:11
- Visual Basic(VBA) 【VBA】印刷マクロのループ処理が反映されません 3 2022/08/09 02:15
- Visual Basic(VBA) DisplayAlertsブロパティで ”実行時エラー424オブジェクトが必要です” 5 2022/05/15 18:02
- Excel(エクセル) Excelであるシートだけ印刷できない 1 2022/04/01 09:04
- Excel(エクセル) エクセルの印刷マクロについて質問があります。 現在、下記のマクロで印刷しています。Sheet1のD6 5 2023/06/12 10:59
- Excel(エクセル) エクセルのマクロで複数シートを両面印刷するには? 2 2022/12/08 23:23
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
特定のEXCELのファイルを印刷するときにプリンタを替えられるか?
Excel(エクセル)
-
エクセル印刷時 一枚の書類に印刷枚数分の連続番号を振るには?
Excel(エクセル)
-
数字をカウントしながらエクセル印刷したい
Excel(エクセル)
-
-
4
エクセルでブックごとにプリンタを設定したい
Excel(エクセル)
-
5
エクセル ファイルごとのプリンタ指定印刷について
Excel(エクセル)
-
6
エクセルVBAでプリンタプロパティを操作したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
カラー用紙に白い文字をプリン...
-
Wordの印刷設定をファイルごと...
-
エクセルで白い字を印刷をした...
-
A5の文書をA4に2つ並べて印刷
-
印刷プレビューのように印刷さ...
-
macで同じ画像を均等に一枚の紙...
-
カラーで印刷されない。
-
WORDにてA4・2枚分がA3・1枚で...
-
ワード2010で「2ページ/枚...
-
Google Earthの印刷について
-
逆順に印刷されてしまう
-
お世話になります。 MS明朝体で...
-
差し込み印刷で封筒に文字が上...
-
白黒プリンタで、灰色の印刷 可?
-
差込印刷設定がプリンターに送...
-
エクセルで勝手に多く枚数を印...
-
Excel:印刷の仕方について
-
A4サイズ2枚を合わせてA3に Mac
-
A3ノビとA3プラスのちがい
-
【VB.Net Windows】印刷設定(C...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
印刷が片寄る…
-
Wordの印刷設定をファイルごと...
-
カラーで印刷されない。
-
WORDにてA4・2枚分がA3・1枚で...
-
カラー用紙に白い文字をプリン...
-
macで同じ画像を均等に一枚の紙...
-
Microsoft Edge で印刷の設定...
-
差し込み印刷で封筒に文字が上...
-
ワードで中央揃えで入力しても...
-
差込印刷設定がプリンターに送...
-
エクセルA4書類の作り方
-
ワード2010で「2ページ/枚...
-
手差し印刷が出来ません。
-
モノクロプリンター B4ワイドな...
-
エクセルで勝手に多く枚数を印...
-
A5の文書をA4に2つ並べて印刷
-
ワードの文書を印刷すると勝手...
-
印刷について
-
エクセルで白い字を印刷をした...
-
wordのA3で作ったファイルをA4...
おすすめ情報
回答ありがとうございました。
IgnorePrintAreas:=False
Application.ActivePrinter = "iR-ADV C7260 ~ :"
End Sub
ご指示の通りにこーどを設定いたしましたが
印刷は上手くいきましたが、
その後にエラーが出てしまい、
Application.ActivePrinter = "iR-ADV C7260 ~ :"
の部分が黄色く表されてしまいました、
解決方法がありましたらよろしくお願いいたします。