Userformdan Yazdır Ekranına ulaşmak!

[ocamsul]

Arkadaşlar merhaba iyi çalışmalar diliyorum.

ektede görüleceği üzere, Userformda OptionButton seçimi ile yazdırma yapmak istiyorum. Ancak direkt Application.SendKeys "^p" kodu ile Yazdır ekranınını açılmasını ve bu ekrandaki işlemin bittiği zaman tekrar userforma dönmek istiyorum. Ben bunu çözemedim.

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub CommandButton2_Click()
Unload Me
ActiveSheet.PrintPreview
UserForm1.Show
End Sub

 

[ocamsul]

Private Sub CommandButton2_Click()
Unload Me
ActiveSheet.PrintPreview
UserForm1.Show
End Sub

SN: N.Ziya Hiçdurmaz; ben yazdırma seçenekleri ekranı için aynı işlemi yapmak istiyorum. Baskı Önizleme için değil.

 

[Orion1]

Application.Dialogs(xlDialogPrint).Show

 

[halit3]

bu kodu denermisiniz.

Application.Dialogs(8).Show

 

[ocamsul]

boş- - - - -

 

[ocamsul]

SN: Evren Gizlen ve halit3;

üsdatlarım teşekkür ederim. İki cevapta aynı işi gördü.