fist page landscape, second page portrait

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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?
 
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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Word Printing and Rotation of Landscaped Pages 2
Landscape selected but printout persists in portrait. How to fix? 1
Printing landscape and portrait 3
print one page landscape and one page portrait 2
Wierd printing requirements between worksheets! 1
Printing 2
How to insert an Excel landscape document into a portrait Word doc 2
how to embed print instruction portrait landscape in excel 2

Back
Top