▼質問
改ページ数を知りたいんだけど、どうしたらできるの？

▼回答
次のコードで取得できるよ。①が横方向の改ページ数で、②が縦方向だよ。
①Worksheets(シート名).VPageBreaks.Count
②Worksheets(シート名).HPageBreaks.Count

▼質問
改ページを削除するにはどうすればいいの？

▼回答
下記のコードを記述すればできるよ。
Worksheets(シート名).ResetAllPageBreaks

垂直方向の改ページを無くすには下記のコードを記述すると自動で行うことができる。

Worksheets(シート名).ResetAllPageBreaks
Worksheets(シート名).PageSetup.PrintArea = "A1:P" & Worksheets(シート名).range("A65536").End(xlUp).row
If (Worksheets(シート名).VPageBreaks.Count > 0) Then
ActiveWindow.View = xlPageBreakPreview
ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
ActiveWindow.View = xlNormalView
End If
ActiveWindow.LargeScroll Down:=-(Worksheets(シート名).HPageBreaks.Count + 1)

■参考
【Shun's Page】印　　　刷
http://t_shun.at.infoseek.co.jp/My_Page/Excel-VBA/vba_page20.htm

---