Excelで偶数ページまたは奇数ページのみを印刷するにはどうすればよいですか？

Excelでの作業中、通常はページを印刷する必要があり、デフォルトでは選択範囲、ワークブック全体、または指定されたページ（例：1ページ目から3ページ目まで）を印刷できます。しかし、アクティブなワークブックの偶数ページまたは奇数ページのみを印刷する方法はご存じですか？この記事では、Excelワークブックで偶数ページまたは奇数ページのみを印刷するためのコツをご紹介します。

VBAを使用して偶数ページ/奇数ページのみを印刷する

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

Kutools for Excelを使用して各ワークシートの最初のページを印刷する

VBAを使用して偶数ページ/奇数ページのみを印刷する

Excelで偶数ページまたは奇数ページのみを印刷したい場合、VBAを使用してそれを実行できます。

1. Alt + F11キーを押してMicrosoft Visual Basic for Applicationsウィンドウを開きます。

2. 次に、挿入 > モジュールをクリックし、以下のVBAコードを新しい モジュールウィンドウに貼り付けます。

VBA: 偶数ページまたは奇数ページのみを印刷する

Sub PrintOddEven()
'UpdatebyKutoolsforExcel20160105
    Dim xPages As Long
    Dim xFPage As Variant
    Dim Page As Integer
    xPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
    xFPage = Application.InputBox("Enter 1 for odd pages, enter 2 for even pages", "Kutools for Excel", , , , , , 1)
    If TypeName(xFPage) = "Boolean" Then Exit Sub
    If xFPage > 0 Then
        xFPage = Abs((xFPage Mod 2) - 2)
        For Page = xFPage To xPages Step 2
            ActiveSheet.PrintOut Page, Page
        Next
    End If
End Sub

3. 実行するために F5 キーを押してVBAを実行し、次に 1 と入力してすべての奇数ページを印刷するか、または 2 と入力してすべての偶数ページをポップアップするダイアログで印刷します。 Kutools for Excel ダイアログです。スクリーンショットをご覧ください：

4. 「OK」をクリックすると、奇数ページまたは偶数ページのみが印刷されます。

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

VBAコードに慣れていない場合は、Kutools for Excelの「特定のページを印刷」機能を使用できます。これにより、必要な特定のページ（例：奇数ページ/偶数ページのみ、5〜12ページのみなど）を迅速に印刷できます。

Kutools for Excelをインストール後、以下のように操作してください。（今すぐKutools for Excelを無料でダウンロード！）

クリックしてください Kutools Plus > 印刷 > 特定のページを印刷そして、表示されるダイアログで、「 奇数ページ または 偶数ページ 」オプションを選択してください。スクリーンショットをご覧ください：

「OK」をクリックすると、奇数ページまたは偶数ページのみが印刷されます。

注記：特定のページ（例：2ページ目から5ページ目）を印刷したい場合は、「カスタム範囲」オプションをチェックし、テキストボックスに「2-5」と入力します。スクリーンショットをご覧ください：

ヒント：「特定のページを印刷」機能を無料でお試しになりたい場合は、まずKutools for Excelを無料でダウンロードしてから、上記の手順に従って操作を行ってください。

奇数ページ/偶数ページ/特定のページのみを印刷する

Kutools for Excelを使用して各ワークシートの最初のページを印刷する

開いているワークブックに複数のシートがある場合、各ワークシートの最初のページのみを印刷したい場合があります。このような場合、 Kutools for Excelの「 各ワークシートの最初のページを印刷」機能を使用して、迅速にこれを実行できます。

Kutools for Excelをインストール後、以下のように操作してください。（今すぐKutools for Excelを無料でダウンロード！）

各シートの最初のページを印刷したいワークブックを有効にし、次に Kutools Plus > 印刷 > 各ワークシートの最初のページを印刷をクリックします。スクリーンショットをご覧ください：

これで、各シートの最初のページが印刷されます。

関連記事：

• Excelで最後のページを最初に印刷するにはどうすればよいですか？
• ExcelでX行ごとにページを印刷するにはどうすればよいですか？