エクセル一括印刷

全シート　カラー　印刷したい。（エクセルの元は白黒指定）

プリンターを選択して切り替え、もう一度印刷するプリンタ名を選択する。

別のプリンタ選択：Document Image Writerなど

上記の作業で再セットしたプリンタの詳細設定を再取得し、全シートに反映する。

これをマクロで再現するにはエクセルを開いた後に以下の命令を追加

Dim 旧プリンター名 as String

現プリンター名 = Application.ActivePrinter

Application.ActivePrinter ="???" 'Document Image Writer等のプリンター

Application.ActivePrinter = 現プリンター名

エクセルはプリンタ情報を保持している。

プリンタの変更でプリンタ情報が初期化される。

関連
エクセル 複数シート 両面 割り付け 印刷｜備忘録 (。・_・。)ノ

↓Excel2013で稼働確認済み

Option Explicit

Sub putDoc()

    Dim strPath As String

    Dim strFileName As String

    Dim wbkWrokbook As Workbook

    strPath = cells(1, 2)                           ' パース指定

    If Dir(strPath, vbDirectory) = "" Then          ' フォルダの存在確認

        MsgBox "指定のフォルダは存在しません。"

        Exit Sub

    End If

    strFileName = Dir(strPath & "\*.xls", vbNormal) ' 拡張子指定

    Do While Trim(strFileName) <> ""                ' ファイルが見つからなくなるまで繰り返す

        'Debug.Print strFileName

        Set wbkWrokbook = Application.Workbooks.Open(strPath & "\" & strFileName)

        wbkWrokbook.PrintOut

        wbkWrokbook.Close False

        Set wbkWrokbook = Nothing

        strFileName = Dir()                         ' 次のファイル名を取得

    Loop

    MsgBox "印刷を終了しました"

End Sub