|
あさかさん、こんばんは
あさかさんのコードを切り貼りしてみました。
質問する場合、文章で正確に状況を説明するか、はじ
めからコードを提示していれば回答者の方々ももっと
的確に回答しやすいし、時間も無駄にならないので、
次回質問する機会があればコードを提示するようにし
たほうがいいと思いますよ。
Sub 印刷()
パス = ActiveWorkbook.Path
タイトル = "印刷"
メッセージ = "印刷を開始します。"
スタイル = vbYesNo + vbQuestion
YESNO = MsgBox(メッセージ, スタイル, タイトル)
If YESNO = vbYes Then
If Range("A1") <> "0" Then
MsgBox "ミス"
Else
Sheets("請求書").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("領収書").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
End If
End Sub
|
|