より長いワークシートを印刷する場合、奇数ページまたは偶数ページを印刷する方法を切望する場合があります。残念ながら、Excelにはこの機能が含まれていません。

ただし、この問題を回避する方法はいくつかあります。

まず、奇数ページと偶数ページを印刷する目的が両面印刷である場合は、プリンタドライバをチェックして、両面印刷を処理できるかどうか、または奇数ページまたは偶数ページを印刷できるかどうかを確認できます。このアプローチにより、Excelを完全にバイパスできます。

Excelをバイパスする別の方法は、出力からPDFファイルを作成することです。次に、PDFファイルを開き、AcrobatまたはAdobe Readerを使用して、奇数ページまたは偶数ページを印刷できます。

Excel内にとどまりたい場合は、状況を処理するためのおそらく最良の方法は、印刷を処理するマクロを考え出すことです。

このようなマクロには、さまざまな方法でアプローチできます。これが短いものです:

Sub PrintOddEven()

Dim TotalPages As Long     Dim StartPage As Long     Dim Page As Integer

TotalPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")

StartPage = InputBox("Enter starting page number")



If StartPage > 0 Then         For Page = StartPage To TotalPages Step 2             ActiveSheet.PrintOut From:=Page, To:=Page, _               Copies:=1, Collate:=True         Next     End If End Sub

マクロを実行すると、開始ページ番号の入力を求められます。ほとんどの場合、1または2のいずれかを入力しますが、実際には任意のページ番号を入力できます。次に、マクロは開始ページとそこから1ページおきに出力します。

必要に応じて、Excelで2つのカスタムビューを作成することにより、奇数ページと偶数ページを印刷することもできます。1つは奇数ページ用、もう1つは偶数ページ用です。各ビューの印刷領域として、連続していない範囲のセル(奇数ページまたは偶数ページのセルで構成される)を指定するだけです。

たとえば、すべての奇数ページのセルで構成される印刷領域を定義する場合は、次のように実行できます。

。改ページプレビューに変更します。

。マウスを使用して、ページ1のすべてのセルを選択します。

。 Ctrlキーを押しながら、3ページのすべてのセルを選択します。

。次に、Ctrlキーを押したまま、他の奇数ページのすべてのセルを選択します。

。選択したセルを印刷領域として定義します。

印刷領域を選択した状態で、ビューを保存します。次に、印刷領域を消去し、同じ手法を使用してすべての偶数セルを選択し、ビューを保存します。これで、印刷できる2つのビューがあり、各ビューには奇数ページまたは偶数ページのみが含まれます。このアプローチの唯一の欠点は、Excelが実際のページ(1、3、5、7)ではなく、印刷されたページに順番に番号を付けること(1、2、3、4)です。

注:

このページ(または_ExcelTips_サイトの他のページ)で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

link:/ excelribbon-ExcelTipsMacros [ここをクリックして、新しいブラウザタブでその特別なページを開きます]

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

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

link:/ excel-Printing_Odd_or_Even_Pages [奇数ページまたは偶数ページの印刷]