Excel・VBAのコード教えてください。
1シートに12ずつあるまとまりを印刷したくて下記のようなものを作成しました。
Worksheets("Sheet1").Select
Last = Cells(1).CurrentRegion.Rows.Count
Warizan = Abs(Last / 12) ←12個以上の場合2、3…以下は1となる。
Kaisuu = Left(Warizan, 1)
For r = 1 To Kaisuu ←回数分繰り返す
For i = 2 To Last ←シート1に書かれたデータの最終行まで。
Worksheets("Sheet1").Select
Company = Cells(i, 1)
Yuubin = Cells(i, 2)
Address = Cells(i, 3)
Worksheets("Sheet2").Select
Select Case i
Case (Kaisuu * 12) - 10
Range("D4") = Yuubin
Case (Kaisuu * 12) - 9
Range("AF4") = Yuubin
:
Case (Kaisuu * 12) - 1
Range("AF45") = Yuubin
Case (Kaisuu * 12)
Range("D56") = Yuubin
Case (Kaisuu * 12) + 1
Range("AF56") = Yuubin
End Select
Next
ActiveWindow.SelectedSheets.PrintPreview
Next
とした時に、最終ページが2回、もしくは3回…と表示されてしまいます。
例えばデータが25個あったとして、1ページ目(12個分)が終ったらプレビュー、残りの2ページ目(1個分)を表示、としたいのです。
よろしくお願いします。