バーバラには、定期的に印刷する必要のあるワークシートがあります。

3列のデータのみを印刷する必要がある場合もあれば、さらに印刷する必要がある場合もあります。彼女が3列だけを印刷するとき、それらは縦向きで印刷されたページに非常にうまく収まります。彼女がより多くの列を印刷するとき、彼女は横向きで印刷する必要があります。バーバラは、印刷したい列の数に基づいて縦向きから横向きに自動的に切り替わるようにExcelを設定する方法があるかどうか疑問に思います。

おそらく、このタイプの印刷を処理する最も簡単な方法は、印刷の直前に実行される小さなマクロを追加することです。印刷領域が1、2、または3列を含むように設定されている場合、印刷は縦向きで行われます。他の数の列と横向きが使用されます。これがマクロです。 ThisWorkbookモジュールに追加する必要があります：

Private Sub Workbook_BeforePrint(Cancel As Boolean)

With ActiveSheet.PageSetup         If Range(.PrintArea).Columns.Count > 3 Then             .Orientation = xlLandscape         Else             .Orientation = xlPortrait         End If     End With End Sub

もちろん、Excelのカスタムビュー機能を使用するだけの場合は、より有益（かつ柔軟）になる可能性があります。 3つの列または任意の数の列を含むビューを指定できます。ビューに印刷設定を含めることもできるので、ページの向きがビューに含まれます。ビューを設定するには、次の手順に従います。

。ワークシートを希望どおりにフォーマットして配置します。また、3列の印刷領域と、ページレイアウトを縦向きに設定していることも確認してください。

。リボンの[表示]タブを表示します。

。 [ブックビュー]グループの[カスタムビュー]をクリックします。 Excelに[カスタムビュー]ダイアログボックスが表示されます。

。 [追加]ボタンをクリックします。 Excelに[ビューの追加]ダイアログボックスが表示されます。 （図1を参照）

。 「名前」フィールドに、このビューに関連付ける名前を入力します。

。 [ビューに含まれるもの]セクションで、このビューで保存する内容を反映するオプションを選択します。印刷設定を含めることを必ず指定してください。

。設定に問題がなければ、[OK]ボタンをクリックします。現在のビューはExcelによって保存されます。

。手順1〜7を繰り返しますが、今回はより広い印刷領域に対して、横向きのページレイアウトを設定していることを確認します。

これで、さまざまな方法で印刷したいときはいつでも、必要なビューを呼び出して印刷することを選択するだけです。他のすべてはすでに設定されています。

注：

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

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

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

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

link：/ excel-Automatic_Selection_of_Portrait_or_Landscape [ポートレートまたはランドスケープの自動選択]。