Sub 印刷範囲を設定する() Set 印刷範囲 = Range("B2:D6") Worksheets("Sheet1").PageSetup.PrintArea = 印刷範囲.Address End Sub