Aktif Sayfada Çıktı Aldıktan Sonra Mesaj Alma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Hazır Kodlar
VBA:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = ThisWorkbook.ActiveSheet.Name Then
MsgBox "Çıktı alma işlemi tamamlandı!", vbInformation, "Bilgilendirme"
End If
End SubAçıklama
Bu kod, aktif sayfada bir çıktı alındığında kullanıcıya bilgilendirici bir mesaj kutusu gösterir. Workbook_BeforePrint olayı, çıktı alma işlemi başlamadan önce tetiklenir. Eğer işlem aktif sayfada gerçekleşiyorsa, "Çıktı alma işlemi tamamlandı!" mesajı gösterilir.Kullanım
- Excel'de VBA Editor (Alt + F11) penceresini açın.
- Bu kodu ThisWorkbook nesnesine yapıştırın.
- Çıktı alırken aktif sayfa açık olmalıdır.
- Çıktı alındıktan sonra ekranda mesaj belirecektir.