VBA 転記 印刷

質問

ＡＢＣ
１あいう
２かきく
３さしす
４たちつ
５
・

上記データを別の"帳票"シートに1～３行を転記、４～６行を転記というふうに
最下行まで繰り返し印刷し、最終ページは、余りの行のみ（上記で行くと４行目のみ）
表示させたいです。どうすればいいでしょうか？
※行数は、不特定です。
for nextを使用し繰り返し印刷をするようにしていますがうまくいきません。
よろしくお願いします。

回答No.1

tom04

こんばんは！
「帳票」Sheetのどこのセルに転記するのか判らないので
かってにA1～C3セルとしています。
一例です。

Sub test()
Dim i As Long
Dim ws As Worksheet
Set ws = Worksheets("帳票")
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step 3
Range(Cells(i, 1), Cells(i + 2, 3)).Copy Destination:=ws.Cells(1, 1)
If ws.Cells(3, 1) <> "" Then
ws.PrintOut
End If
Next i
End Sub

といった感じではどうでしょうか？m(_ _)m

お礼

おそくなりました。早速の回答ありがとうございました。助かりました。