Application.Visible = False özelliği baskı önizleme enge

[burhancavus61]

Application.Visible = False özelliği baskı önizleme engelliyor olabilirmi yazdır linkine tıkladığım zaman program donup kalıyor hata nerede acaba dosyayı aşağıya ekliyorum lütfen yardımcı olun

 

[Ayhan Ercan]

ben yazdırabildim. başka bir sorunun olabilirmi sence?

 

[burhancavus61]

açılışta yapımı seçin

açılışta yapımı seçin sonrda ihale numarasına göre arama yapın ve dosyayı getir deyin sonrada yazdıra tıklatın açılan penceredende seçim yapıp önizleme yapın sorunu bu aşamada veriyor

 

[burhancavus61]

açılışta yapımı seçin sonrda ihale numarasına göre arama yapın ve dosyayı getir deyin sonrada yazdıra tıklatın açılan penceredende seçim yapıp önizleme yapın sorunu bu aşamada veriyor program donup kalıyor

 

[burhancavus61]

sorunu buldum userform4 çalışır durumda gözüküyor
userform4 ana menüm olarak ayarlı kodlarına kayıt etme makrosu yazdım onu nasıl devreden çıkartırım ben anamenüye döndüğümde kapatın çalışmasını istiyorum devreden çıkarttımmıda olmuyor köşedeki çarpıdan kapattığım zaman excelinde kapanması için aşağıdaki kodları yazmıştım

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
cevap = (MsgBox("Çıkmak istediğinize emin misiniz?", vbYesNo + vbExclamation, "Çıkış"))
If cevap = vbYes Then
ThisWorkbook.Save
Application.Quit
Else
Exit Sub
End If
End Sub


nasıl bir yol izlemem lazım

hem QueryClose çalışsın hemde önizleme makrosu bunu nasıl aşarım

 

[Ayhan Ercan]

köşedeki çarpı için kod yazmışsın. formdaki "vazgeş-kapat" butonuna da aynı kodu yazmışsın. butona o kod yerine
Unload UserForm4 yazarsan işini görmeyecekmi?

 

[burhancavus61]

görmeyecek çünkü userform4 kapatıldığı zaman excelin kaydedip kapanması gerek birde exceli visibile özelliği ile gizlediğimde baskıönizleme alamıyorum

 

[Ayhan Ercan]

birde baskı önizleme için şunu denermisin?

Sheets("sayfa1").select
Sheets("sayfa1").PageSetup.PrintArea = "$A$1:$W$60"

(a1 ile w60 arası yazdırma alanı belirleniyor)

ActiveWindow.SelectedSheets.Printpreview

 

[burhancavus61]

olmadı başka bir yöntem varmı