Baskı Önizlemede tuşların kilitlenmesi

[mrkync]

Arkadaşlar userform kullanarak aşağıdaki kodları kullanarak bir sayfanın baskı önizlemesini alıyorum. Sıkıntı ise baskı önizlemeyi gösterirken baskı önizleme sayfasındaki yazdır, kapat gibi tuşların aktif olmaması. Tuş aktif gibi gözüküyor ancak üzerine basılamıyor. Umarım sıkıntıyı anlatabilmişimdir.
Şimdiden teşekkür ederim..

Private Sub CommandButton6_Click()
Sheets("Ocak Ek-2").Select
Application.Visible = True
Sheets("Ocak Ek-2").PrintPreview
Application.Visible = False
End Sub

 

[Emir Hüseyin Çoban]

. . .

Private Sub CommandButton1_Click()

Sheets("Ocak Ek-2").Select
Application.Visible = True
[COLOR="Red"]Unload Me[/COLOR]
Sheets("Ocak Ek-2").PrintPreview
[COLOR="Red"]UserForm1.Show 0[/COLOR]
Application.Visible = False

End Sub

. . .

 

[mrkync]

Hüseyin bey bu kodlama ile çalışıyor ancak benim aktif olan userform'un her zaman görükmesi gerekiyor. Çünkü userform kapatılıp tekrar açıldığında baska tuşların pasif olmasını sağlayan kodlar eklemiştim. Amaç userformda görükerek o tuşların çalışmasının sağlanması...

 

[Emir Hüseyin Çoban]

. . .

O zaman userformun açılışını yaptığınız kodlarda Show 0 özelliğini kullanmalısınız.
Userformu şu kodlar ile açarak 1. mesajınızdaki kodları deneyiniz.

Sub Form_AÇ()
UserForm1.[COLOR="Red"][B]Show 0[/B][/COLOR]
End Sub

. . .

 

[mrkync]

zaten öyle Hüseyin Bey. Buna rağmen kilitliyor

 

[Emir Hüseyin Çoban]

. . .

# 4 mesajımda belirttiğim şekilde bir örnek oluşturdum.
Bir sorun görünmüyor. Form açıkken sayfa yapısını tıklaya biliyorum ve önizlemeyi kapatarak forma geri dönebiliyorum ve geri kalan kodlar çalışmaya devam ediyor.
Sorun yok görünüyor. İmkanım olursa örnek eklerim.

. . .

 

[Emir Hüseyin Çoban]

. . .

Örnek dosya ektedir.

(Form açıkken yakınlaştır ve sayfa yapısını tıkladım.)
Ekran Görüntüsü:

. . .

 

[Zeki Gürsoy]

Uygulamayı gizlemeden, formu tamamen kapatmadan aşağıdaki yolu izleyin. Tek buton yeterlidir.

Private Sub CommandButton6_Click()
    Me.Hide
    Sheets("Ocak Ek-2").PrintPreview
    Me.Show 0
End Sub

 

[mrkync]

Çok teşekkür ederim arkadaşlar...