Sub 印刷範囲の現在の設定範囲を取得する()

    MsgBox Worksheets("Sheet1").PageSetup.PrintArea

End Sub