いい感じに１ページで印刷するやつ for Excel

きっかけ

いわゆる”ペライチ”の資料を、
Excelでわーっと作って、サクッと印刷しようとしたら、
縦○ページ×横○ページ、みたいになって萎える。

やりたいこと

• 「印刷！」ってやったら、いい感じにA4一枚に収めてほしい。
• A4縦にするかA4横にするか、いい感じに勝手に判断してほしい。
• あと、「文字が小さすぎて読めない！となりそうだったんで、A3印刷にしときました」とかしてほしい。

コード

Sub いい感じに１ページで印刷するやつ()
    Dim ws As Worksheet, w, h
    Set ws = ActiveCell.Worksheet
    With ws.UsedRange
        w = .Width
        h = .Height
    End With
    With ws.PageSetup
        .Orientation = IIf(w > h, xlLandscape, xlPortrait)
        .PaperSize = IIf(w > 1000 Or h > 1000, xlPaperA3, xlPaperA4)
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    ws.PrintPreview
End Sub

補足

A4とA3の閾値は、各自の老眼の進行具合にあわせて好きに変えてください。