マクロ教えてください。

質問

マクロを使って、入力された数で印刷をしたいです。

現在・・・

Sheet1
A列【No.】　B列【日時】　Ｃ列【印刷部数】

Sheet2
印刷画面とＳheet1のＡ列の数字を　自：（始まりNo.）　至：（終わりNo.）を入れると自：至のNo.のデータを連続自動印刷するマクロ（下記(1)）をつくってあります。

ここに追加で、Sheet1　Ｃ列【印刷部数】の枚数ごとにも印刷する、マクロを追加することがかのでしょうか？

マクロはあまりわからないので、どなたか教えていただけると助かります。

(1)

Sub 印刷開始添乗用意封筒()
Dim lStart As Long
Dim lEnd As Long
Dim lRow As Long

lStart = Worksheets("(3)印刷ボタン").Range("I19")
lEnd = Worksheets("(3)印刷ボタン").Range("J19")

For lRow = lStart To lEnd
Worksheets("(3)印刷ボタン").Range("A29") = lRow
Worksheets("(3)印刷ボタン").PrintOut

Next
End Sub

回答No.2

CC_T · ベストアンサー

no.1補足です。

Worksheets("(3)印刷ボタン").PrintOut Copies:=Range("C1").Value

と、Valueをつけてやってみて下さいな。

お礼

ありがとうございます！

できました！

回答No.1

CC_T

i列やj列も出てきてどう組まれているのか内容を追う事ができませんが…

とりあえず
　Worksheets("(3)印刷ボタン").PrintOut
のところを
　Worksheets("(3)印刷ボタン").PrintOut Copies:=部数
としてやれば指定部数での印刷になります。
ですから、この「部数」のところにC列の数字が入るように変数を追加すれば良いはずですよ。

お礼

ありがとうございます。

説明不足ですみません。
Sheets2
印刷範囲内（下記が入力）
A1にはSheet１のA列　１（※ここが自動でかわると、B２・C２が変わる）
B1にはSheet１のB列（=VLOOKUP($A1,(2)貼り付け!A:C,2,0)）
C１にはSheet１のC列（=VLOOKUP($A1,(2)貼り付け!A:C,3,0)）

印刷指定外のところにあるI19　J19に入力されたSheet１のA列番号を印字したい番号を入力

I19＝自：（始まりA列No.）　J19＝至：（終わりA列No.）

たとえば、A列No.の3～10まで印刷する場合
I19…3　（入力）　J19…10　　（入力）

これで、No.3～No.10まで印刷指定範囲を１部してくれます。

ここに、つけたしたいのですが…

教えていただいた
Worksheets("(3)印刷ボタン").PrintOut Copies:=部数
部数のところか下記でいいのでしょうか？
Worksheets("(3)印刷ボタン").Range("C1")

私が理解できてないので、追加の仕方がまちがってるのか？
印字されなかったので…

すみません