Application.Dialogs(xlDialogPrinterSetup).Show

[DeliBalta58]

Userform'da Yazdır Butonuna basıldığında Bilgisayarda yüklü olan yazıcıları seçme imkanı olan dialog penceresini aşağıdaki kodla çağrıyoruz.

Application.Dialogs(xlDialogPrinterSetup).Show
ActiveWindow.SelectedSheets.PrintOut Copies:=TextBox1.Value, Collate:=True

Ancak iptal butonuna basılsa dahi yazdırmaya devam ediyor. Bunu nasıl engelleriz acaba?

 

[Korhan Ayhan]

Selamlar,

Kullandığınız kod yerine tek satırlık aşağıdaki kod bloğunu kullanarak işleminizi kolaylıkla yapabilirsiniz.

Application.Dialogs(xlDialogPrint).Show

 

[DeliBalta58]

Teşekkürler