değişken satır içeren rapor için print komutu

[metinak]

merhaba arkadaşlar,
yaklaşık 2 saattir form içerisinde print komutları ile ilgili örnekleri araştırıyorum. Malesef sorunuma çözüm olacak bir örnek bulamadım.

sorunum şu,

güncellendikce yazdırma alanı değişen bir rapor sayfam var ve ben bu sayfayı değişen satır (veya alana) göre makro kullanarak print etmek istiyorum.

yardımcı olacak arkadaşlara teşekkürler.

 

[Zeki Gürsoy]

Sub Yazdir()
With Sheets("Sayfa1")
     [COLOR=darkgreen]'Yazdırma alanı..[/COLOR]
    .PageSetup.PrintArea = .[A1].CurrentRegion.Address
     [COLOR=darkgreen]'Yazdır..[/COLOR]
    .PrintOut
End With
End Sub

 

[metinak]

teşekkürler