userform dan önizlemede hata veriyor ve program kitleniyor

[bulentcigali]

iyi günler arkadaşlar forum da yaptığım araştırmaları uygulamama rağmen userform üzerinden ön izleme yapamıyorum.birinci user form da menu başlıklarım var. ikinci userform dada ilgili (yemek sayfası) sayfayı önizleme yapmak istiyorum.
ekteki programdada göreceğiniz gibi program kitleniyor ve önizleme yapamıyorum.teşekkürler

 

[Ferhat Pazarçevirdi]

Baskı Önizleme butonunun kodlarını aşağıaki gibi değiştirin.

Private Sub CommandButton9_Click()
Me.Hide
If MsgBox("Önizleme Yapılsınmı", vbYesNo) = vbNo Then: Exit Sub
UserForm1.Hide
Application.Visible = True
Sheets("yemek").Select
ActiveWindow.SelectedSheets.PrintPreview
Application.Visible = False
UserForm1.Show
End Sub

 

[bulentcigali]

sayın ferhat bey çok teşekkür ederim.
forumda bu çözümü bulamamıştım.sizin cevabınızın tüm arkadaşlara çözüm getireceği inancı ile iyi akşamlar