Önizleme forma dönüş

[Hakan ERDOST]

Aşağıdaki kod ile baskı önizleme yapıyorum.Gelen sorgudan önizleme yapılsın mı? evet dediğimde sorun yok, ancak hayır dediğimde uygulama açık kalıyor ancak ekranda hiçbir form kalmıyor. Kodda sorun yok ancak hayır dendiğinde forma dönüş için nasıl bir düzenleme ya da ilave yapmalı?

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

 

[Ömer]

Merhaba,

If MsgBox("Önizleme Yapılsınmı", vbYesNo) = vbNo Then: Exit Sub

Yerine aşağıdaki gibi deneyin.

If MsgBox("Önizleme Yapılsınmı", vbYesNo) = vbNo Then
    UserForm28.Show
    Exit Sub
End If

.

 

[Hakan ERDOST]

Teşekkürler Ömer bey.