VBAで連続した行でも違うページとして印刷する

開発環境は、Windows10 Professional。

Excel上の連続した行の場合、例えば、以下のように、

ActiveSheet.PageSetup.PrintArea = ("A1:F1,A2:F2,A3:F3")
ActiveSheet.PrintPreview

とすると、1ページに3行がまとめて入るような形になってしまいます。
こういうときに、各行が1ページずつ印刷されるようにするには、改ページを行う必要があります。
今回の場合だと、

ActiveSheet.Rows(2).PageBreak = xlPageBreakManual
ActiveSheet.Rows(3).PageBreak = xlPageBreakManual
ActiveSheet.PrintPreview

とすればOKです。

■参考リンク
Excel VBA 改ページを設定する