|
Jakaさんありがとうございます。
A1が0でない場合は"ミス"の表示が出るのですが
印刷を中止できませんでした。
メッセージボックスの「OK」を押すと印刷が継続されてしまいます。
Sub 印刷()
パス = ActiveWorkbook.Path
タイトル = "印刷"
メッセージ = "印刷を開始します。"
スタイル = vbYesNo + vbQuestion
YESNO = MsgBox(メッセージ, スタイル, タイトル)
If YESNO = vbYes Then
If Range("A1") <> "0" Then
MsgBox "ミス"
Cancel = True
End If
Sheets("請求書").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("領収書").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
End Sub
現在の記述は上記です。
OKを押すと印刷を中止し元の画面に戻るようにしたいです。
よろしくお願い致します。
|
|