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?

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?

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?