ブック内の全てのシートを印刷したいケースがあります。
その場合はPrintOutメソッドでブックを指定すればよいです。
ブック全体(すべてのシート)を印刷するサンプルコード
Public Sub sample() '■現在のブックを全てのシートを印刷する ActiveWorkbook.Sheets.PrintOut '■マクロブックを全てのシートを印刷する ThisWorkbook.Sheets.PrintOut '■マクロブックを全てのシートを印刷プレビュー表示する ThisWorkbook.Sheets.PrintOut Preview:=True '■非表示のシートが存在する場合エラー発生 '実行時エラー1004 PrintOutメソッドは失敗しました。 Sheetsオブジェクト ActiveWorkbook.Sheets.PrintOut End Sub
注意点
- 上記は、ワークブック全体のシートを1回の印刷処理で印刷します。
- 上記は、非表示シートがあった場合はSheetをVisible=Trueにする必要があります。
- 任意の複数枚シート印刷したい場合や非表示のまま印刷したい場合は、こちらの記事参照。
コメント