Baskı önizleme dönüşü UserForm kapanıyor

Katılım
1 Haziran 2016
Mesajlar
50
Excel Vers. ve Dili
Office 2013-Türkçe 64 Bit
Merhaba,
Aşağıdaki kodlarla Userform üzerinden aktif sayfada baskı önizleme yapıyorum. Sayfayı yazdırmadan baskı önizlemeyi kapattığımda UserForma dönüp, "Yazdırma İşlemi İptal Edildi !" mesajını "Tamam" butonuna tıklayıp kapattığımda UserForm kapanıyor ve Excel'e dönüyor. UserForm kapanmasın istiyorum.
Nerede hata yapıyorum?
Kod:
Private Sub Yazıcı()
    Me.Hide
    If Application.Dialogs(xlDialogPrintPreview).Show = False Then
        Me.Show 0
        MsgBox "Yazdırma İşlemi İptal Edildi !", vbExclamation, "UYARI"
    Else
        Me.Show 0
          MsgBox "Belgeniz Yazdırıldı.", vbInformation, "BİLGİ"
    End If
End Sub
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,269
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
MsgBox satırını bir üste alarak deneyiniz.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,269
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Nasıl düzenlediniz?
 
Katılım
1 Haziran 2016
Mesajlar
50
Excel Vers. ve Dili
Office 2013-Türkçe 64 Bit
Nasıl düzenlediniz?
Private Sub Yazıcı()
Me.Hide
If Application.Dialogs(xlDialogPrintPreview).Show = False Then
MsgBox "Yazdırma İşlemi İptal Edildi !", vbExclamation, "UYARI"
Me.Show 0
Else
MsgBox "Belgeniz Yazdırıldı.", vbInformation, "BİLGİ"
Me.Show 0
End If
End Sub
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,269
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Peki bir de Show 0 yazan kısmı sadece Show olacak şekilde düzenleyip deneyebilir misiniz?
 
Katılım
1 Haziran 2016
Mesajlar
50
Excel Vers. ve Dili
Office 2013-Türkçe 64 Bit
Peki bir de Show 0 yazan kısmı sadece Show olacak şekilde düzenleyip deneyebilir misiniz?
Bu şekilde düzenleyince excele dönmüyor ama sonraki satırdaki msgbox görüntülenmiyor. UserFormu kapatıp excele dönünce msgbox görüntüleniyor.

ilk mesajdaki Yazıcı procedurü UserForm2 nin kodları arasında. Bu procedure çalışmadan önce;
Unload Me
UserForm3.Show

komutlarıyla UserForm3 üzerinde bir ListBox görüntüleniyor. Sonra

Unload Me
UserForm2.Show

komutlarıyla UserForm2 ye dönülüyor. Sorun burada çıktı. Eğer UserForm3'e gidilip dönülmezse sorun çıkmıyor. Sanırım önceki kodlarda bir sorun var.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,269
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Bu durumda örnek dosya eklerseniz kontrol etme şansımız olabilir.
 
Katılım
1 Haziran 2016
Mesajlar
50
Excel Vers. ve Dili
Office 2013-Türkçe 64 Bit
Sayın
Korhan Ayhan ilginiz için teşekkürler.
Örnek dosya hazırlarken hatayı buldum. Yanlış sayfaya yönlendirme yapmışım.
 
Üst