Печать только в том случае, если значение ячейки равно true

Question

Я установил кнопку печати, чтобы проверить, имеет ли ячейка значение перед печатью, однако оба окна сообщений всплывают, но если я выберу отмену в окне сообщения, лист все еще печатает. Как я могу предотвратить его печать, если я нажму кнопку «Отменить».

Private Sub CommandButtonPrint_Click() 
If Sheets("New").Range("email").Value <> "" 
Cancel = True 
MsgBox "Email Address Needs to be Completed", vbInformation 
If response = vbCancel Then Exit Sub 
Application.EnableEvents = True 
response = MsgBox("Do you really want to print?", vbOKCancel) 
If response = vbCanel Then Exit Sub 
Sheets("New").PrintOut copies:=1, Collate:=True 
End If 
End Sub 

Заранее спасибо за любую помощь Джон Дэвис

Answer 1

Там очень много происходит здесь не так, на мой взгляд, вот некоторые замечания и предложил усовершенствование:

Private Sub CommandButtonPrint_Click() 
If Sheets("New").Range("email").Value <> "" '// requires a "Then" keyword 
Cancel = True '// Cancel isn't declared as a variable, why is this here? 
MsgBox "Email Address Needs to be Completed", vbInformation 
If response = vbCancel Then Exit Sub '// response hasn't been assigned a value yet so will be empty 
Application.EnableEvents = True '// No events are fired at this point so not sure why this is here 
response = MsgBox("Do you really want to print?", vbOKCancel) 
If response = vbCanel Then Exit Sub '// typo - should be "vbCancel" 
Sheets("New").PrintOut copies:=1, Collate:=True 
End If '// End If without valid If block. 
End Sub 

Вы должны также попытаться отступов ваши заявления, чтобы сделать код более удобным для чтения, который кстати очень помогает, когда это приходит к обнаружению и исправлению ошибок. Вот пример того, что я считаю, этот код должен выглядеть следующим образом:

Private Sub CommandButtonPrint_Click() 

    If Sheets("New").Range("email").Value = "" Then MsgBox "Email Address Needs to be Completed", vbInformation 

    If MsgBox("Do you really want to print?", vbOKCancel) = vbOK Then Sheets("New").PrintOut copies:=1, Collate:=True 

End Sub 

Answer 2

Вы написали "vbCanel" вместо "vbCancel". Который, конечно, никогда не «True», и поэтому вы никогда не выходите из процедуры.