VBAで印刷する行数に合わせて改ページを自動指定

質問

お世話になります。

表題の通り、VBAにて印刷する行数に合わせて改ページを自動で指定したいのですが、
どうやればよいのでしょうか？

印刷する行数は毎回異なります。用紙はA4横、印刷範囲はA～U列で列は1ページに収めたいです。

印刷タイトルとして、行タイトル"$1:$7"、列タイトル"$A:$U"が指定してあります。

行の改ページは8行目から13行毎に改ページを入れたいです。

　　　例　総行数50行とした場合、
　　　　　　1ページ目：印刷タイトル+行8～行20
　　　　　　2ページ目：印刷タイトル+行21～行33
　　　　　　3ページ目：印刷タイトル+行34～行46
　　　　　　4ページ目：印刷タイトル+行47～行50

どなたか教えて頂けないでしょうか？

回答No.1

keithin · ベストアンサー

＞総行数50行とした場合

いま50行有ると「どこを見たら判る」のか説明不足ですが，とりあえずＡ列の下端で調べる事にして。
あとはそこまで淡々と，改ページを入れていくだけです。

sub macro1()
　dim r as long
　activesheet.resetallpagebreaks
　activesheet.pagesetup.fittopageswide = 1
　activesheet.pagesetup.fittopagestall = false

　for r = 21 to range("A65536").end(xlup).row step 13
　　activesheet.hpagebreaks.add before:=cells(r, "A")
　next r
end sub

＃ていうかふつーは一度改ページを設定したら，それをわざわざ付け直すと言う状況はあんまり無いと思いますけどね。

お礼

ご回答ありがとございます。

教えて頂いた方法で、うまくいきました！

>＃ていうかふつーは一度改ページを設定したら，それをわざわざ付け直すと言う状況はあんまり無いと思いますけどね

印刷する枚数が少ないと1～2枚なのですが、多いと20枚以上になるので、あらかじめ色々やっておくよりは、毎回指定した方が使用者からの問い合わせがすくなくなるかなぁと愚考したためです。

ともあれ、本当にありがとうございました！