ワンクリックで整える！印刷用フォーマットを自動で整形するExcelVBAコード【コピペOK】

Excelで請求書や報告書を作るとき、印刷前に「列幅の調整」「中央寄せ」「余白設定」などを毎回やるのって…正直面倒ですよね。

そんな手間を一発で解決するのが、「印刷用フォーマットを整えるVBAコード」です！

今回は、ボタン1つで整形できるコードを紹介します。印刷直前のひと手間を自動化して、業務を効率化しましょう！

この記事はこんな方におすすめです！！

Excelの請求書や報告書を印刷する際に手動で調整して時間がかかっている人
Excel初心者だがVBAに興味がある人
実務でデータ整理が多い人（経理・事務職など）

Sub FormatForPrint()
    With ActiveSheet
        ' フォントとサイズ
        .Cells.Font.Name = "メイリオ"
        .Cells.Font.Size = 10

        ' 列の幅を自動調整
        .Columns.AutoFit

        ' すべてのセルを中央揃え（水平＋垂直）
        .Cells.HorizontalAlignment = xlCenter
        .Cells.VerticalAlignment = xlCenter

        ' 印刷の向き：横
        .PageSetup.Orientation = xlLandscape

        ' 印刷範囲を自動設定（使用セル範囲）
        .PageSetup.PrintArea = .UsedRange.Address

        ' 用紙サイズ：A4
        .PageSetup.PaperSize = xlPaperA4

        ' 余白設定（標準）
        With .PageSetup
            .TopMargin = Application.CentimetersToPoints(2)
            .BottomMargin = Application.CentimetersToPoints(2)
            .LeftMargin = Application.CentimetersToPoints(2)
            .RightMargin = Application.CentimetersToPoints(2)
        End With

        ' ヘッダー・フッター削除
        .PageSetup.CenterHeader = ""
        .PageSetup.CenterFooter = ""

        MsgBox "印刷用フォーマットに整えました！"
    End With
End Sub

補足（このコードでできること）

処理内容	説明
フォント統一	全体を「メイリオ・10pt」に設定
レイアウト調整	列幅自動調整＋中央揃え
印刷設定	A4横向き・余白2cm・使用範囲自動設定
きれいな印刷見た目	不要なヘッダー・フッター削除済み

印刷前の整形作業は、地味だけど面倒。
でもVBAを使えば、ボタン1つで一瞬です。

このコードを「印刷ボタン」に登録しておけば、毎回の作業時間がかなり減ります！

今後も「実務でそのまま使えるVBAコード」を紹介していきますので、「こんなコードが欲しい！」などあれば、ぜひコメントください！！