Yazdırma sonrası mesaj

[burhancavus61]

Crtl+P yada Dosyadan yazdır yaptıktan sonra mesaj alabilirmiyim. Amacım angi yöntemle yazdırırsa yazdırsın sonrasında mesaj almak.

 

[mustafa1205]

Kodunuzun sonuna

MsgBox "Yazdırma İşleminiz Başarı İle Tamamlanmıştır.", , "burhancavus61"

Eklemeniz yeterli olacaktır.

 

[burhancavus61]

kod kullanmıyorum herhangi bir şekilde yardırınca mesaj almalıyım sanırım aktif sayfaya otomatik bir kod uyarlamak gerekir.

 

[Korhan Ayhan]

Dosyanızda;

BuÇalışmaKitabı ya da ThisWorkbook bölümüne aşağıdaki kodu uygulayıp deneyiniz.

Option Explicit

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If Cancel = False Then
        MsgBox "Yazdırma işlemi tamamlanmıştır.", vbInformation
    End If
End Sub

 

[burhancavus61]

Hocam çalıştı teşekkür ederim peki sadece tek sayfaya uygulayabilirmiyim.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If ActiveSheet.Name = "Sayfa1" Then
        If Cancel = False Then
            MsgBox "Yazdırma işlemi tamamlanmıştır.", vbInformation
        End If
    End If
End Sub

 

[burhancavus61]

Emeğiniz için teşekkür ederim hocam çok güzel oldu.