VBA 改ページ位置の削除

Question

#実現したいこと
VBAにて表を作成した時に、自動的に改ページが作成されてしまいますが、１ページに収まるように改ページ(青点線)を削除したいです。
ネットを参考に、以下のコードを記入したのですが、改ページが削除されませんでした。
わかる方いらっしゃいましたらご回答お願いいたします。
※印刷範囲の指定は自分の指定した範囲になっているので問題ないです。

  '印刷する範囲を設定する
  With ActiveSheet.PageSetup
    .Zoom = False
    .FitToPagesWide = 1 '横幅が１ページに納まるように印刷する
    .FitToPagesTall = 1 '縦高が１ページに納まるように印刷する
  End With

Answer 1

.Zoom = False
の前に、
.PrintArea = "A1:E51"
のように印刷範囲を指定すると収まるでしょう。

さらに連続して印刷する範囲を指定する場合は、このPrintAreaプロパティを差し替えていきます。
もしくは、全範囲を指定しておいて、ちょうどよい区切りで改ページするように
.FitToPagesTall = 10 ' 10ページ以内で区切る
のように設定することになるでしょう。

Comments

[Bongo]

おお、確かに印刷範囲が設定されているとおかしな表示にならなそうですね。
ちょっと検索してみたら、改ページプレビューで削除したはずの図形が残る現象が印刷範囲指定で解消した、などの事例もあるようですね。改ページプレビュー特有の現象なのでしょうか?勉強になりました。

Answer 2

FitToPagesWide、FitToPagesTallは「改ページ位置が設定されていても、印刷時はそれを無視して指定されたページ数におさまるよう大きさを調整する」のような動作をしていた気がします。
印刷自体は意図通り1ページで行われるが、青線は残るので削除したい...ということでしたら、WorksheetオブジェクトのResetAllPageBreaksを試されてはいかがでしょうか。
もし印刷自体も1ページにならないのでしたら、何か他の箇所に原因があるかもしれません。

[追記]
試してみたのですが、Excel 2016でページ数指定をしてみると、改ページプレビューでもきちんとそれを考慮した位置に青線が出ますね。となると、先の回答の前半部のような状況にはならなそうです。混乱させてしまいすみません。

[さらに追記]
もう一つ挙動を確認してみましたのでお試しください。
どうも、改ページプレビュー状態でVBAからページ設定を変更しても、自動的にシート全体が再描画されたりはしないため、青線が狂って表示されるようです。
End Withの次の行にApplication.ScreenUpdating = Trueを入れるなどして、無理やり再描画させてみるとどうでしょう。