Excelで５０行毎に改ページを入れたい

表題を１行入れて１ページに４９行となるように改ページを入れたいのですが、どのようなマクロを組めばできますか？
また、行は４９行の倍数と成るように印刷範囲を設定しして列は１ページに収まるように設定するにはどうしたらよいか併せて教えていただければ助かります。

例えば、３４９行　F列まである場合は、縦が７枚×横が１ページとなるように自動で設定したいです。

No.2 ベストアンサー 回答者： yucco_chan 回答日時： 2012/01/22 13:22

Sub Macro1()

Dim i As Long
Dim j As Long
Dim k As Long

i = 50
j = ActiveSheet.Cells.SpecialCells(xlLastCell).Row


For k = i + 1 To j Step i
Range("G" & k).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
Next k
End Sub

この回答へのお礼

ご回答ありがとうございました。大変助かりました。

お礼日時：2012/01/22 14:32

No.1 回答者： yucco_chan 回答日時： 2012/01/21 12:15

Excel2003です。

Sub Macro1()

Dim i As Long
Dim j As Long
Dim k As Long

i = 50
j = 349

For k = i + 1 To 349 Step i
Range("G" & k).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
Next k
End Sub

他にもっと良い方法があるはず。。

この回答へのお礼

ご回答ありがとうございました。変数jが可変の場合、一番最終の行を探す必要があるのですが、そこをどうすれば良いでしょうか？（本来であれば、別の質問でした方が良いのかも市得れませんが、続きがあれば、ということでお礼に追加させていただきます）

お礼日時：2012/01/22 09:45