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

  • 質問

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

            

     '印刷設定
     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です

    ご回答お願いします

    2018年2月23日 8:59

すべての返信

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

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

    2018年2月23日 9:35