Excelは優れたスプレッドシートツールであり、データの入力、計算、分析、そして印刷にも使用できます。
しかし、特に大きなデータセットを印刷しようとすると、1ページに収めることが難しい場合があります。
今回は、Excel VBA（Visual Basic for Applications）を駆使して、1ページに収めて楽々印刷する方法についてご紹介します。
ワークシートの整理
まず最初に、印刷するワークシートを整理しましょう。
無駄な行や列を削除し、必要なデータだけを残します。
また、フォントサイズやセルの幅を調整して、1ページに収めやすくします。
ワークシートの整理
まず最初に、印刷するワークシートを整理しましょう。無駄な行や列を削除し、必要なデータだけを残します。また、フォントサイズやセルの幅を調整して、1ページに収めやすくします。
|
1 2 3 4 5 6 7 8 9 10 |
Sub 整理ワークシート() ' 行を削除 Rows("10:1000").Delete ' 列を削除 Columns("F:Z").Delete ' フォントサイズを変更 Range("A1:Z100").Font.Size = 10 ' セルの幅を調整 Columns("A:Z").AutoFit End Sub |
このサンプルコードは、行を削除し、列を削除し、フォントサイズを変更し、セルの幅を調整する方法を示しています。
必要に応じて、自分のデータに合わせて調整してください。
ページレイアウトの設定
次に、ページレイアウトの設定を行います。ヘッダーとフッターを設定し、余白を調整します。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
Sub ページレイアウトの設定() ' ActiveSheet.PageSetup オブジェクトを操作します With ActiveSheet.PageSetup ' ページの中央にヘッダーを設定します .CenterHeader = "Excel VBA魔法の印刷術" ' ページの中央にフッターを設定します .CenterFooter = "ページ &P / &N" ' 左の余白を0.75インチに設定します .LeftMargin = Application.InchesToPoints(0.75) ' 右の余白を0.75インチに設定します .RightMargin = Application.InchesToPoints(0.75) ' 上の余白を1インチに設定します .TopMargin = Application.InchesToPoints(1) ' 下の余白を1インチに設定します .BottomMargin = Application.InchesToPoints(1) End With End Sub |
このサンプルコードでは、ヘッダーとフッターを設定し、余白を調整しています。
タイトルやページ番号など、必要な情報に合わせてカスタマイズしましょう。
ページ設定の最適化
Excelのページ設定にはさまざまなオプションがあります。
例えば、用紙サイズ、向き、印刷対象のセル範囲を設定できます。以下は、ページ設定を最適化するサンプルコードです。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
Sub ページ設定の最適化() ' ActiveSheet.PageSetup オブジェクトを操作します With ActiveSheet.PageSetup ' 用紙サイズをA4に設定します .PaperSize = xlPaperA4 ' 印刷の向きを縦向きに設定します .Orientation = xlPortrait ' ページ幅に合わせて印刷します（1ページに収める） .FitToPagesWide = 1 ' ページ高さに合わせて印刷します（1ページに収める） .FitToPagesTall = 1 End With End Sub |
このサンプルコードでは、A4サイズの用紙を使用し、縦向きに設定しています。
また、データを1ページに収めるように自動調整も行っています。
印刷の実行
最後に、印刷を実行するコードを追加しましょう。
|
1 2 3 |
Sub 印刷の実行() ActiveSheet.PrintOut End Sub |
このコードは、現在のワークシートを印刷します。必要に応じて、印刷プレビューや印刷ダイアログボックスを表示するオプションも追加できます。
以上で、Excel VBAを使用して1ページに収めて印刷する方法が整理されました。これらのサンプルコードを組み合わせて、自分のデータに適用してみてください。
サンプルコード
以下は、Excel VBAを使用して1ページに収めて印刷する際に、データが複数のワークシートに分かれている場合に便利なコードです。
このコードは、複数のワークシートを連結して1つのワークシートにまとめ、それを1ページに収めて印刷するものです。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 |
Sub 複数ワークシートを1ページに収めて印刷() ' 変数の宣言 Dim ws As Worksheet ' ワークシート用の変数 Dim combinedSheet As Worksheet ' 結合データ用のワークシート Dim lastRow As Long ' 最終行の行番号を格納する変数 Dim nextPage As Long ' 次のページの開始行を格納する変数 ' 新しいワークシートを作成し、データを連結するためのワークシートを用意 Set combinedSheet = ThisWorkbook.Sheets.Add combinedSheet.Name = "結合データ" ' 各ワークシートからデータを連結 For Each ws In ThisWorkbook.Worksheets If ws.Name <> combinedSheet.Name Then ' 最終行を取得 lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' データをコピーして結合データに貼り付け ws.Range("A1:Z" & lastRow).Copy combinedSheet.Cells(nextPage + 1, 1) ' 次のページの開始行を更新 nextPage = lastRow End If Next ws ' ページレイアウトの設定 With combinedSheet.PageSetup ' 中央ヘッダーにタイトルを設定 .CenterHeader = "Excel VBA魔法の印刷術" ' 中央フッターにページ番号を設定 .CenterFooter = "ページ &P / &N" ' 左の余白を0.75インチに設定 .LeftMargin = Application.InchesToPoints(0.75) ' 右の余白を0.75インチに設定 .RightMargin = Application.InchesToPoints(0.75) ' 上の余白を1インチに設定 .TopMargin = Application.InchesToPoints(1) ' 下の余白を1インチに設定 .BottomMargin = Application.InchesToPoints(1) ' 用紙サイズをA4に設定 .PaperSize = xlPaperA4 ' 印刷の向きを縦向きに設定 .Orientation = xlPortrait ' ページ幅に合わせて印刷（1ページに収める） .FitToPagesWide = 1 ' ページ高さに合わせて印刷（1ページに収める） .FitToPagesTall = False ' 1ページに収めるために無効にする End With ' 印刷 combinedSheet.PrintOut ' 結合データワークシートを削除 Application.DisplayAlerts = False combinedSheet.Delete Application.DisplayAlerts = True End Sub |
このコードは、各ワークシートからデータを連結し、1つのワークシートにまとめます。
そして、それを1ページに収めて印刷します。
必要に応じて、ヘッダーやフッター、余白、用紙サイズ、印刷オプションを調整して、自分の要件に合わせてカスタマイズできます。
このコードを使用することで、複数のワークシートからなるデータを効率的に印刷することができます。
コメント