Excel 差し込み印刷 部数指定について

質問

エクセル

印刷用meiboシート
A列　に　印刷の可否を分類する数字
B列　に　名前　を　入れています。

余暇生活シート　の　特定のセルに　印刷用meiboシート　B列　名前を
読み込み　差し込み
印刷はできるのですが、部数を　指定したい場合
どうしたらよいのでしょうか？

出来れば、
以下の内容のことが出来ると大変助かります。

(1)同じ部数を印刷する。

(2)名前毎に　印刷部数を指定する

※(1)が基本出来るとありがたいのですが、(2)が出来ると　より助かります。
(2)の場合、印刷用meiboシート
B列　に　名前　を　入れていますのでC列に部数を入れておくと、それを読み取り
名前毎に印刷部数が変えられるようにしたいのです。
よろしくお願いします。

差し込み印刷には、以下のような形で対応しています。

Sub Test1()

Application.ScreenUpdating = False ' 画面更新の抑止

Dim r As Range

If MsgBox("データを印刷しますか？", _
vbQuestion + vbYesNo, "連続印刷") <> vbYes Then Exit Sub

With Worksheets("印刷用meibo")

For Each r In .Range("A2", .Range("A" & .Rows.Count).End(xlUp))
If r.Value = 1 Then

'差込先のセル = 差込元のセル のかたちで指定（※）
Worksheets("余暇生活").Range("C1").Value = r.Offset(0, 1).Value

'印刷する
'Worksheets("余暇生活").PrintPreview
Worksheets("余暇生活").PrintOut

End If
Next r

End With
Sheets("余暇生活").Select
Application.ScreenUpdating = True ' 画面更新の再開

End Sub

回答No.1

keithin

変更前：
Worksheets("余暇生活").PrintOut

変更後：
Worksheets("余暇生活").PrintOut copies:=application.max(1, val(r.offset(0, 2)))

ぐらいで、印刷部数を指定して印刷すればよいです。