yazdırma alanı sabitleme

[ikikan]

aynı sayfa içinde atıyorum 10 sayfa her sayfada beli veriler var ben satır ekledigimde veya sildiğimde bu veriler belirledigim yazdırma alanı içinde kalmasını istiyorum bu yapılabilirmi iyi calışmalar

 

[uzmanamele]

merhaba

bunun gibi bir kod işinizi görür mü?

Sub yazdirma_alani()
        sol_ust = "$A$1"
        sag_alt = "$G$20"
        alan = sol_ust & ":" & sag_alt
        ActiveSheet.PageSetup.PrintArea = alan
End Sub

 

[ikikan]

merhaba

bunun gibi bir kod işinizi görür mü?

Sub yazdirma_alani()
        sol_ust = "$A$1"
        sag_alt = "$G$20"
        alan = sol_ust & ":" & sag_alt
        ActiveSheet.PageSetup.PrintArea = alan
End Sub

buna benzer olabilir ama tüm sayfada sorunlu bunu 1 den fazla örnegin 10 sayfa için nasıl yaparız