Help With VBA Setting Print Area

[aedctalk]

Hi.

So i'm curious how i could set a print area for B2:AE45

Print Portrait.

Fit to 1 x 1

Then print a second page

B47:AE95

Print Portrait
Fit to 1 x 1

Then reset print area to B2:AE95


ALSO if i wanted B2: AE2 1 row (header) on top of the 2nd page is there a way to put that at the top of 2nd page and then on same page have B47:AE95 print below it?


Thank you so muuuuchhh!!

 

[bensonsearch]

adjust as needed

With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$4"
.LeftHeader = ""
.CenterHeader = "Preliminary"
.LeftFooter = "&8&F" & Chr(10) & "&A"
.CenterFooter = "&8&P of &N"
.RightFooter = "&8&D" & Chr(10) & "&T"
.LeftMargin = Application.InchesToPoints(0.5)
.RightMargin = Application.InchesToPoints(0.5)
.TopMargin = Application.InchesToPoints(0.75)
.BottomMargin = Application.InchesToPoints(1)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.05)
.CenterHorizontally = True
.Orientation = xlLandscape
.FirstPageNumber = xlAutomatic
.FitToPagesWide = 1
.FitToPagesTall = 20
End With

range("B2:AE45").printout