複数のExcelファイルの全シートを全部Docuworksにしたいのでマクロをパクった

神Excelカルテみたいなものを扱うお仕事をもらうと、いっぱい出力しないと行けません。

ちまちまプリントアウトするのは、不毛なのですが、クソ忙しいと不毛なことをし続けることになります。

しかしちょっと待ってほしい。手抜きをしようジャマイカ？

まあこんなこと当たり前のようにやっている人は以下省略で結構です。

excel 複数ファイル印刷 – Google 検索でググりますと、なんかそれっぽいものが出てきます。

【ExcelVBA】複数のExcelファイルの全シートを一括印刷するマクロ｜もりさんのプログラミング手帳

この辺りがビンゴ！と思いまして、動かしてみました。

GO!

ダメでした。

どうも wb.Sheets.PrintOutってのがダメらしい。

ここを書き換える能力は私には無い。他のネタを探した。

すべてのシートを取得して印刷 – Google 検索

こうググってみたら・・・ここに行き着いた。

複数シートの印刷（PrintOut）｜VBAサンプル集

ActiveWorkbook.PrintOut Preview:=Trueってのをバグったところに入れたら良いんじゃないか？

Preview:=Trueは、プレビューで止まるからFalseにしてしまおう。

/*Sub 一括印刷()

'ダイアログで印刷対象ブックを開く（複数ファイル指定可）
Dim FileName As Variant
FileName = Application.GetOpenFilename _
("Microsoft Excelブック,*.xls?", MultiSelect:=True)

If Not IsArray(FileName) Then
Exit Sub
End If

Dim cnt As Long '選択ファイル数のカウント
cnt = UBound(FileName)

Dim rc As Long '実行確認
rc = MsgBox(cnt & "ファイルが選択されました。" & vbCrLf & _
"印刷を開始しますか？", vbOKCancel + vbInformation)

If rc = vbOK Then

Dim n As Long '印刷対象のブック数
For n = LBound(FileName) To UBound(FileName)

Dim wb As Workbook '印刷対象ブック
Set wb = Workbooks.Open(FileName(n))

ActiveWorkbook.PrintOut Preview:=False '全シート印刷

wb.Close False '保存しないで閉じる

Next n

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

End If

End Sub
*/