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

ご返答ありがとうございます。

そちらでも質問させていただきます。

ありがとうございます。

Answer 2

杉本 憲亮 さん、こんにちは。

マイクロソフト コミュニティへの投稿ありがとうございます。

Excel 2016 の VBA (マクロ) で改ページを設定する方法の質問ですね。

VBA に関する質問の場合、開発者の方々が情報交換を行っている MSDN フォーラムを利用すると情報が集まりやすかと思います。

• Msdn フォーラム - Visual Basic for Application(VBA)