Belli Hücreleri yazdırmak

[5353]

Bir sayfada 2 farklı bölüm var. Makro ile bu iki alan için yazdır butonu yapabilir miyim.
Araştırdım böyle bir makro yapamadım.

Sub YAZ()
' Klavye Kısayolu: Ctrl+y
ActiveSheet.Range("$b$3:$g$26").AutoFilter Field:=9
Rows("8:8").Select
Selection.AutoFilter
Range("b3").Select
Selection.AutoFill Destination:=Range("b3:g26"), Type:=xlFillDefault
Range("b3:g26").Select
ActiveWindow.SmallScroll Down:=-36
Range("T24").Select
Sheets("Çıktı").Select
End Sub

Yazdırmak istediğim birinci alan ; B3 ile G26 aralığı ve ikinci buton; B30 ; G53 aralığı. Tek sayfa çıktı alıyorum.

 

[YUSUF44]

Verdiğiniz kodların yapılacak işlemle alakasını anlamadım ama bildiğim kadarıyla

[B3:G26].PrintOut

ve

[B30:G53].PrintOut

satırları istediğiniz işlemin karşılığıdır. Bu kodlar yazdırma ekranında "Seçimi yazdır" işlemine benzer.

 

[Seyit Tiken]

Gerçi sorunun üstünde bayağı zaman geçmiş. İki tablo arasındaki satır boşlukları yazdırma esnasında gizleyip tekrar gösterilebilir. Alternatif çözümler için örnek dosyayı görmek gerek.