エクセル マクロ 方法

質問

以下のようなマクロを作りましたが、帳票を印刷すると１枚印刷されます。
ですが、この帳票がA５サイズの決まりがあり、かつプリンタがA4しか用紙を入れることができないので、
そのため、一度にA5サイズの帳票を２枚合わせた形で印刷をさせたいと考えています。

A４用紙に左側（名簿の１番目）右側（名簿の２番目）
次も、名簿の３番目・４番目と連続印刷をしたいのですが、どのようにすれば良いのでしょうか。
勉強不足で申し訳ございませんが、ご指南くださいますようお願いいたします。

Sub 帳票印刷()

Dim LastRow As Long
Dim i As Long
Dim myNo As Variant

With Worksheets("名簿")

LastRow = .Cells(Application.Rows.Count, "A").End(xlUp).Row

For i = 2 To LastRow
myNo = .Range("A" & i).Value

With Worksheets("印刷用")
.Range("C4").Value = myNo

.PrintPreview
.PrintOut Copies:=1, Collate:=True 　

End With
Next i

End With
End Sub

回答No.2

hallo-2007

＞myNo1　の部分で、『変数の定義されていません』と
＞メッセージが出てしまいます。

Dim myNo As Variant
も
Dim myNo1 As Variant
Dim myNo2 As Variant
となります。
ただ、本当に　myNoにVariant型が必要？
とちょっと思うのですが。

回答No.1

hallo-2007

シート　印刷用に　用紙２枚分を配置します。
For i = 2 To LastRow Step 2
myNo1 = .Range("A" & i).Value
myNo2 = .Range("A" & i + 1).Value

With Worksheets("印刷用")
.Range("C4").Value = myNo1
.Range("K4").Value = myNo2
・・・

.Range("K4")は適当なセルです。

お礼

ありがとうございます。
早速試してみましたが、私のやり方が悪いようで、
myNo1　の部分で、『変数の定義されていません』と
メッセージが出てしまいます。
すいません。本当に勉強不足で
教えていただけませんでしょうか？
よろしくお願いいたします。