【神マクロ爆誕】選択した範囲だけ超スマート印刷！リボン1クリックでOK

この記事ではマクロ（VBA）を使用します。
マクロ初挑戦の方はこちらの記事からスタートすることをお勧めします。
Excelのマクロ初期設定ガイド

🎙️それじゃジッピーも全力であいさつするよ！

---

• 「あれ？範囲外も印刷されてる！？」
• 「うわ、向きが違ってズレズレ！」
• 「なんかB5で印刷されとるやん！！」

---

---

🖨️簡単な印刷設定ができる！選択範囲だけ印刷するマクロ

• 印刷向き
• 用紙サイズ
• 拡大縮小方法
• プレビューするか即印刷か

---

🛠️マクロコード

Sub 選択範囲を印刷する()

    Dim 印刷向き As VbMsgBoxResult
    Dim 拡大縮小 As VbMsgBoxResult
    Dim 用紙サイズ As VbMsgBoxResult
    Dim 拡大縮小選択 As Integer
    Dim プレビュー選択 As VbMsgBoxResult
    Dim 元の印刷範囲 As String

    ' 今の印刷範囲を保存
    元の印刷範囲 = ActiveSheet.PageSetup.PrintArea

    ' 印刷向き選択
    印刷向き = MsgBox("ヨコ向きで印刷しますか？" & vbCrLf & "(いいえを押すとタテ向き)", vbYesNoCancel + vbQuestion, "印刷向き選択")
    If 印刷向き = vbCancel Then Exit Sub

    ' 用紙サイズ選択
    用紙サイズ = MsgBox("A4で印刷しますか？" & vbCrLf & "(いいえでB5)", vbYesNoCancel + vbQuestion, "用紙サイズ選択")
    If 用紙サイズ = vbCancel Then Exit Sub

    ' 印刷設定
    With ActiveSheet.PageSetup
        ' 用紙サイズ設定
        If 用紙サイズ = vbYes Then
            .PaperSize = xlPaperA4
        Else
            .PaperSize = xlPaperB5
        End If

        ' 印刷向き設定
        If 印刷向き = vbYes Then
            .Orientation = xlLandscape ' ヨコ
        Else
            .Orientation = xlPortrait ' タテ
        End If
    End With

    ' 拡大縮小のパターン選択
    拡大縮小選択 = MsgBox("1ページに納める方法を選んでください" & vbCrLf & _
                            "【はい】ヨコ幅で収める" & vbCrLf & _
                            "【いいえ】タテ幅で収める" & vbCrLf & _
                            "【キャンセル】タテヨコ両方収める", vbYesNoCancel + vbQuestion, "拡大縮小方法選択")
    With ActiveSheet.PageSetup
        Select Case 拡大縮小選択
            Case vbYes ' ヨコ幅だけ収める
                .Zoom = False
                .FitToPagesWide = 1
                .FitToPagesTall = False
            Case vbNo ' タテ幅だけ収める
                .Zoom = False
                .FitToPagesWide = False
                .FitToPagesTall = 1
            Case vbCancel ' タテもヨコもページに収める
                .Zoom = False
                .FitToPagesWide = 1
                .FitToPagesTall = 1
        End Select
    End With

    ' 印刷範囲を選択範囲に設定
    ActiveSheet.PageSetup.PrintArea = Selection.Address

    ' プレビューするか印刷するか選択
    プレビュー選択 = MsgBox("印刷前にプレビューを見ますか？" & vbCrLf & "(はいでプレビュー、いいえで即印刷)", vbYesNoCancel + vbQuestion, "プレビュー確認")

    If プレビュー選択 = vbCancel Then
        ' キャンセルしたら範囲を戻して終了
        ActiveSheet.PageSetup.PrintArea = 元の印刷範囲
        Exit Sub
    End If

    If プレビュー選択 = vbYes Then
        Selection.PrintPreview ' 選択範囲をプレビュー
    Else
        Selection.PrintOut ' 選択範囲を印刷
    End If

    ' 印刷範囲を元に戻す
    ActiveSheet.PageSetup.PrintArea = 元の印刷範囲

End Sub

---

🛠️このマクロでできることまとめ

✅ 選択範囲だけ印刷対象に設定できる
✅ ヨコ向き・タテ向きを選べる
✅ 用紙サイズ（A4かB5）を選べる
✅ 拡大縮小（ヨコ幅だけ・タテ幅だけ・タテヨコ両方）を選べる
✅ 印刷前にプレビューを見るか、そのまま印刷するかも選べる
✅ 印刷後は元の印刷範囲に戻して作業を邪魔しない！

---

🎯使い方のコツ

• リボンに登録してボタン化すると最高に使いやすくなります！
• 社内標準ツールとして広めたらめちゃくちゃ感謝されるかも！？

---

---

---

🛠️リボンにマクロを登録する方法（超簡単解説）

①リボンのカスタマイズ画面を開く

• Excelの空いてるリボン上で右クリック
  　　→【リボンのユーザー設定】をクリック！

（または
　ファイル → オプション → リボンのユーザー設定でもOK）

---

②新しいタブ（またはグループ）を作る

• 【新しいタブ】をクリックして追加する
• 名前をわかりやすく変更しておこう！
  • 例：「便利ツール」タブとか、「印刷支援ツール」とか！

グループも同時に作られるから、そこも名前を変えてOK！

---

③マクロを登録する

• 【コマンドの選択】を「マクロ」に切り替える
• さっき作った 選択範囲を印刷する マクロを選択
• 右側のグループに**追加ボタン（→）**で入れる

---

④アイコンを設定する（ここも超大事！）

• マクロを選んで「名前の変更」
• 好きなアイコンと名前を選ぼう！
  • 🖨️みたいなプリンターアイコンがオススメ！
  • 名前は「範囲印刷」みたいな短めが使いやすい！

---

⑤完成！！

これで
✅ リボンに「自分専用ボタン」ができて
✅ 選択して1クリックで
✅ スマートな印刷設定からプレビュー・印刷までできる！

---

✨リボン登録イメージ

【切り抜き】マクロをリボンに追加しよう！

---

---

🎤ジッピーの締めコメント

✨ おわりに

😂 今回のNG