Seçilen Alanları Bir Kağıtta Yazdırma

Sub SecilenAlanlariYazdir()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("SayfaAdı") ' "SayfaAdı"nı hedef sayfanızın adıyla değiştirin

    ' Yazdırılacak hücre aralığını belirle
    Dim yazdirilacakAralik As Range
    Set yazdirilacakAralik = ws.Range("A1:D20") ' Örnek olarak A1'den D20'ye kadar olan alan

    ' Seçili alanı yazdır
    yazdirilacakAralik.Select
    yazdirilacakAralik.PrintOut Copies:=1, Preview:=True, Collate:=True

    ' Opsiyonel: Yazdırma ayarlarını özelleştirebilirsiniz
    ' Örneğin, sayfa yönünü ayarlamak için:
    ' ws.PageSetup.Orientation = xlLandscape
End Sub