Excel で奇数ページまたは偶数ページだけを印刷するには、どうすればよいですか?

しかし、Excel の印刷ダイアログには奇数ページまたは偶数ページのみを印刷するための簡単な方法が用意されておらず、長いワークシートから特定のページをレビュー、配布、またはアーカイブする必要があるさまざまなオフィスやデータレポート作成の場面で不便に感じられることがあります。
本記事では、Excel におけるこの制限を克服するための2 つの効果的なソリューションを紹介します。奇数ページまたは偶数ページを印刷するための VBA マクロと、より柔軟なKutools for Excel を使用したアプローチの両方を紹介しており、ニーズや技術的な習熟度に最も合う方法をお選びいただけます。
マクロコードで奇数ページまたは偶数ページのみを印刷する
Kutools for Excel で任意の奇数ページ、偶数ページ、または特定のページを印刷する
代替ソリューション:印刷ダイアログで手動で奇数ページまたは偶数ページを印刷する
マクロコードで奇数ページまたは偶数ページのみを印刷する
Excel には、印刷インターフェース上で奇数ページや偶数ページを直接選択するオプションはありませんが、VBA マクロを使えばこの機能を実現できます。この方法は、簡単なコードの実行に慣れており、サードパーティ製ツールに頼らずに解決したいユーザーに最適です。特に一回限りの印刷タスクや、複雑な印刷管理を頻繁に行う必要のないユーザーにとって非常に実用的です。
開始前に、ワークシートが印刷用に正しくフォーマットされていることを確認し、印刷プレビューで生成されるページ数をチェックしてください。これにより、予期しない改ページによる空白や不要な印刷物を防げます。
1。 印刷したいワークシートを開き、Alt + F11を押してMicrosoft Visual Basic for Applications(VBA)エディターを起動します。
2。VBA エディターで、挿入 > 標準モジュールをクリックしてください。新しいモジュールが挿入されますので、スクリプトウィンドウに以下のコードを貼り付けてください。スクリーンショットをご参照ください。
VBA: 奇数ページまたは偶数ページのみを印刷する
Sub Odd_Even_Print()
'UpdatebyExtendoffice20160901
Dim xTotalPages As Long
Dim xStartPage As String
Dim xPage As Integer, xYesorNo
Application.ScreenUpdating = False
xStartPage = InputBox("Enter 1 for Odd, 2 for Even", "Kutools for Excel")
If xStartPage = "" Then Exit Sub
xTotalPages = ActiveSheet.PageSetup.Pages.Count
xYesorNo = MsgBox("Are you sure to print?", vbYesNo, "Kutools for Excel")
If xYesorNo = vbYes Then
For xPage = Int(xStartPage) To xTotalPages Step 2
ActiveSheet.PrintOut from:=xPage, To:=xPage
Next
Else
Exit Sub
End If
Application.ScreenUpdating = True
End Sub 
コードをコピー&ペーストする際は、既存の必要なマクロを上書きしないようご注意ください。
3。 次にF5を押してマクロを実行します。プロンプトが表示され、選択肢の入力を求められます。奇数ページのみを印刷する場合は1を、偶数ページの場合は2を入力してください。
注:入力内容(1 または 2)を再度ご確認ください。誤った入力をすると、マクロが意図したとおりに動作しない可能性があります。無効な値を入力した場合、マクロは警告を表示するか、何も実行しないことがあります。
4。 選択内容を入力後、OKをクリックします。すると、印刷を本当に実行するかどうかを確認する2 回目のダイアログが表示されます。これは誤って印刷してしまうのを防ぐための安全策です。
印刷をキャンセルしたい場合は、このダイアログでいいえをクリックしてください。そのまま印刷を続ける場合は、はいをクリックして続行します。
5。 確認後、Excel はアクティブなワークシートの指定された奇数ページまたは偶数ページのみを既定のプリンターに送信します。
トラブルシューティングとヒント:
- このマクロは現在アクティブなワークシートでのみ動作します。複数のワークシートを印刷する場合は、それぞれのワークシートで個別にマクロを実行してください。
- マクロを実行する前に、プリンター設定を必ずご確認ください。Excel の印刷ダイアログで、正しいプリンターが選択されていることをお確かめください。
- 印刷されない場合は、印刷範囲を再度確認し、ワークシートが空でなく、かつ印刷に適したフォーマットになっていることをご確認ください。
Kutools for Excel で任意の奇数ページ、偶数ページ、または特定のページを印刷する
ワークシートから奇数ページ、偶数ページ、または特定の複数ページを頻繁に印刷する必要があるなら、Kutools for Excel が非常に効率的なソリューションを提供します。この機能は、複雑な印刷ジョブをより直感的で使いやすいインターフェースで管理したいユーザーに最適です。Kutools for Excel を使えば、すべての奇数ページや偶数ページを簡単に印刷できるだけでなく、Excel の標準機能やシンプルなマクロでは実現が難しい任意のカスタムページ範囲も、手軽に指定できます。
Kutools for Excel を無料でインストールした後、その指定ページを印刷ユーティリティを使用して、多様な印刷ニーズを効率的に処理できます:
これを行うには、KUTOOLS PLUS > 印刷 > 指定ページを印刷の順に移動します。指定ページを印刷ダイアログが表示され、印刷要件に応じてオプションを選択できます。
![]() | ![]() | ![]() |
このダイアログ内では、次の操作が可能です:
- 奇数ページすべて、偶数ページすべてを印刷するか、あるいはニーズに応じてカスタム範囲を指定できます。これにより、Excel の標準印刷オプションと比べてはるかに高い柔軟性を実現します。
- 簡単にプレビューして、正しいページを印刷しているかを確認し、無駄な印刷を回避できます。
ヒント:
1。1、3、5、および9~12 のようなカスタムページセットを印刷するには、カスタム範囲を選択し、指定されたフィールドにページ範囲を入力してください(例:1、3、5、9-12)。
2。コピー回数を制御するには、部数設定で希望の枚数を指定し、選択したページを複数部印刷します。
3。ワークシートを逆順に印刷したい場合は、逆順で印刷オプションをオンにしてください。これは、印刷後にページの整理が気になる大規模な印刷ジョブで特に役立ちます。
注意点と提案:
- 正確な印刷結果を得るために、Kutools の印刷機能をご利用になる前に、ワークシートの改ページ設定と印刷範囲を必ずご確認ください。
- 「範囲を選択してください」を印刷する際は、ページ設定によっては非表示の行や列が含まれる場合がありますので、ご注意ください。
- 特に大規模または重要なドキュメントの場合は、必ず最終印刷前に印刷プレビューで出力を確認してください。
- この方法は一度に1 つのワークシートに対して適用されます。追加のシートがある場合は、必要に応じて繰り返し実行してください。
メリット:Kutools for Excel は、定期的な業務や複雑なレポートを管理するユーザー、あるいは印刷ミスを最小限に抑えたい方に最適です。コーディング知識が不要な直感的なインターフェースで、カスタム印刷のあらゆるシナリオにおいて VBA ソリューションよりもはるかに柔軟に対応できます。
代替ソリューション:印刷ダイアログで手動で奇数ページまたは偶数ページを印刷する
VBA やサードパーティ製ツールを使わずにExcel で手動で奇数ページまたは偶数ページを印刷することも可能ですが、印刷ダイアログでは一度に1 つのページ範囲しか指定できません。Excel は「ページ」ボックスへの非連続ページ(例:1,3,5)の入力をサポートしていません。
手動で奇数ページまたは偶数ページを印刷するには:
- 次に、「ファイル」>「印刷」をクリックして進みます。
- 「ページ」フィールドの「開始ページ」ボックスに単一のページ番号(例:1)を入力すれば、その特定のページだけを印刷できます。
- 印刷をクリックします。
- 必要に応じて、奇数ページまたは偶数ページごとにこの手順を繰り返してください。
デモ:Kutools for Excel で任意の奇数ページ、偶数ページ、または特定のページを印刷する
最高の Office 業務効率化ツール
| 🤖 | KUTOOLS AI アシスタント:次に基づいてデータ分析を革新します:インテリジェント実行 | コード生成| カスタム数式作成 | データ分析とチャート生成| 拡張機能呼び出し… |
| 人気の機能:検索・ハイライト、または重複をマーキング | 空白行を削除する | データを失うことなく列の結合またはセルを | 数式を使用しない四捨五入... | |
| スーパー LOOKUP:複数条件 VLookup | 複数値 VLookup | 複数シート間 VLookup | ファジーマッチ.... | |
| 高度なドロップダウンリスト:ドロップダウンリストをすばやく作成 | 連動型ドロップダウンリスト | 複数選択可能なドロップダウンリスト.... | |
| 列マネージャー:指定した数の列を追加|列の移動|非表示列の表示状態を切り替え|範囲および列の比較... | |
| 注目の機能:グリッドフォーカス | デザインビュー |強化された数式バー | ワークブックとシートマネージャー | リソースライブラリ(オートテキスト)| 日付ピッカー | ワークシートの統合 | 暗号化/セルの復号化 | リストからメール送信 | スーパーフィルター | 特殊フィルタ(太字のフォントを持つセルをフィルタリング/斜体/取り消し線。。。) 。。。 | |
| トップ15 ツールセット:12 テキストツール(テキストの追加、特定の文字を削除、...)| 50+チャートタイプ(ガントチャート、...)| 40+実用的関数(誕生日に基づいて年齢を計算します、...)| 19 挿入ツール(QR コードを挿入、パスから画像を挿入、...)| 12 変換ツール(単語に変換する、為替レートの変換、...)| 7 結合と分割ツール(高度な行のマージ、セルの分割、...)|さらに多数 |
Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。
Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします
- Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
- 複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
- 日々の生産性を50%も向上させ、毎日数百回ものマウスクリックを削減します!
すべてのKutools アドインが、たった1 つのインストーラーで完結。
Kutools for Officeスイートには、Excel ・Word ・Outlook ・PowerPoint 用のアドインと Office Tab Pro が含まれており、複数の Office アプリを横断して作業するチームに最適です。
- オールインワンスイート— Excel、Word、Outlook、PowerPoint 用アドイン+Office Tab Pro
- インストーラー1 つ、ライセンス1 つ— 数分でセットアップ可能(MSI 対応)
- 連携してさらにパワーアップ— Office アプリ全体で生産性が向上
- 30 日間のフル機能トライアル— 登録不要、クレジットカード不要
- 最高のお得感— 個別アドイン購入よりお得


