1 枚の用紙に印刷する
縦横とも1ページに収まるよう縮小します。
実行前に確認
- 設定だけを変更し、印刷はしません。［ファイル］→［印刷］のプレビューで確認してください。プリンター環境により利用できない設定があります。データが多いと文字が極端に小さくなります。
1サンプルコード
Sub Sample3092()
With ThisWorkbook.Worksheets("練習").PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
End Sub図で見る操作の流れ
イメージ図コードに沿った概念図です。実際の画面や実行結果ではありません。
対象
「練習」シートの印刷レイアウト
マクロ：倍率指定を解除
PageSetup.ZoomをFalseにする
マクロ：ページ数を指定
横1ページ・縦1ページに収める設定
手動：確認
プレビューで文字の大きさと配置を見る
実印刷はしません。データが多いと文字が非常に小さくなります。画面ズームとは別の設定です。
コードの処理を説明する模式図です。実際の画面や実行結果を撮影したものではありません。
使い方・実行手順を確認する3つの手順で、コードの使い方を確認できます
- 1
練習用のブックをExcelマクロ有効ブック（.xlsm）で保存します。練習シートにA1:F20程度のデータを入れます。
- 2
Alt＋F11でVBEを開き、［挿入］→［標準モジュール］にコードを貼り付けます。
- 3
Sample3092内にカーソルを置いてF5で実行します。縦横とも1ページに収まるよう縮小します。