Yazdırma Alanı Belirleme

[ahmed_ummu]

Merhaba arkadaşlar.

Sayfadaki veri sayıları sürekli değiştiğinden, makro kodu ile yazdırma alanı belirleyebilir miyiz.
A -AP sütunlarını ve 1. satırdan en son dolu satırın +5 kadar alanı kapsayacak şekilde. Yardımcı olabilirseniz sevinirim.

 

[ÖmerFaruk]

    ASutunundakiSonDoluSatır = Worksheets("Sayfa1").Range("A" & Rows.Count).End(3).Row
    Worksheets("Sayfa1").PageSetup.PrintArea = "$A$1:$AP$" & ASutunundakiSonDoluSatır + 5

 

[Korhan Ayhan]

Deneyiniz.

Aktif sayfada A sütunundaki son dolu satıra göre yazdırma alanı belirlenmektedir.

ActiveSheet.PageSetup.PrintArea = "$A$1:$P$" & Cells(Rows.Count, 1).End(3).Row + 5

 

[ahmed_ummu]

Teşekkürler arkadaşalar, çözüldü.