ＶＢＡ 改ページの解除

いつもお世話になっております

下記のコード一度目はよいのですが
2度目になるとエラーになります。

.ResetAllPageBreaksの場所がわるいのですか。
わかる方おしえてくれませんでしょうか

Sub fa()


With ActiveSheet

.PageSetup.PrintTitleRows = "$2:$2"
.PageSetup.PrintArea = .Range("B2").CurrentRegion.Address
.PageSetup.Orientation = xlLandscape
.PageSetup.PaperSize = xlPaperA4

.ResetAllPageBreaks


For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row Step 15
Rows(i).PageBreak = xlPageBreakManual
Next
End With
'ActiveSheet.PrintPreview
ActiveWindow.View = xlPageBreakPreview
'ActiveWindow.View = xlNormalView


End Sub

質問者からの補足コメント

• いつもお世話になっております
  添付ファイルのように実行した後に
  再度実行するとメッセージが表示されます。
  おしえてくれませんでしょうか

  
    補足日時：2022/02/20 07:58

• 

  しかも
  For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row Step 15
  15行おきになっていません

    補足日時：2022/02/20 07:58

No.2 ベストアンサー 回答者： Qchan1962 回答日時： 2022/02/19 23:29

強いて指摘するのならば

For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row Step 15
やRows(i).PageBreak = xlPageBreakManual
は
For i = 2 To .Cells(Rows.Count, 2).End(xlUp).Row Step 15
.Rows(i).PageBreak = xlPageBreakManual
Next
では？

この回答へのお礼

ありがとうございました。
ご返信　遅れてすみません
うまくいきました。

お礼日時：2022/02/20 21:06

No.4 回答者： Qchan1962 回答日時： 2022/02/20 09:32

こんにちは

＞＞　PageBreak エラー　で検索した　参考サイトです
https://happy-tenshoku.com/post-2546/

この回答へのお礼

ありがとうございました。
いろいろ検索とテストして
ほぼほぼ完成しました。
ありがとうございました。

お礼日時：2022/02/20 21:07

No.3 回答者： 東西線 回答日時： 2022/02/20 08:35

なるほど

. ですね
電車の中でユーザー名がちかいますが
すみませんです
ありがとうございました

No.1 回答者： Qchan1962 回答日時： 2022/02/19 23:26

こんばんは

2回目とはどのような処理をした後の2回目？
そのまま2回繰り返してエラーが出ると言う事ですか？出そうもないけれど。

そのままなら、そもそも2回繰り返す意味は無いと思いますが、
？何処でどのようなエラーが返るのか、2回目の処理をする目的と
2回目の実行までの処理なども教えて頂けますか