ExcelVBAの改ページの区切り位置が変更不可

質問

下記のようなコードで印刷プレビューを出して印刷するようにしたいのですが、改ページの位置が思い通りに変更されません。
3ページに印刷で、A19（B19）の行から2ページ目とA37（B37）の行から3ページ目にしたいのですが、印刷プレビューを見るとA20の行から2ページ目でA38の行から3ページ目になってしまいます。

HPageBreaks.Add Before:=Range("A19")←ここを色々違うセルに変えたり別のコードにかえたりしても、まったく反映されません。何かが邪魔をしているのでしょうか？

どうしたら、任意の位置で改ページできるでしょうか？お願いいたします。

Sub 印刷プレビュー設定()
Dim s As Worksheet
Set s = ThisWorkbook.ActiveSheet

With s
'列非表示
.Columns("I:I").Select
Selection.EntireColumn.Hidden = True
'ワークシートを選択、印刷範囲指定する
.Select
ActiveSheet.PageSetup.PrintArea = "$B$1:$O$54"

'余白設定
.PageSetup.TopMargin = 0
.PageSetup.BottomMargin = 0
.PageSetup.LeftMargin = 0
.PageSetup.RightMargin = 0
'水平位置の中央へ
.PageSetup.CenterHorizontally = True
'垂直位置の中央へ
.PageSetup.CenterVertically = True
'用紙を横向きに設定
.PageSetup.Orientation = xlLandscape
'用紙サイズを設定
.PageSetup.PaperSize = xlPaperA4
'印刷範囲を指定ページに収めて印刷プレビューを表示する
.PageSetup.Zoom = False '拡大縮小倍率をFitToPagesの設定に収める
.PageSetup.FitToPagesTall = 3 '縦の枚数
.PageSetup.FitToPagesWide = 1 '横の枚数

ActiveSheet.HPageBreaks.Add Before:=Range("A19")
ActiveSheet.HPageBreaks.Add Before:=Range("A37")

.PrintPreview
End With
End Sub

回答No.1

keithin · ベストアンサー

エクセルの基本機能として（＝手動・マクロを問わず、という意味です）、たとえば「縦３×横１」のように「次のページ数に合わせて印刷」を設定すると、ユーザー定義の改ページは「無視」されます。

変更前：
.PageSetup.FitToPagesTall = 3 '縦の枚数

変更後：
.PageSetup.FitToPagesTall = false '縦の枚数は指定を解除し、ユーザー定義の改ページ（と成り行きによって自動改ページ）を優先する

補足

false に変更したら、16行、19行、34行、37行、52行で改ページされてしまって6枚になってしまいました。確かに指定した位置で改ページがはいっていますが、それ以外の所でも改ページされてしまいます。
15行までが表になっていて、その間が表以外の項目があり、20行からまた表になっています。
表の終わりで改ページが勝手に入って、指定した19行で改ページされていますが、この辺りの調整はvbaでは、これ以上はしょうがないのでしょうか？

回答No.2

keithin

＞確かに指定した位置で改ページがはいっていますが、それ以外の所でも改ページされてしまいます。
　：
＞表の終わりで改ページが勝手に入って、指定した19行で改ページされています

ＦＡＬＳＥにしたことで、１９行とかに改ページを設定したのが現れましたね。
ということで、他の行にもあなたがあれこれ試してる内に設定して忘れてる改ページが埋まってた、のが同様に現れてきた状況と推測できます。

ご利用のエクセルのバージョンもご相談に書かれていませんので、どこを選んで何をクリックと手順を手取り足取りご説明できません。

手順：
「改ページプレビュー」表示にする（印刷プレビューではないので間違えない事）
テキトーなセルを右クリックして「すべての改ページを解除」する
改めてマクロを実行する。

出来ない時は、余計な改ページを手作業で一つずつ解除する。

＃ご相談投稿では、普段あなたがご利用のソフトのバージョンまでキチンと明記する事を憶えて下さい。

お礼

Excelのバージョンは2007とか２０１３とか色々使っています。
すべての改ページを解除でも変わりませんでした。手動でやろうとしても、点線が移動しなかったので、ページ設定で倍率を変えたら移動できました。85%になっていて、それ以上行を収めきれなかったようです。80％にした時思った位置まで行を収める事ができたので、下記コードを追加しました。
これでいけそうです。どうもありがとうございました。

.PageSetup.Zoom = 80