Yazdırma Alanı Son Dolu Sütunu Belirleme

[hakki83]

Merhaba değerli hocalarımız

Örnek dosyada, yazdırma alanını makroyla belirleyen tek satırlık kod vardır.


Bu kod, son dolu satıra kadar seçimi yapabiliyor. Fakat son dolu sütuna kadar seçimi yapamıyor. Sadece A ve B sütunlarını seçiyor.


Son dolu sütunu da seçebilmesi için gerekli satırları ekler misiniz?
Teşekkürler.

 

[muygun]

Merhaba;

Sub alanı_yazdır()
sonsat = Range("A65536").End(xlUp).Row
sonsüt = Cells(1, 256).End(xlToLeft).Column
alann = Cells(sonsat, sonsüt)
Sheets("Sayfa1").PageSetup.PrintArea = alann
Sheets("Sayfa1").PrintOut Copies:=1
End Sub

Kodları ekleyerek deneyin.
iyi çalışmalar.

 

[hakki83]

Muygun hocam emeğinize sağlık, teşekkürler. Oluyor.

Hocam öğrenmek için soruyorum, örnek dosyadaki tek satırlık koda ekleme yaparak veya altına bir satır ilave ederek de son dolu sütunu seçtirebilir miydik?

 

[Necdet]

Merhaba,
Alternatif olsun:

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

 

[hakki83]

Merhaba,
Alternatif olsun:

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

Emeğinize sağlık teşekkür ederim Necdet hocam