Baskıönizlemeyi kapatınca Userforma nasıl dönebilirim?

[aligedik]

Selamlar arkadaşlaar
benim bir çalışmam var bunun için aşağıdaki makroya ihtiyacım var
Baskıönizleme penceresini kapattıktan sonra tekrardan otomatik olarak userforma dönen makroyu yazabilir misiniz?
şimdiden herkese teşekkürlerii :kafa: :arkadas:

 

[xxrt]

UserForm üzerindenmi Baskı önizlemeye geçip Userforma dönmek istiyorsunuz?
Yoksa Sayfada iken Baskı önizleme yaptığınızdamı Userformun açılmasını ?

 

[aligedik]

Userfomdan commandbutton1 e basıp bir çalışma sayfasının baskıönizleme penceresini getiriyorum baskıönizleme penceresini kapatınca otomatikman tekrar userform gelsin istiyorum
dosya ekliyemiyorum çünki öğretmenlerimizin özel (internete verilmesi sakıncalı)bilgileri olan bir çalışma.

 

[xxrt]

Private Sub CommandButton1_Click()
Me.Hide
Sheets("Sayfa1").Select
ActiveWindow.SelectedSheets.PrintPreview
Me.Show
End Sub

 

[aligedik]

teşekkürler sayın xxrt... :icelim:

 

[aligedik]

birde size çok zahmet vermezsem Dosya menüsünden yazdır dediğimiz zaman gelen pencereyi makrodan nasıl getirebiliriz acaba?
Yadır diye bir button'um var buna basınca yazıcı seçimini, kopya sayısını vb. şeyleri yapmak için yazdır penceresinin gelmesi lazım..

 

[Haluk]

Application.Dialogs(xlDialogPrint).Show

 

[aligedik]

çok teşekkürler ediyorum sayın raider

 

[akgüvercin]

xxrt çok teşekkür ederim...