yazdırma alanını belirleme

[uzmanamele]

merhaba
bir tabloyu 4 sayfada yazdırmak istiyorum

zoom oranı, kağıt boyutu, üstte yinelenecek satır, yazdırma alanı vs belirlemeden önce
ActiveSheet.PageSetup.PrintArea = ""
Zoom = 10

yazdırma alanı değişken olduğu için yazdırma alanını belirliyorum (bazen 4 sayfa bazen 12 sayfa olabiliyor)
son_satır = [C65536].End(xlUp).Row
son_sütun = Cells(12, 256).End(xlToLeft).Column
adres = Range(Cells(1, "C"), Cells(son_satır, son_sütun)).Address
ActiveSheet.PageSetup.PrintArea = adres
...
...
.Zoom = 70
.PaperSize = xlPaperA4
...
...

ActiveSheet.PageSetup.PrintArea = adres '"$B$1:$Q$56" yazdırma alanı ise;
1. sayfa için = "$B$1:$I$28"
2. sayfa için = "$B$29:$I$56"
3. sayfa için = "$J$1:$Q$28"
4. sayfa için = "$J$29:$Q$56"
Set ActiveSheet.VPageBreaks(1).Location = Range("J1") '1.sayfa son sütun
Set ActiveSheet.HPageBreaks(1).Location = Range("B29") '1.sayfa son satır

Set ActiveSheet.VPageBreaks(1).Location = ???
Set ActiveSheet.HPageBreaks(1).Location = ???
şeklinde sınırlar mı belirlemek gerekir? yoksa
"$B$1:$I$28" şeklinde alan mı belirlemeliyim?
burada her sayfa için yazdırma alanını nasıl belirlerim?