• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

  • Konbuyu başlatan Konbuyu başlatan omemo
  • Başlangıç tarihi Başlangıç tarihi
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
 
MsgBox satırını bir üste alarak deneyiniz.
 
Nasıl düzenlediniz?
 
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
 
Peki bir de Show 0 yazan kısmı sadece Show olacak şekilde düzenleyip deneyebilir misiniz?
 
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.
 
Bu durumda örnek dosya eklerseniz kontrol etme şansımız olabilir.
 
Sayın
Korhan Ayhan ilginiz için teşekkürler.
Örnek dosya hazırlarken hatayı buldum. Yanlış sayfaya yönlendirme yapmışım.
 
Geri
Üst