Yazdırma Hakkında

[bulentkars]

Aşağıda ki kodta aktif sayfayı yazdırdığımda 3 seçenekli uyarı gelmesini istiyorum.

uyarı1 , uyarı2 , uyarı,

Uyarı1 tıkladıgımda Msgbox "uyarı1" uyarsı versın ve yazdırsın
Uyarı2 tıkladıgımda Msgbox "uyarı2" uyarısı versın ve yazdırsın
Uyarı3 tıkladığımda yazdırma işlemi yapmassın.

Bu Konuda Yardımcı Olursanız Sevinirim.Şimdiden Teşekkürler.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim cevap
cevap = MsgBox("DiKKAT ..! Formu Yazdırmak istiyormussunuz.?", vbYesNo + vbCritical, "UYARI...")
If cevap = vbYes Then
MSGBOX"TAMAM"

if cevap = vbno then
msgbox"İptal"

End If
End Sub