print one page landscape and one page portrait

T

TimH

I have a spreadsheet with two sections. I want to print the first section
portrait (1 page) and the second page landscape. Can Excel do that?
 
E

excelent

Sub Print1()
With Worksheets("Sheet1").PageSetup '**** Change sheet name to fit
.CenterHorizontally = True
.PrintArea = "$A$3:$F$25" '**** First section - change to fit
.PrintTitleRows = ("$A$1:$A$2") '**** remark if u dont want title
.Orientation = xlPortrait
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Worksheets("Sheet1").PrintOut ' **** Change sheet name to fit
With Worksheets("Sheet1").PageSetup '**** Change sheet name to fit
.CenterHorizontally = True
.PrintArea = "$A$35:$F$55" '*** second section - change to fit
.PrintTitleRows = ("$A$33:$A$34") '**** remark if u dont want title
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Worksheets("Sheet1").PrintOut '**** Change sheet name to fit

End Sub



"TimH" skrev:
 
Top