2つのプリンターを指定したコードを設定していますが、振替伝票①を実行すると「通常使用するプリンター」で印刷され、指定したプリンターで実行されません。また、2つ以外の他のプリンターに接続し実行すると、このプリンターで印刷されます。設定しているコードは次のとおりです。なお、通常使用するプリンターは「RICOH MP C3004 JPN PRCS」にしています。どこが間違っているのか教えて下さい。
Sub 印刷()
Dim Sh2 As Worksheet
Set Sh2 = Worksheets("売上伝票兼領収書")
Dim orgPrinter As String
orgPrinter = Application.ActivePrinter
Call Sh2.PrintOut(ActivePrinter:="RICOH MP C3004 JPN PRCS")
Application.ActivePrinter = orgPrinter
End Sub
ーーーーーーーーーーーーーーーー
Sub Macro1振替伝票印刷()
Dim sh9 As Worksheet
Set sh9 = Worksheets("振替伝票①")
Dim orgPrinter As String
orgPrinter = Application.ActivePrinter
Call sh9.PrintOut(ActivePrinter:="EPSON PX-K150 Series")
Application.ActivePrinter = orgPrinter
End Sub
ーーーーーーーーーーーーーーー
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
Aを通常使用するプリンターに指定し「印刷」後、Bを通常使用するプリンターに指定し「印刷」しています。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) Excelのマクロについて教えてください。 1 2022/03/25 10:03
- Visual Basic(VBA) 【VBA】印刷マクロのループ処理が反映されません 3 2022/08/09 02:15
- Visual Basic(VBA) 数式が消える 1 2023/03/19 16:55
- Visual Basic(VBA) VBA★PDFをPDFアプリで印刷しようと思っていますが上手くゆきません 1 2022/06/06 22:04
- Visual Basic(VBA) 2つ目のコンボボックスが動作しません。 3 2023/03/25 12:29
- Visual Basic(VBA) エクセル365のVBAで困っています。どう修正したらよいか添削をお願いします 2 2023/05/03 17:35
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- プリンタ・スキャナー RICOHオンデマンドで、手差しで中綴じ印刷をしたいです。 (A4の内容を用紙サイズA3で印刷したい 1 2022/10/14 14:29
- Excel(エクセル) エクセルの印刷マクロについて質問があります。 現在、下記のマクロで印刷しています。Sheet1のD6 5 2023/06/12 10:59
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
プリンターにまで「ハードウェ...
-
エクセルVBAで手差しトレイを指...
-
プリントスクリーンで使うプリ...
-
WIN10でプリンタを削除してもポ...
-
ワードの印刷設定(手差しトレ...
-
同機種のプリンターを使い分けたい
-
プリンターでスキャンした資料...
-
プリンターがプリントされませ...
-
Windowsに標準添付されているプ...
-
プリンターのメールアドレス
-
マクロで印刷時のポートについて
-
プリンターエラー
-
WAIDOWS11を入れたら、プリンタ...
-
プリンターの追加が出来ません
-
プリンタがずっと「調査中」です。
-
お願いします。パソコンのプリ...
-
Canonのプリンターの初期化 G33...
-
Wordを使って印刷すると文字の...
-
EXCELマクロ:職場で複数の者が...
-
プリンターのインストールがで...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBAで手差しトレイを指...
-
プリントスクリーンで使うプリ...
-
WIN10でプリンタを削除してもポ...
-
15年前に買った、TVとBDレコー...
-
プリンター買い替え時の設定に...
-
同機種のプリンターを使い分けたい
-
大至急!!
-
SDカードリーダーについて
-
プリンターがプリントされませ...
-
卓上カレンダーの印刷、規定寸...
-
お願いします。パソコンのプリ...
-
Wordで用紙サイズが出ない
-
WAIDOWS11を入れたら、プリンタ...
-
active directory ドメインサー...
-
デバイスマネージャーにプリン...
-
お勧めの海外(ヨーロッパ)でも...
-
通常はプリンターAで印刷、指定...
-
プリンターのインストールがで...
-
プリンターの上に物(約2.5kgぐ...
-
マクロで印刷時のポートについて
おすすめ情報
それぞれのSheet上に印刷ボタンを設定しで印刷するようにしたいのですが、Sub 印刷()の方は通常どおり印刷しますが、Sub Macro1振替伝票印刷()の方はRICOH MP C3004 JPN PRCSが作動し、EPSON PX-K150 Seriesが作動しません。それぞれのシート上の印刷ボタンで作動させたい。
自己解決することができません。専門家の方のご教授をお願いします。