連続印刷について
顧客名簿を作成し連続印刷により、市販されているようなアドレス帳の
レイアウトで印刷したいのですが、以下の様に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
お礼
回答ありがとうございました。 上記のように訂正してみたのですが、やはり2部づつ印刷をすることができません。 面倒ですが、印刷ボタンを2回押して対応しました。