関数・メソッド

ブック全体を印刷する【Workbook.PrintOut】【ExcelVBA】

ブック内の全てのシートを印刷したいケースがあります。
その場合は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にする必要があります。
  • 任意の複数枚シート印刷したい場合や非表示のまま印刷したい場合は、こちらの記事参照。

関連記事

コメント

タイトルとURLをコピーしました