Userformda Önizleme

[tufan03]

Userform üzerinde bulunan textboxlarda bulunan verileri bir butonla Kayıt sayfasına aktarıp söz konusu sayfayı önizleme yapmak istiyorum.Sayfayı Sheets("Kayıt").Select ile seçerek önizlemeyi yapıyorum,normalde excel gizlenmiş durumda önizlemeyi kapattıktan sonra excel tekrar gizlenmiyor,sayfa açıkta kalıyor.Excelin tekrar gizlenmesini nasıl sağlayabiliriz.

 

[cebir]

merhaba.
yazdırma ön izlemesi içinse...

Private Sub CommandButton1_Click()
Unload Me
Sheets("Kayıt").Select
Application.Visible = True
ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.DisplayAutomaticPageBreaks = False
Application.ScreenUpdating = False
Application.Visible = False
UserForm1.Show
End Sub

 

[tufan03]

Teşekkür ederim