• DİKKAT

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

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

Katılım
13 Mayıs 2005
Mesajlar
761
Excel Vers. ve Dili
2010 Türkçe
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
 
ben yazdırabildim. başka bir sorunun olabilirmi sence?
 
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
 
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
 
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
 
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?
 
görmeyecek çünkü userform4 kapatıldığı zaman excelin kaydedip kapanması gerek birde exceli visibile özelliği ile gizlediğimde baskıönizleme alamıyorum
 
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
 
olmadı başka bir yöntem varmı
 
Geri
Üst