Araç çubuğundaki yazıcıya komut eklemek

[KONYA42]

Belgeyi yazdırdıktan sonra msgBox"Personel imza atmayı unutmasın" diye uyarmasını istiyorum.Sayfaya commanbutton düğmesi ya da makro düğmesiyle yapabiliyorum ama personeller alışkanlıktan dolayı araç çubuğundaki yazıcıdan yazdırıyorlar.O yazıcıya eklenemez mi?Tşk.

 

[uzmanamele]

merhaba
aşağıdaki kodu denermisiniz.
çalışacağı konusunda emin değilim

Private Sub Worksheet_Print_out(ByVal Target As Range)
MsgBox "Personel imza atmayı unutmasın"
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki kodu dosyanızın thisworkbook kod sayfasına kopyalayın.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
Application.EnableEvents = False
ActiveSheet.PrintOut
Application.EnableEvents = True
MsgBox "Personel imza atmayı unutmasın"
End Sub

Not: Yabancı kaynaklardan elde edilen bir çözümdür.

 

[KONYA42]

Teşekür ediyorum.Levent beyin kodu çalıştı.