ÖngÖrÜnÜm Ve Yazdir Komutu ?

[bygantar]

ARKADAŞLAR

forumda biraz aradım ama istediğimi bulamadım
bir sayfada yazıdır botunu var ve tıklayınca direk sayfayı yazıcıya gönderiyor ben istiyorum ki yazıcı butonuna tıklayınca önce öngörünümü getirsin sonra gene bizim emrimize göre buton sayfayı o zaman yazıcıy agöndersin veya şuda olabilir

yazdır butonuna tıklayınca iki seçenekli bi ekran gelsin 1 - öngörünümmü ? 2- yazıdrmak mı ? şeklinde ona göre direk yazıcıya veya öngörunume gönderebileyim


yardımcı olabilrseniz sevinirim

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub YAZDIR()
If MsgBox("Sayfayı yazdırmak için evet ön izleme için hayıra basınız", vbYesNo + vbInformation) = vbYes Then
ActiveSheet.PrintOut
Else
ActiveSheet.PrintPreview
End If
End Sub

 

[bygantar]

üstadım teşekkürler saolasın ;