[ÇÖZÜLDÜ] Yazdırılacak alanın belirlenmesi

[karsiyakali2]

Arkadaşlar merhaba;
Hazırladığım sayfada yaklaşık 4000 satırda formül var. Bu formüller için bilgi girişi olmadığından baskı önizleme yaptığımda formüller görünmüyor ancak sayfa sayısı çok fazla oluyor. Sadece bilgi olan satırların yazılması için yapılacak bir işlem var mıdır ?

Şimdiden teşekkürler , iyi günler.

 

[ersoyalan]

Merhaba,

If ActiveSheet.PageSetup.PrintArea = "" Then
MsgBox "Yazdırma alanı yok"
Else
MsgBox "Yazdırma Alanı: " & ActiveSheet.PageSetup.PrintArea
End If

denemedim fakat işinizi görebilir diye düşünüyorum.

E.ALAN

 

[ersoyalan]

If ActiveSheet.PageSetup.PrintArea = "" Then
MsgBox "Yazdırma alanı yok"
Else
MsgBox "Yazdırma Alanı: " & ActiveSheet.PageSetup.PrintArea
End If

birde bunu denermisiniz.

 

[karsiyakali2]

Merhaba,
İlginiz için teşekkür ederim , ama bu işlemi uygulamıyorum. Ve çalıştığım dosyayıda şuan size gönderemiyorum.
Rica etsem örnek bir dosyayla yardımcı olabilirmisiniz.
Tekrar teşekkürler.

 

[ersoyalan]

Merhaba,

Örnek dosya ektedirVeri girişi yapıp print tuşuna basın.




E.ALAN

 

[karsiyakali2]

Yaptığım çalışma buna yakın. Bu dosya üzerinde yardımcı olurmusunuz lütfen.

 

[uzmanamele]

merhaba

ek dosyayı inceleyiniz.
kodlar alıntıdır.

not:
sorularınıza tatmin edici cevap aldığınızı düşünüyorsanız;
konu araçları / bu soruyu [ÇÖZÜLDÜ] olarak işaretle'yiniz.

 

[parametre]

buradaki ekler olmuş faydalanma imkanımız mevcutmu aceba saygılar