Excelの改ページ設定について

Question

マクロにて、改ページの設定を行っております。

        

 '印刷設定
 With 対象シート.PageSetup
            .Orientation = xlPortrait               
            .Zoom = False
            .FitToPagesWide = 1
            .FitToPagesTall = False
End With

'改ページ設定 
Dim k, page_lot As Long
page_lot = 対象シート.HPageBreaks.Count
For k = page_lot To 1 Step -1
    対象シート.HPageBreaks(k).Delete
Next

Dim l As Long
For l = 1枚の行数 + 1 To ((1枚の行数 * ページ数) + 2) Step 1枚の行数
    対象シート.HPageBreaks.Add 対象シート.Rows(l)
Next

このマクロで現状の改ページ情報を削除し、新たな改ページを追加しようとしておりますが、

できるページとできないページがあります。

また、正常に設定できていないシートでは手動での改ページ設定もできません。

（改ページに設定されているのは青色の点線と実線があり、点線が不要な改ページ設定です。）

Excelは2016です

ご回答お願いします

Answer 1

手動でもできないのだから、VBA側の問題ではないと思いますよ。

シートが保護されているとか、設定された印刷範囲の外側で設定しようとしているとか、他の原因を探した方がいいですね。