[[20210811204129]]　『Excel VBAを使って白黒印刷がデフォルトのプリンメx（shirosuke）　ページの最後に飛ぶ

『Excel VBAを使って白黒印刷がデフォルトのプリンタでカラー印刷したい』（shirosuke）

   Excelでマクロを使って白黒印刷がデフォルトのプリンタでカラー印刷　　
したいのですがうまくいきません。
　　ActiveWindow.SmallScroll ToRight:=12
    Range("AF1:BF33").Select
    Range("BF33").Activate
    ActiveSheet.PageSetup.PrintArea = "$AF$1:$BF$33"
    ActiveSheet.PageSetup.BlackAndWhite = False
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
    IgnorePrintAreas:=False
    Range("AC12").Select
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
　　End Sub
よろしくお願いいたします。

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

＞白黒印刷がデフォルトのプリンタでカラー印刷
と仰っているので、カラープリンタ側の設定でモノクロ印刷の設定にしてるんですよね？

であれば、別途カラー出力に設定したプリンタドライバ？を設定して、VBAではActivePrinterを切り替えればよいはずです。

自信がないので断言はしませんが、VBAでプリンタの設定自体をいじるのはちょっと無理だとおもいます。

（もこな２） 2021/08/11(水) 20:57

他のアプリ等でカラー設定にすればカラー印刷できるのであれば、
少し詳細説明

１．既設プリンターの設定確認
　設定＞デバイス＞プリンターとスキャナー　から　プリンターを選び、管理をクリック。
　プリンターのプロパ　　ティをクリック。全般タブの基本設定クリック
　ここでモノクロ印刷に設定されていている。
２．カラー印刷用のプリンター設定の追加
　プリンターまたはスキャナーを追加します　から同プリンターを追加し名前の後ろに
　_Col等区別できる名前を付ける。
　基本設定をカラー印刷にし（モノクロ印刷のチェックが外れている、になるのかな？）、ポートタブのポート一覧についてるチェックを白黒印刷のものと同じか確認する。
　全般タブのテストページの印刷　でカラー印刷できれば準備完了
３．VBAへ追記

    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
    ActivePrinter:="xxxxxx_Col" _
    IgnorePrintAreas:=False
    とプリンター設定指定で印刷する。
　
（あい） 2021/08/12(木) 18:34

あいさんありがとうございます。上記のやり方があったんですね。プリンターの複製後、VBAの追加でやってみたいと思います。ありがとうございました。
（shirusuke） 2021/08/13(金) 16:52

コメント返信：

[ 一覧(最新更新順) ]

[[20210811204129]] 『Excel VBAを使って白黒印刷がデフォルトのプリンメx（shirosuke） ページの最後に飛ぶ

[[20210811204129]]　『Excel VBAを使って白黒印刷がデフォルトのプリンメx（shirosuke）　ページの最後に飛ぶ