Yazdırma alanını filtrelenen alana göre otomatik seçip yazdırması

[serdar.gul]

Merhaba Arkadaşlar,

Ekte yollamış olduğum resimde makro kaydet yöntemiyle değişen yazdırma alanını yazdırmak istedim fakat başaramadım. F ile I aralığındaki max 5000 e kadar gidebilen bir liste.
Ben kendim yukarıdaki kendi numaralandırdığım alandan yada işlem tipini seçtiğimde ki filtrelenen alanın çıktısını istiyorum.(her sayfada başlık tekrar edecek şekilde)

Konuyla ilgili yardımlarınızı bekliyorum..

 

[YUSUF44]

Merhaba. Eklediğiniz resim küçük göründüğü için bir şey anlaşılmıyor. Ayrıca resim yerine örnek excel dosyası hazırlarsanız daha iyi olur. Böylece o dosyayı kendimiz hazırlayıp çözüm bulmak zorunda kalmayız.

 

[serdar.gul]

Merhaba Yusuf Bey,

Dosyanın boyutu büyük sığmıyor malasef ..

 

[YUSUF44]

Anlayabildiğim kadarıyla aşağıdaki kodları deneyiniz:

Sub YAZDIR()
    a = Cells(Rows.Count, "F").End(3).Row
    ActiveSheet.PageSetup.PrintArea = "$F$10:$I$" & a
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub

 

[serdar.gul]

Yusuf Bey,,

Teşekkür ederim kod sorunsuz çalışıyor. iyi günler..