各シートの最初のページを迅速に印刷するにはどうすればよいですか？

複数のワークシートが含まれているワークブックがあり、各シートの最初のページのみを印刷したい場合があります。実際には、印刷設定でページ1から1に設定し、それらを一つずつ印刷することができます。しかし、これは面倒で時間がかかります。Excelで各タブの最初のページをすべて簡単に印刷する方法はありますか？

VBAコードを使用して各シートの最初のページを印刷する

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

VBAコードを使用して各シートの最初のページを印刷する

次のVBAコードは、各ワークシートの最初のページを同時にすばやく印刷するのに役立ちます。以下の手順に従ってください：

1. ALT + F11キーを押したままにすると、Microsoft Visual Basic for Applicationsウィンドウが開きます。

2. 「挿入」＞「モジュール」をクリックし、次のコードをモジュールウィンドウに貼り付けます。

VBAコード：各シートの最初のページを印刷する

Sub PrintAllFirstPage()
'Update 20140924
Dim xWs As Worksheet
For Each xWs In Application.ActiveWorkbook.Worksheets
    xWs.PrintOut from:=1, To:=1
Next
End Sub

3. 次にF5キーを押してこのコードを実行すると、各タブの最初のページが同時に印刷されます。

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

Kutools for Excelがインストールされている場合、複数の印刷ツールが用意されており、「各ワークシートの最初のページを印刷する」機能を使用して、各シートの最初のページを印刷できます。

各シートの最初のページのみを印刷したいワークブックを有効にし、次に「Kutools Plus」＞「印刷」＞「各ワークシートの最初のページを印刷する」をクリックします。その後、再確認のために Kutools for Excel のポップアップが表示されます。スクリーンショットをご覧ください：

クリック後、各シートの最初のページがすべて印刷されます。

関連記事：

ローマ数字のページ番号でページを印刷するにはどうすればよいですか？

Excelで複数のワークブックを印刷するにはどうすればよいですか？

Excelで長い列を1ページに印刷するにはどうすればよいですか？

ワークシートの逆順にページを印刷するにはどうすればよいですか？