Yazdırma alanı belirleme

[bmutlu966]

Bir listem var ve her seferinde liste değişiyor. Liste oluştuktan sonra aşağıdaki kod ile yazdırma alanını seçiyorum.

Range(ActiveCell, ActiveCell.End(xlDown)).Select

ancak bu koddan sonra hangi kod ile yazdırma alanını belirleyebilirim. Aşağıdaki kodda belirtilen alan her seferinde değişiyor o yüzden bu kodu kullanamıyorum.

ActiveSheet.PageSetup.PrintArea = "$A$1:$G$181"

umarım anlatabilmişimdir. Şimdiden teşekkürler.

 

[bmutlu966]

Buldum,

ActiveCell.CurrentRegion.Select ' Bu satır tüm listeyi seçer,
alan = ActiveCell.CurrentRegion.Address 'yazdırma alanını alan değişkenine atıyor
ActiveSheet.PageSetup.PrintArea = alan

 

[dilek.372]

Buldum,

ActiveCell.CurrentRegion.Select ' Bu satır tüm listeyi seçer,
alan = ActiveCell.CurrentRegion.Address 'yazdırma alanını alan değişkenine atıyor
ActiveSheet.PageSetup.PrintArea = alan

Bence sizin bu yaptığınız davranışa teşekkür etmeli hem aydınlatmış hem de boşuna çözüm aramanın önüne geçmişsiniz.Bu da forumu canlı tutar.İyi çalışmalar..

 

[nihattt]

örnek verseydiniz keşke bir de.