Vba kullanarak yazdırma alanı nasıl ayarlanır (örneklerle)

Yazdırma alanını ayarlamak ve bir sayfayı gerçekten yazdırmadan önce bir baskı önizlemesi görüntülemek için VBA’da aşağıdaki sözdizimini kullanabilirsiniz:

 Sub SetPrintArea()

    With Sheets("Sheet1")
     .PageSetup.PrintArea = Selection.Address
     .PrintPreview
    End With
    
End Sub

Bu özel makro, yazdırma alanını Sayfa1 adı verilen sayfada seçili hücre aralığına ayarlayacak ve ardından bir yazdırma önizlemesi sağlayacaktır.

Not : Seçilen aralığı önizlemeden yazdırmak istiyorsanız, makroda .PrintPreview öğesini .PrintOut ile değiştirin.

Aşağıdaki örnek, bu sözdiziminin pratikte nasıl kullanılacağını gösterir.

Örnek: VBA kullanılarak yazdırma alanı nasıl ayarlanır?

Excel’de çeşitli basketbolculara ilişkin verileri içeren aşağıdaki sayfaya sahip olduğumuzu varsayalım:

Bir sayfayı yazdırmadan önce bir yazdırma alanı belirlemek ve bir baskı önizlemesi görüntülemek için aşağıdaki makroyu oluşturabiliriz:

 Sub SetPrintArea()

    With Sheets("Sheet1")
     .PageSetup.PrintArea = Selection.Address
     .PrintPreview
    End With
    
End Sub

Daha sonra A2:B7 hücre aralığını seçtiğimizi varsayalım:

Bu makroyu çalıştırdığımızda, yazdırma alanı otomatik olarak seçilen bu hücre aralığına ayarlanır ve aşağıdaki baskı önizleme penceresi görünür:

Bu bize, seçili hücre aralığını yazdırırsak sayfanın tam olarak nasıl görüneceğini gösterir.

Seçilen hücre aralığını değiştirirsek yazdırma alanı otomatik olarak değişecektir.

Örneğin bunun yerine A1:B11 aralığını seçtiğimizi varsayalım:

Bu makroyu tekrar çalıştırdığımızda, yazdırma alanı otomatik olarak seçilen bu hücre aralığına ayarlanır ve aşağıdaki baskı önizleme penceresi görüntülenir:

Yazdırma önizlemesi artık yazdırmaya devam edersek A1:B11 aralığını yazdıracağımızı gösteriyor.

Not : VBA’daki PrintArea özelliğine ilişkin tüm belgeleri burada bulabilirsiniz.

Ek kaynaklar

Aşağıdaki eğitimlerde VBA’da diğer ortak görevlerin nasıl gerçekleştirileceği açıklanmaktadır:

VBA: PDF’ye nasıl yazdırılır
VBA: Baskı önizlemesi nasıl kullanılır?
VBA: klasörler nasıl oluşturulur