連続印刷について

質問

顧客名簿を作成し連続印刷により、市販されているようなアドレス帳の
レイアウトで印刷したいのですが、以下の様に13人分の印刷をすると
次の連続印刷では1つ繰り上がって、印刷されるだけとなってしまいました。
次ページの印刷からは、14行めから更にその次では28行目からと
印刷設定をしたいのですが、どうすれば宜しいのでしょうか？

別シートに印刷用のレイアウトをVLOOKUPで作成し、更に別シートで印刷設定を行っています。

初心者なりに見よう見まねで作ってみたのですが・・・・
説明が下手で分かりにくく申し訳ありません。
護教授宜しくお願い致します。

Sub 連続印刷1()
'
Dim mycounter As Integer
Dim sita1 As Integer
Dim migi1 As Integer

mycounter = 1
sita1 = Sheets("設定").Cells(4, 2)
migi1 = Sheets("設定").Cells(5, 2)

For mycounter = 1 To 5
Sheets("顧客名簿").Select
Range("O2").Value = Sheets("住所録").Cells(mycounter + 1, 1)
Range("O6").Value = Sheets("住所録").Cells(mycounter + 2, 1)
Range("O10").Value = Sheets("住所録").Cells(mycounter + 3, 1)
Range("O14").Value = Sheets("住所録").Cells(mycounter + 4, 1)
Range("O18").Value = Sheets("住所録").Cells(mycounter + 5, 1)
Range("O22").Value = Sheets("住所録").Cells(mycounter + 6, 1)
Range("O26").Value = Sheets("住所録").Cells(mycounter + 7, 1)
Range("O30").Value = Sheets("住所録").Cells(mycounter + 8, 1)
Range("O34").Value = Sheets("住所録").Cells(mycounter + 9, 1)
Range("O38").Value = Sheets("住所録").Cells(mycounter + 10, 1)
Range("O42").Value = Sheets("住所録").Cells(mycounter + 11, 1)
Range("O46").Value = Sheets("住所録").Cells(mycounter + 12, 1)
Range("O50").Value = Sheets("住所録").Cells(mycounter + 13, 1)
Range(Cells(1, 1), Cells(sita1, migi1)).Select
Selection.PrintOut Copies:=Sheets("設定").Cells(6, 2)

Next

'
End Sub

回答No.1

umejas · ベストアンサー

こんにちは。
ちょっとやりたいことが詳しくわからないのですが、考え方の参考にしてみてください。
mycounterは1から5まで、1ずつ変化するだけなので、

Range("O2").Value = Sheets("住所録").Cells(mycounter + 1, 1)

では、Cellsのカッコの中の値は

(2, 1) → (3, 1) → (4, 1) ...

と変化するだけです。
なので、

Range("O2").Value = Sheets("住所録").Cells((mycounter - 1) * 13 + 1, 1)

とすれば、Cellsのカッコの中の値は

(1, 1) → (14, 1) → (27, 1) ...

のように変化します。
これで、実際どのようにすればよいか、理解していただけますでしょうか。

お礼

お返事が遅くなり申し訳ありません＞＜。
umejasさんのおかげで、思い描いた通りの事が出来ました。
有難うございました。