【Excel VBA マクロ】印刷設定をボタン1つで完了させる

※当サイトはアフィリエイト広告を利用しています。

Excelの印刷に関して、

「前回と同じ印刷設定で印刷したいのに、いつの間にか変わってて、設定し直すはめになった……」

そんな経験、ありませんか？

印刷設定は、そのシートで最後に使われた設定が引き継がれます。

ですので、誰かが印刷設定を変えて保存したりすると、こういったことが起こってしまいます。

こうなると印刷設定を再設定しなければいけないので大変です。

今回はそんな時に便利な、印刷設定をボタン1つで完了させるマクロをご紹介します。

このマクロを使えば、用紙の向きや余白などの値を一瞬で設定することができます。

印刷設定をボタン1つで完了させるマクロのコード
- 印刷範囲を自由選択
- 印刷範囲を固定
コードの解説
マクロの使い方
印刷設定をボタン1つで完了させるマクロの実行結果
- 「印刷範囲を自由選択」の実行結果
- 「印刷範囲を固定」の実行結果
おわりに

印刷設定をボタン1つで完了させるマクロのコード

今回ご紹介するマクロは、以下の2種類です。

印刷範囲を自由選択	印刷範囲を手動で選択してから印刷設定を行う
印刷範囲を固定	あらかじめ設定された印刷範囲で印刷設定を行う

どちらもコピペOKですが、使用は自己責任でお願いします。

印刷範囲を自由選択

Sub 印刷()
    
    On Error Resume Next
    
    Dim PrintMessage As String
    Dim myRange      As Range
    
    PrintMessage = "印刷範囲を選択してください"
    Set myRange = Application.InputBox(Prompt:=PrintMessage, Type:=8)
    If myRange Is Nothing Then ' キャンセルした場合に処理を抜ける
        Exit Sub
    End If
    Application.PrintCommunication = False 'プリンターとの通信を遮断（高速化のため）
    With ActiveSheet.PageSetup
        .PrintArea = myRange.Address ' 印刷範囲
        .Orientation = xlLandscape ' 用紙の向き
        .PaperSize = xlPaperA4 ' 用紙のサイズ
        .LeftMargin = Application.CentimetersToPoints(1.8) ' 左余白
        .RightMargin = Application.CentimetersToPoints(1.8) ' 右余白
        .TopMargin = Application.CentimetersToPoints(2.4) ' 上余白
        .BottomMargin = Application.CentimetersToPoints(1.9) ' 下余白
        .HeaderMargin = Application.CentimetersToPoints(0.8) ' ヘッダー
        .FooterMargin = Application.CentimetersToPoints(0.8) ' フッター
        .CenterHorizontally = True ' 水平中央
        .CenterVertically = True ' 垂直中央
        .FitToPagesWide = 1 ' 全ての列を1ページに収める
        .FitToPagesTall = 1 ' 全ての行を1ページに収める
    End With
    Application.PrintCommunication = True ' プリンターとの通信を再開
    ActiveSheet.PrintPreview ' プレビュー

End Sub

このマクロを実行すると入力ダイアログが表示されるので、印刷範囲を手動で選択し、「OK」を選択してください。

選択範囲で印刷設定が行われ、プレビュー画面に切り替わります。

印刷範囲を固定

Sub 印刷()
   
    Application.PrintCommunication = False 'プリンターとの通信を遮断（高速化のため）
    With ActiveSheet.PageSetup
        .PrintArea = "印刷範囲" ' 印刷範囲
        .Orientation = xlLandscape ' 用紙の向き
        .PaperSize = xlPaperA4 ' 用紙のサイズ
        .LeftMargin = Application.CentimetersToPoints(1.8) ' 左余白
        .RightMargin = Application.CentimetersToPoints(1.8) ' 右余白
        .TopMargin = Application.CentimetersToPoints(2.4) ' 上余白
        .BottomMargin = Application.CentimetersToPoints(1.9) ' 下余白
        .HeaderMargin = Application.CentimetersToPoints(0.8) ' ヘッダー
        .FooterMargin = Application.CentimetersToPoints(0.8) ' フッター
        .CenterHorizontally = True ' 水平中央
        .CenterVertically = True ' 垂直中央
        .FitToPagesWide = 1 ' 全ての列を1ページに収める
        .FitToPagesTall = 1 ' 全ての行を1ページに収める
    End With
    Application.PrintCommunication = True ' プリンターとの通信を再開
    ActiveSheet.PrintPreview ' プレビュー
    
End Sub

このマクロを実行すると、「印刷範囲」という名前の付いたセル範囲で印刷設定が行われ、プレビュー画面に切り替わります。

マクロ実行前に、印刷したいセル範囲に名前の定義で「印刷範囲」という名前を付けておいてください。