Yazdırma Alanını Belirleme

[hakki83]

Merhabalar

Örnek dosyada A:C alanını, son satıra kadar yazdırma alanını belirleme makrosunu oluşturabilir miyiz?
Önemli not: Son satır değişkendir.

 

[Necdet]

Merhaba,

    ActiveSheet.PageSetup.PrintArea = Range("A1").CurrentRegion.Address

 

[hakki83]

Merhaba,

    ActiveSheet.PageSetup.PrintArea = Range("A1").CurrentRegion.Address

Teşekkürler, fakat sadece A:C alanının seçilmesi gerekiyor.

 

[Necdet]

Merhaba,

ActiveSheet.PageSetup.PrintArea = Range("A1:C" & Cells(Rows.Count, "A").End(3).Row).Address

 

[hakki83]

Merhaba,

ActiveSheet.PageSetup.PrintArea = Range("A1:C" & Cells(Rows.Count, "A").End(3).Row).Address

Çok teşekkür ederim.