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

Excelの作業では、通常、ページを印刷する必要があります。デフォルトでは、選択範囲を印刷したり、ブック全体を印刷したり、1〜3ページなどの指定したページを印刷したりできますが、XNUMXページだけを印刷する方法を知っていますか。アクティブなワークブックの奇数ページ？ この記事では、Excelブックで偶数ページまたは奇数ページのみを印刷するのに役立つトリックを紹介します。

VBAでのみ偶数/奇数ページを印刷する

Kutools forExcelで特定のページを印刷する

各ワークシートの最初のページをKutoolsforExcelで印刷します

VBAでのみ偶数/奇数ページを印刷する

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

1。 押す Altキー+ F11 開くキー アプリケーション向け Microsoft Visual Basic 窓。

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 forExcelで特定のページを印刷する

VBAコードに慣れていない場合は、適用できます Kutools for Excel's 特定のページを印刷する ユーティリティを使用すると、奇数/偶数ページのみを印刷したり、5〜12ページのみを印刷したりするなど、必要に応じて特定のページのみをすばやく印刷できます。

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

クリック クツールズプラス > 印刷 > 特定のページを印刷する、およびポップダイアログでチェックします 奇数ページ or 偶数ページ 必要に応じてオプション。 スクリーンショットを参照してください：

クリック Ok。 そして、奇数ページまたは偶数ページのみが印刷されています。

Note：2ページから5ページなど、特定のページを印刷する場合は、[カスタム範囲]オプションをオンにして、テキストボックスに2〜5と入力できます。 スクリーンショットを参照してください：

ヒント。 特定のページの印刷機能を無料で試用したい場合は、 Excel用のKutoolsを無料でダウンロードしてください まず、上記の手順に従って操作を適用します。

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

各ワークシートの最初のページをKutoolsforExcelで印刷します

開いているブックに複数のシートがあり、各ワークシートの最初のページのみを印刷する場合は、この場合、 各ワークシートの最初のページを印刷する の有用性 Kutools for Excel すぐにそれを成し遂げるために。

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

すべてのシートの最初のページを印刷するブックを有効にして、[ クツールズプラス > 印刷 > 各ワークシートの最初のページを印刷する。 スクリーンショットを参照してください：

次に、各シートの最初のページがすべて印刷されます。

関連記事：

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