Yazdır Penceresi

[Ridan]

Mrb,

sub yazdir()
Application.Dialogs(xlDialogPrint).Show

.....................devamında kodlar var.
End Sub


Yukarıdaki kod ile yazdır penceresi ekrana gelmektedir. Yazdır penceresindeki İPTAL'e tıkladığımızda makro dursun. Yani devamındaki kodlar çalışmasın. Ya da İPTAL'e tıklandığında şu işlemi yap gibi...

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

sub yazdir()
sor=Application.Dialogs(xlDialogPrint).Show
if sor=false then exit sub

.....................devamında kodlar var.
End Sub

 

[Ridan]

Evet, bu şekilde oldu... Çok teşekkür ederim.

--------
Şöyle bir durum daha var. Bu kodu UserForm üzerinden kullanıyorum ve excel görünmüyor. Fakat Yazdır penceresindeki Tamam'a tıklattığımda excele dönüyor. Excelin görünmemesi için ne yapılması lazım.