macroda yazdırılacak alan seçimi

[mustafa038]

merhabalar;
macroda yazdırılacak alan belirlerken sutünlarım sabit olmakla birlikte
satır sayısı değişmekte.
macroda yazdırılacak alan belirlerken en son dolu olan satırı seçmek için ne yazılabilir ?
(ctrl + * tuşu gibi )

 

[muygun]

Merhaba;

sonsat = Range("A65536").End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "$A$1:$ı$" & sonsat
'ActiveSheet.PrintOut ' belirlenen alanı yazdırır

Şeklinde olabilir.
İyi çalışmalar.