Excelでシートを1ページに収めて印刷する方法（3つの簡単なテクニック）

Excelのワークシートの内容が多いと、印刷時に複数ページにまたがってしまうことがあります。その場合、はみ出した列や行が別の用紙に印刷されてしまい、1列や1行だけの紙を印刷するのはとても非効率です。そこで便利なのが、印刷範囲を縮小してすべての内容を1ページに収める機能です。この記事では、Excelで「ページに適合（Fit to Page）」を設定する3つの方法をわかりやすく解説します。

Excelで1ページに収めるための3つの方法

Excelのスプレッドシートは、思った通りに印刷されないことがよくあります。運が良ければ行と列がちょうど用紙サイズに一致しますが、多くの場合、わずか1列や1行のはみ出しで余分なページが追加され、最悪の場合ページ数が2桁に増えることもあります。ここでは、「ページレイアウト」タブを使う方法、印刷プレビュー画面から設定する方法、そしてVBAコードを活用する方法の3つをご紹介します。例として、複数の行と列からなるサンプルデータを使用します。

方法1：ページレイアウトタブを使って1ページに収める

最初の方法では、「ページレイアウト」タブを使って、ワークシートを1ページに収める手順を説明します。

ステップ1：

• まず、リボンの「ページレイアウト」タブを選択します。
• 次に、「ページ設定」グループ右下の矢印マーク（ダイアログボックス起動ツール）をクリックします。

ステップ2：

• 「ページ設定」ダイアログボックスが開きます。
• 「拡大/縮小」セクションの「次のページ数に合わせて印刷」を選択し、横「1」× 縦「1」を指定します。
• 最後に「OK」をクリックして完了です。

ステップ3：

• これで、ワークシート全体が1ページに収まり、きれいに印刷できるようになります。

関連記事： 印刷倍率を変更してすべての列を1ページに印刷する方法

方法2：印刷プレビュー画面から1ページに収める

次の方法では、印刷プレビュー画面から簡単に設定する手順をご紹介します。印刷直前にサッと調整したいときに便利な方法です。

ステップ1：

• まず、「ファイル」タブを開きます。

ステップ2：

• 「印刷」を選択します。
• 印刷設定の「拡大/縮小」で「縮小なし」になっていることを確認し、ドロップダウンを開きます。
• 「シートを1ページに印刷」を選択します。

ステップ3：

• プレビュー画面で、ワークシート全体が1ページに収まっていることを確認できます。この状態でそのまま印刷すればOKです。

関連記事： Excelで「ページに適合」のプレビューが小さく見えるときの対処法（5つの解決策）

方法3：VBAコードで1ページに収める

最後の方法では、「開発」タブからVBAコードを作成し、自動的に1ページに収める設定を行います。同じ操作を繰り返すことが多い方には、この自動化が特におすすめです。

ステップ1：

• まず、「開発」タブを開きます。
• 次に、「Visual Basic」コマンドを選択します。

ステップ2：

• Visual Basic Editorのウィンドウが開きます。
• メニューの「挿入」から「標準モジュール」を選択し、VBAコードを記述できるようにします。

ステップ3：

• 以下のVBAコードをモジュールに貼り付けます。「実行」ボタンをクリックするか、F5キーを押してプログラムを実行してください。

Sub Fit_to_Page()
Dim Mysheet As Worksheet
Set Mysheet = ThisWorkbook.ActiveSheet
'PageSetup allows to configure different printing settings in their configuration
With Mysheet.PageSetup
'Data set will be printed in landscape orientation without zoom
.Orientation = xlLandscape
.Zoom = False
'One page for height
.FitToPagesTall = 1
'One page for wide
.FitToPagesWide = 1
'Print area will be specified
.PrintArea = "A1:E26"
End With
'Any sheet for printing
Set Mysheet = Nothing
End Sub

VBAコードの解説

• まず、Subプロシージャ「Fit_to_Page」を定義します。
• 次に、現在開いているワークシートをアクティブシートとして参照します。
• PageSetupオブジェクトを使うことで、さまざまな印刷設定を構成できます。
• Orientation = xlLandscapeで、用紙の向きを横向きに指定します。
• FitToPagesTall = 1とFitToPagesWide = 1で、縦横ともに1ページに収まるよう指定します。
• 最後に、PrintArea = "A1:E26"で印刷範囲を指定します。

ステップ4：

• 実行後、ワークシート全体が1ページに収まった印刷結果になります。

関連記事： Excelで印刷用のページサイズを調整する方法（6つのクイックテクニック）

まとめ

この記事では、Excelでワークシートを1ページに収めて印刷するための3つの便利な方法を紹介しました。「ページレイアウト」タブからの設定、印刷プレビューからの素早い調整、VBAによる自動化と、状況に応じて使い分けることで、印刷作業の効率が大きく向上します。この記事が皆さんのお役に立てば幸いです。Excelに関する他の記事もぜひご覧ください。ご質問やご意見がありましたら、下のコメント欄でお気軽にお知らせください。

関連記事

• WordでExcelシートを1ページに収める方法（3つの簡単な方法）
• Excelスプレッドシートを全ページ印刷に引き伸ばす方法（5つの簡単な方法）
• Excelですべての列を1ページに収める方法（5つの簡単な方法）