[[20170111110625]]　『改ページプレビューの区切り線が消えない』（四手）　ページの最後に飛ぶ

『改ページプレビューの区切り線が消えない』（四手）

初めまして。

いろいろな処理の最後に、アクティブシートを改ページプレビュー表示にし、表示された区切り線を全て消したいのですが、うまくいきません。

ActiveSheet.DisplayAutomaticPageBreaks = False
ActiveSheet.DisplayPageBreaks = False

このコードを入れれば消すことができるということを知って試してみたのですが消えないようです。

ある表がA1～S9にあり、まず、アクティブウィンドウを改ページプレビュー表示にします。この時点で区切り線が１つ表示されます。そのあとで用紙サイズをA3、印刷の向きを横、印刷範囲をA1～S9と指定しています。そのあとで上記の区切り線を消すコードを入れたのですが、うまくいきません。

どのように書き換えれば区切り線消すことが出来るのか、ご教示いただけないでしょうか。よろしくお願いいたします。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 それはブックの表示が「標準」の場合に区切り線を非表示にするもの。

 改ページプレビューはそもそも改ページを確認するための物なので改ページがあれば必ず表示される。
（ねむねむ） 2017/01/11(水) 11:49

http://www.moug.net/tech/exvba/0070016.html

＞このコードを入れれば消すことができるということを知って試してみたのですが消えないようです。
標準の画面で見えなくしても存在はしてるのです。

手動で言う、「すべての改ページを解除する」の操作をしないとだめかな？
このコードは、マクロの記録をすると得られます。

Sub Macro2()

    ActiveSheet.ResetAllPageBreaks   '改ページクリア
    With ActiveSheet.PageSetup
        .Orientation = xlLandscape  '横向き
        .PaperSize = xlPaperA3      'A3
        .PrintArea = ""             '印刷範囲クリア
    End With
End Sub
（まっつわん） 2017/01/11(水) 12:23

コメント返信：

[ 一覧(最新更新順) ]

[[20170111110625]] 『改ページプレビューの区切り線が消えない』（四手） ページの最後に飛ぶ

[[20170111110625]]　『改ページプレビューの区切り線が消えない』（四手）　ページの最後に飛ぶ