Excelで特定のシート以外のすべてのシートを印刷するにはどうすればよいですか？

Excelで作業しているとき、複数のシートを印刷することは一般的なタスクです。しかし、特定の1つのシートを除いてすべてのシートを印刷する必要がある場合はどうすればよいでしょうか？例えば、「合計」という名前のシート以外はすべて印刷したい場合があります。このガイドでは、印刷から特定のシートを迅速に除外するための2つの方法をご紹介します。

VBAを使用して特定の1つのシート以外を印刷する

Kutools for Excelを使用して必要な特定のページを印刷する

VBAを使用して特定の1つのシート以外を印刷する

以下は、特定の1つのシートを除くすべてのシートを印刷できるVBAコードです。

1. 印刷したいシートが含まれるワークブックをアクティブにし、Alt + F11キーを押してMicrosoft Visual Basic for Applicationsウィンドウを開きます。

2. 「挿入」>「モジュール」をクリックし、以下のコードをモジュールスクリプトに貼り付けます。

VBA: 特定の1つのシートを除いて印刷する

Sub printsheets() 'UpdatebyExtendoffice20161031 Dim xWs As Worksheet Application.ScreenUpdating = False For Each xWs In ThisWorkbook.Worksheets If xWs.Visible = True Then If xWs.Name <> "Total" Then With xWs.PageSetup .PrintArea = "A1:B15" ' USE YOUR PRINTAREA .Zoom = False .FitToPagesTall = 1 .FitToPagesWide = 1 End With xWs.PrintOut End If End If Next xWs Application.ScreenUpdating = False MsgBox "Sheet “Total” has not been printed", vbInformation, "Kutools for Excel" End Sub

注: コード内の If xWs.Name <> "Total" Then と MsgBox "Sheet Total have not been printed" の「Total」は印刷したくないシートの名前であり、 .PrintArea = "A1:B15" の「A1:B15」は各シートで印刷したい範囲です。必要に応じてこれらを変更できます。

3. コードを実行するために F5 キーを押すと、指定されたシートが印刷されていないことを知らせるダイアログが表示されます。スクリーンショットをご覧ください：

4. ダイアログを閉じるには「 OK」をクリックします。

Kutools for Excelを使用して必要な特定のページを印刷する

偶数ページまたは奇数ページのみ、または特定のシートの特定のページを印刷したい場合は、 Kutools for Excelの「 指定したページを印刷する」機能を使用することで、素早く対応できます。

1. 印刷したい特定のページが含まれているシートをアクティブにして、 Kutools Plus > 印刷 > 指定したページを印刷するをクリックします。スクリーンショットをご覧ください：

2. 次に、 指定したページを印刷する ダイアログで、印刷のニーズに基づいてオプションをチェックします。スクリーンショットをご覧ください：

3. 「印刷」をクリックしてページを印刷します。