[[20191026111441]]　『プリンター選択と、カラー印刷をマクロで行いたい』（花）　ページの最後に飛ぶ

『プリンター選択と、カラー印刷をマクロで行いたい』（花）

印刷のコードで困っております。
下記に詳細を書きますので宜しくお願い致します。

 ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, copies:=1, collate:=True, IgnorePrintAreas:=False, ActivePrinter:=Sheets("プリンター").Range("A2").Value

現在このコードを使い印刷を行っているのですが、毎回白黒印刷になりますのでカラー印刷に変更したいと思っております。

 Sub test()
    With ActiveSheet.PageSetup
        .BlackAndWhite = False
        .Parent.PrintOut
    End With
 End Sub

上記のコードでカラー印刷が出来るのはわかっているのですが、プリンター選択のコードと一つにまとめる書き方がわかりません。
どの様にしたら宜しいでしょうか？

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

 こんな感じでしょうか？

 Sub test()
    Dim mysht As Worksheet
    With ActiveWindow
        For Each mysht In .SelectedSheets
            mysht.PageSetup.BlackAndWhite = False
        Next
        .SelectedSheets.PrintOut _
        From:=1, To:=1, copies:=1, _
        collate:=True, IgnorePrintAreas:=False, _
        ActivePrinter:=Sheets("プリンター").Range("A2").Value
    End With
 End Sub

（渡辺ひかる） 2019/10/26(土) 11:52

渡辺ひかるさん、ごめんなさい。提案頂いたコードだと白黒で出てしまいます。
（花） 2019/10/26(土) 12:43

 こちらでは 問題ないんですけどね

 ＞毎回白黒印刷になりますので

 指定したプリンター本体が、モノクロ指定になっているということはないですか？

 下記のコードで印刷プレビューを表示してみてモノクロになっていれば、
 Excelでデフォルトで指定している、プリンター側の設定だと思います

 Sub test()
    Dim mysht As Worksheet
    With ActiveWindow
        For Each mysht In .SelectedSheets
            mysht.PageSetup.BlackAndWhite = False
        Next

        .SelectedSheets.PrintPreview

    End With
 End Sub

（渡辺ひかる） 2019/10/26(土) 13:02

確認してみます！！
（花） 2019/10/26(土) 13:12

コメント返信：

[ 一覧(最新更新順) ]

[[20191026111441]] 『プリンター選択と、カラー印刷をマクロで行いたい』（花） ページの最後に飛ぶ

[[20191026111441]]　『プリンター選択と、カラー印刷をマクロで行いたい』（花）　ページの最後に飛ぶ