print one page landscape and one page portrait
 

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?

print one page landscape and one page portrait
 

In two print jobs.....yes.


Gord Dibben MS Excel MVP

On Thu, 25 Oct 2007 10:14:00 -0700, TimH wrote:

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?

print one page landscape and one page portrait
 

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:

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?