Sheet1、A1セルからJ10セルの範囲で設定します Sub test() Worksheets("Sheet1").PageSetup.PrintArea = "A1:J10" End Sub このコードの使い方は、マクロの使い方(1)標準モジュールにあります。 アクティブなシートの、使用している範囲を設定します。 Sub test() ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), _ Cells(Cells.SpecialCells(xlCellTypeLastCell).Row, _ Cells.SpecialCells(xlCellTypeLastCell).Column)).Address End Sub このコードの使い方は、マクロの使い方(1)標準モジュールにあります。