baskı ön izleme

[talatcd]

Slm arkadaşlar ben excel de aşağıdaki modüle ye yazdığım kodla,Exceli görünmez yapıyorum.
Sub Autpen()
Application.Visible = False
UserForm1.Show
End Sub

Burada yazacağım kod ile de baskı ön izleme yaptırmak istiyorum.
Private Sub CommandButton5_Click() 'Baskı Ön İzleme
sor = MsgBox("Ön İzleme Yapmak İstediğinizden Eminmisiniz?", vbYesNo)
If sor = vbNo Then Exit Sub
Me.Hide
Sheets("Sayfa3").Select
ActiveWindow.SelectedSheets.PrintPreview
Me.Show
End Sub

sorun baskı ön izleme yaptırıyorum. göstermiyor. ve kapatmak istediğimde de excelin açık olduğunu ve excel den çıkamıyor diye komut geliyor.

bunun başka bir yolu varmı. yardımcı olurmusunuz arkadaşlar.

 

[Haluk]

Ön izleme kodundan önce, "application.visible = true" satırını ekleyin, öyle deneyin bence ...

Sonra gerektiğinde yine "false" yaparsınız.

 

[talatcd]

Saol haluk bey allah zihin açıklığı versin bizlere her zaman yardımcı olasınız