印刷範囲の設定をする
印刷範囲の設定をする構文は次のとおりです。
'印刷範囲を設定する
ActiveSheet.PageSetup.PrintArea = "A1:F10"
'Addresを使って印刷範囲を設定する
'Cells(1, 1)からCells(20, 10)までを範囲とする
ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1).Address(False, False), Cells(20, 10).Address(False, False)).Address
'変数で印刷範囲を設定する
Dim 開始セル_行 As Long: 開始セル_行 = 1
Dim 開始セル_列 As Long: 開始セル_列 = 1
Dim 終了セル_行 As Long: 終了セル_行 = 20
Dim 終了セル_列 As Long: 終了セル_列 = 8
ActiveSheet.PageSetup.PrintArea = Range(Cells(開始セル_行, 開始セル_列).Address(False, False), Cells(終了セル_行, 終了セル_列).Address(False, False)).Address
