Her seferinde değişen yazdırma alanı nı seçmek

[acolkesen1]

Arkadaşlar iyi akşamlar.
Ekli dosyada görüleceği gibi d1:j250 arasında bir tablom var ve bu tabloda her seferinde d1 den başlayarak farklı uzunluktaki listeleri yazdırmam gerekiyor. Örn: d1:j25 veya d1:j50 gibi. Aşağıdaki yazdırma makrosuna nasıl bir kod eklemeliyim ki d1 den başlayarak j sütunundaki veri olan son hücreye kadar olan alanı seçili hale getirebileyim..

Sub yazdır()
'
' (veri olan alanı seçecek olan kodlar)
Selection.PrintOut Copies:=1, Collate:=True
Range("D2").Select
End Sub
Zaman ayırıp ilgilenen arkadaşlara teşekkür ederim.

 

[Recep İpek]

Sub yazdır()
    son = [j65536].End(3).Row
    ActiveSheet.PageSetup.PrintArea = "$d$1:$j$" & son
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Range("D2").Select
End Sub

şeklinde deneyiniz.

 

[acolkesen1]

Değerli Recep İpek hocam, İlginize teşekkür ederim..Yardımınız çok makbule geçti.. İyi çalışmalar dileklerimle...

 

[Recep İpek]

Önemli değil.İşinize yaradığına çok sevindim.

 

[acolkesen1]

Değerli Recep İpek, aynı konuyla ilgili bir sorunla karşılaştım. Aslında sorun benim konuyu kısaca anlatmaya çalışmamdan kaynaklanıyor.. Daha önce eklediğim dosyayı örnek olması için basitçe hazırlamıştım. Çalıştığım dosyanın aslında, yazdırma alanına bilgileri başka sayfadan formüllerle alıyorum. Dolayısıyla görünürde herhangi bir veri yokmuş gibi görünse de,tablonun tamamı formüllerle dolu olduğundan sonuna kadar yazdırılıyor. Sadece veri aktarılmış hücreleri seçebilirmiyiz?
Yardımlarınız için şimdiden teşekkür ederim..

 

[Korhan Ayhan]

Selamlar,

Örnek dosya eklerseniz daha faydalı olacaktır.