First, under the File Menu, choose Page Setup, Page and select Landscap
view.
Second, in your code, move Sheet 3 into the first position, leave Shee
2 where it is, and move Sheet1 into the third position.

Sub PrintWorksheets()
Sheets("Sheet3").Select
Range("A1:I52").Select
Selection.PrintOut Copies:=1, Collate:=True

Sheets("Sheet2").Select
Range("A1:I52").Select
Selection.PrintOut Copies:=1, Collate:=True

Sheets("Sheet1").Select
Range("A1:I52").Select
Selection.PrintOut Copies:=1, Collate:=True

'leaving this code here makes sure the first page is selected whe
printing finishes
'you don't really need it.
Sheets("Sheet1").Select
Range("A1").Select

End Su

--
DataCollecto
-----------------------------------------------------------------------
DataCollector's Profile: http://www.hightechtalks.com/m36
View this thread: http://www.hightechtalks.com/t229535