ÖNİZLEME HATASI

[aliadanur]

Üstadlarım merhaba.
Userformda buradaki değerli üstadlarımın yardımıyla bir hakediş programı yapmaya gayret ettim. En Son olarak sayfaları önizlemek için
Private Sub CommandButton8_Click()
Me.Hide
Sheets("Sayfa2").PrintPreview
Me.Show
End Sub
şöyle bir kod uyguladım. Öncesinde problem yoktu ancak önizle dediğim anda programı kapatıyor ve daha açılamıyor. Silmeye çalışıyorum Dosya başka bir programda açık olduğundan bu eylem gerçekleştrilemiyor diye bir uyarı geliyor. Tam da sona gelmiştim. Yardımlarınız için şimdiden teşekkürler..

 

[muhasebeciyiz]

Private Sub CommandButton8_Click()
    Me.Hide   
    Sheets("Sayfa2").PrintPreview
    Do While Application.CommandBars("Print Preview").Visible = True
        DoEvents
    Loop
    Me.Show
End Sub

Kodunuzda bir hata yok. PrintPreview metodu, önizleme penceresini açar ve kullanıcıya yazdırma seçeneklerini sunar. Bu pencere kapatılıncaya kadar kodun geri kalanı yürütülmez. Bu nedenle, Me.Hide komutu, PrintPreview penceresi açıldıktan sonra hemen yürütülür ve formunuz gizlenir. PrintPreview penceresi kapatıldığında, kod Me.Show komutuna geçer ve formunuz tekrar gösterilir.

Yukardaki kod önizleme penceresini kapatmadan formunuzu tekrar gösterecektirenyiniz.