📋

SetPrintArea

シート管理

選択範囲を印刷範囲に設定する

🎬 デモGIF準備中

📖 使い方

VBAエディタを開く（Alt + F11）
モジュールを挿入（挿入 > モジュール）
下記VBAコードをコピー&ペースト
ブック上で実行（Alt + F8 でマクロ選択）

💡 実行例：印刷範囲に設定するセル範囲を選択してから実行

💻 VBAコード

' SetPrintArea
' -----------------
' Macro Name: SetPrintArea
' Description: 選択範囲を印刷範囲に設定する
' Parameters: なし
' Returns: なし
' Usage: 印刷範囲に設定するセル範囲を選択してから実行
' -----------------

Sub SetPrintArea()
    Dim ws As Worksheet
    Dim printArea As String

    On Error GoTo ErrorHandler

    If TypeName(Selection) <> "Range" Then
        MsgBox "セル範囲を選択してください。", vbExclamation
        Exit Sub
    End If

    Set ws = ActiveSheet
    printArea = Selection.Address

    ws.PageSetup.PrintArea = printArea

    MsgBox "印刷範囲を設定しました: " & printArea, vbInformation
    Exit Sub

ErrorHandler:
    MsgBox "エラーが発生しました: " & Err.Description, vbCritical
End Sub

🔗 同カテゴリの関連マクロ