excel vba 改ページを設定し直す

ExcelVBAで改ページを設定し直したいのですね。

参考リンクです。

●Excel VBA 改ページを設定する
https://kosapi.com/post-3244/

今回は調べるよりExcelのマクロの記録を使った方が速いような気がします。

Sub Macro1()
    
    '改ページプレビューを表示
    ActiveWindow.View = xlPageBreakPreview
    
    '改ページクリア
    ActiveSheet.ResetAllPageBreaks
    
    '印刷範囲A1～C10を指定
    Range("A1:C10").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$C$10"
    
    '3行目の上に改ページ追加
    Rows("3:3").Select
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
    
    Rows("5:5").Select
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
    
    Rows("7:7").Select
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
    
    Rows("9:9").Select
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell

End Sub

Sub Macro1()

'改ページプレビューを表示

ActiveWindow.View = xlPageBreakPreview

'改ページクリア

ActiveSheet.ResetAllPageBreaks

'印刷範囲A1～C10を指定

Range("A1:C10").Select

ActiveSheet.PageSetup.PrintArea = "$A$1:$C$10"

'3行目の上に改ページ追加

Rows("3:3").Select

ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell

Rows("5:5").Select

ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell

Rows("7:7").Select

ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell

Rows("9:9").Select

ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell

End Sub