Çıktı almadan önce uyarı

[winstoncash]

Bir sayfanın çıktısını almak istediğimiz zaman menüde yazdır'a tıklayınca veya ctrl+p kısayoluna basınca messagebox çıksın istiyorum. "şunu kontrol ettiniz mi? devam etmek istiyor musunuz?" minvalinde bir uyarı. Bu messagebox'ı tetikleyecek kod nedir ya da bu mümkün müdür?

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodu BuÇalışmaKitabı adlı kod sayfasına kopyalayınız.
Yazdırmadan önce kontrol sağlar.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If MsgBox("Gerekli yerleri kontrol ettiniz mi?", vbQuestion + vbYesNo) = vbNo Then
        MsgBox "Gerekli yerleri düzelttikten sonra yazdırınız, yazdırma iptal edildi.", vbInformation
        Cancel = True
    End If
End Sub

 

[winstoncash]

Merhaba.
Aşağıdaki kodu BuÇalışmaKitabı adlı kod sayfasına kopyalayınız.
Yazdırmadan önce kontrol sağlar.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If MsgBox("Gerekli yerleri kontrol ettiniz mi?", vbQuestion + vbYesNo) = vbNo Then
        MsgBox "Gerekli yerleri düzelttikten sonra yazdırınız, yazdırma iptal edildi.", vbInformation
        Cancel = True
    End If
End Sub

Hocam bunu sadece belirtli worksheet'ler için yapamaz mıyız? Ben workbook yerine worksheet yapıp ilgili sheet'in kod sayfasına yapıştırdım ama çalışmadı. sadece workbook genelinde mi geçerli bir kod?

 

[veyselemre]

Sadece aktif sayfa "Sheet1" ise kod çalışacaktır.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If ActiveSheet.Name = "Sheet1" Then
        If MsgBox("Gerekli yerleri kontrol ettiniz mi?", vbQuestion + vbYesNo) = vbNo Then
            MsgBox "Gerekli yerleri düzelttikten sonra yazdırınız, yazdırma iptal edildi.", vbInformation
            Cancel = True
        End If
    End If
End Sub

 

[winstoncash]

Sadece aktif sayfa "Sheet1" ise kod çalışacaktır.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If ActiveSheet.Name = "Sheet1" Then
        If MsgBox("Gerekli yerleri kontrol ettiniz mi?", vbQuestion + vbYesNo) = vbNo Then
            MsgBox "Gerekli yerleri düzelttikten sonra yazdırınız, yazdırma iptal edildi.", vbInformation
            Cancel = True
        End If
    End If
End Sub

çok teşekkür ederim, tam istediğim gibi çalıştı.