fist page landscape, second page portrait
 

is it possible in a 2 pages excel spreadsheet that the first page is set up
and printed in landscape and the second page in portrait?

fist page landscape, second page portrait
 

Sub Print1()
With Worksheets("ark1").PageSetup '*** change to ur sheetname
.CenterHorizontally = True
.PrintArea = "$A$3:$F$25" '*** change to ur range
.PrintTitleRows = ("$A$1:$A$2") '*** change to ur range
.Orientation = xlPortrait ' *** change to xlLandscape if..
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Worksheets("ark1").PrintOut ' *** change to ur sheetname
With Worksheets("ark1").PageSetup '*** change to ur sheetname
.CenterHorizontally = True
.PrintArea = "$A$35:$F$55" '*** change to ur range
.PrintTitleRows = ("$A$33:$A$34") '*** change to ur range
.Orientation = xlLandscape '*** change to xlPortrait if..
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Worksheets("ark1").PrintOut '*** change to ur sheet name

End Sub