Ianは、通常、少なくとも30のワークシートを含むExcelワークブックをまとめています。各ワークシートを印刷する場合は、最低8ページが必要です。 Ianは、ワークシートの最初の2ページに表示される各ワークシートのデータを更新することがよくあります。印刷するとき、Ianは各ワークシートの最初の2ページだけを印刷する方法を望んでいます。

ワークシートの範囲を選択してから印刷することを選択すると、それらのワークシートはExcelによって単一の連続した印刷ジョブと見なされます。

したがって、たとえば、20個のワークシートを選択し、各ワークシートに8ページが必要な場合、Excelではそれぞれ8ページの20個の個別の印刷ジョブとしてではなく、単一の160ページの印刷ジョブとして扱われます。

理論的には、[印刷]ダイアログボックス(Excel2007およびExcel2010)または印刷設定ページ(Excel 2013)で、1、2、9、10、17、18ページなどを印刷するように指定できますが、これはエラーが発生しやすく、非常に面倒です。印刷されるワークシートがさまざまなページ数で構成されていると、さらに困難になります。

最善の解決策は、印刷を行うマクロを作成することです。

マクロは、選択したワークシートの数に応じてステップスルーし、それらの各ワークシートの最初の2ページのみを印刷できます。次のマクロはこの手法を実装しています:

Sub PrintTwoPages()

Dim sht As Variant

For Each sht In ActiveWindow.SelectedSheets         sht.PrintOut From:=1, To:=2, Preview:=True     Next     Set sht = Nothing End Sub

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント(9579)は、Microsoft Excel 2007、2010、および2013に適用されます。Excelの古いメニューインターフェイス用のこのヒントのバージョンは、次の場所にあります。