連続印刷処理前に確認しOKしてから再開するマクロ

質問

連続印刷マクロを作成したのですが、印刷の手前で確認を入れたいので、その処理を教えてください。

エクセルの表は項目が14列あり、999行です。
印刷は、2種類のシートに分け印刷できるようになっているのですが、確認は1度だけを考えています。

Sub 印刷_Click()
Worksheets("集計・印刷").Activate '作業シート名

Range("A2").Select '番号(001～999)をこの次の"A3"セルより転記される。
Do '↓　※1度の作業で15個の番号を最大とします。
'アクティブセルを１つ下に移動
ActiveCell.Offset(1, 0).Select
'1度の作業で15枚印刷する。
'空欄であれば、プログラムを終了する
'Trim関数は前後のスペースを消去する
If Trim(ActiveCell.Value) = "" Then
Exit Do
End If

'非表示セルは印刷の対象としない
If ActiveCell.EntireRow.Hidden = False Then

If ActiveCell.Offset(, 2).Value = "単品" Then 'C列で単品の判断をする。
With Worksheets("A") 'Aシートへ記入
.Range("C3").Value = ActiveCell.Offset(0, 0).Value '番号
.Range("L24").Value = ActiveCell.Offset(0, 2).Value '種類
.Range("F3").Value = ActiveCell.Offset(0, 3).Value '型式
.Range("C23").Value = ActiveCell.Offset(0, 4).Value '測定日
.Range("C24").Value = ActiveCell.Offset(0, 5).Value '製造日
.Range("C9").Value = ActiveCell.Offset(0, 6).Value 'ライン
.Range("C10").Value = ActiveCell.Offset(0, 7).Value '担当
.Range("C7").Value = ActiveCell.Offset(0, 9).Value '外観
.Range("C8").Value = ActiveCell.Offset(0, 10).Value '気密
'繰返し処理をしているので一度に印刷される。
.PrintOut
End With

ElseIf ActiveCell.Offset(, 2).Value = "複数品" Then'C列で複数品の判断をする。
With Worksheets("B") 'Bシートへ記入
.Range("C3").Value = ActiveCell.Offset(0, 0).Value '番号
.Range("L24").Value = ActiveCell.Offset(0, 2).Value '種類
.Range("F3").Value = ActiveCell.Offset(0, 3).Value '型式
.Range("C23").Value = ActiveCell.Offset(0, 4).Value '測定日
.Range("C24").Value = ActiveCell.Offset(0, 5).Value '製造日
.Range("C9").Value = ActiveCell.Offset(0, 6).Value 'ライン
.Range("C10").Value = ActiveCell.Offset(0, 7).Value '担当
.Range("C7").Value = ActiveCell.Offset(0, 9).Value '外観
.Range("C8").Value = ActiveCell.Offset(0, 10).Value '気密
.Range("C11").Value = ActiveCell.Offset(0, 23).Value '(1)min
.Range("C12").Value = ActiveCell.Offset(0, 24).Value '(1)max
.Range("F7").Value = ActiveCell.Offset(0, 25).Value '(2)min
.Range("F8").Value = ActiveCell.Offset(0, 26).Value '(2)max
'繰返し処理をしているので一度に印刷される。
.PrintOut
End With
End If
End If
Loop
End Sub

回答No.1

keithin · ベストアンサー

標準的な手順で。

Sub 印刷_Click()

　if msgbox("印刷を開始します", vbokcancel) = vbcancel then exit sub

　Worksheets("集計・印刷").Activate '作業シート名
　：
　以下今のマクロ続く

みたいな。

お礼

回答ありがとうございます。こんなに早く教えていただき感謝します。