Yazdır komutu durup dururken bozulur mu

[Altay3555]

Private Sub CommandButton10_Click() 'Yazdır Komutu
Unload Me
sor = MsgBox(" Yazmadan Önce bir Bakalım... ", vbYesNoCancel)
If sor = vbYes Then
Application.ScreenUpdating = False
Worksheets("Sayfa1").PrintPreview
Application.ScreenUpdating = True
UserForm1.Show 0
sor2 = MsgBox(" Beğendiyseniz Yazdırayım mı? ", vbYesNo)
If sor2 = vbYes Then
Application.ScreenUpdating = False
Worksheets("Sayfa1").PrintOut
If sor2 = vbNo Then
UserForm1.Show
End If
End If
End If
If sor = vbNo Then
Application.ScreenUpdating = False
Worksheets("Sayfa1").PrintOut
UserForm1.Show
End If
If sor = vbCancel Then
UserForm1.Show
End If
End Sub


Selamlar,
Yukarıda kod gayet güzel çalışıyordu ama,şimdi ekranı kitliyor,nedenini bulamadım,iptale bastığımda 1.sayfanın 1.yazıdırılıyor diyor,baskı önizlemeye geçince sadece form görünüyor üst kısımda ise hiç bir excel komutu vs görünmüyor,hiç bir düğme cevap vermiyor.

 

[Altay3555]

Application.ScreenUpdating = False
Worksheets("Sayfa1").PrintPreview
Application.ScreenUpdating = True


Bu bölümde True yi False;False yide True yapınca düzeldi.Lakin ben bu komuta el bile sürmedim,en güzel çalışan kodum, diye ama ayarlar değişmiş.
Şimdi de merakıma mucip olan durum ortaya çıktı,Şöyle ki;
BU KODLAR KENDİ BAŞLARINA TURE/FALSE OLURLAR MI,VEYA BAŞKA BİR TARAFLARI BOZULABİLİRMİ.
Yani kayıt ComboBox a kod yazrken bir değeri False yaptığımızda sistem de gider Yazdır komutundaki butonun işlevine sen bilmezsin ama burası da True olmalı diye değiştiriverir mi.
Cevabım HAYIR,
ama
Ya...............

 

[Altay3555]

Bu sefer de Yazmadan önce bir bakalım mı sorusunun cevabı Hayır ise yazdırmaya başlıyor.