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

通常、アクティブなワークブックのページを印刷すると、最初のページから最後のページまで順番に印刷されます。しかし、場合によっては、最後のページから始まる逆順にページを印刷する必要があるかもしれません。この記事では、Excelで最後のページを最初に印刷するための方法を紹介します。

VBAを使用して最後のページを最初に印刷する

Kutools for Excelを使用して1ステップで最後のページを最初に印刷する

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

VBAを使用して最後のページを最初に印刷する

以下は、逆順にページを印刷するのに役立つVBAコードです。

1. Alt + F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを有効にします。

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

VBA: 最後のページを最初に印刷する

Sub ReversePrint()
'UpdatebyKutoolsforExcel20160106
Dim xPages As Long
xPages = ExecuteExcel4Macro("GET.DOCUMENT(50)")
For xIndex = xPages To 1 Step -1
    Application.ActiveSheet.PrintOut from:=xIndex, To:=xIndex
Next
End Sub

3. その後、F5キーを押してVBAコードを実行します。これで、最後のページから印刷が開始されます。

Kutools for Excelを使用して最後のページを最初に印刷する

VBAコードに慣れていない場合は、Kutools for Excelの「ワークシートを逆順に印刷する」機能を使用して、最後のページから素早く印刷することができます。

印刷したいワークブックを有効にし、次をクリックします： Kutools Plus > 印刷 > ワークシートを逆順に印刷するスクリーンショットをご覧ください：

ポップアップダイアログでコピー部数を指定し、「印刷」をクリックすると、ページが最後のページから最初のページへと印刷され始めます。

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

Kutools for Excelには、「各ワークシートの最初のページを印刷する」というユーティリティがあり、ワークブック内の各ワークシートの最初のページのみを迅速に印刷するのに役立ちます。

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

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

関連記事：

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