Excel 2002

I have one workbook consisting of 55 worksheets.
Some worksheets print to tray 1, others print to tray 3.

How do I change all worksheets in that workbook to tray 2, using a macro ?


E

Check the value assigned to your paper size.

Sub PaperSize()
Dim oBk As Workbook
Dim oSht As Worksheet
Set oBk = ActiveWorkbook
For Each oSht In oBk.Worksheets
oSht.Select
Debug.Print ActiveSheet.PageSetup.PaperSize
Next oSht
End Sub

This will tell you what the paper size setting on "Page Setup" is for each
of your sheets. If it is different for the ones that print to the other
trays then replace the Debug.Print with

ActiveSheet.PageSetup.PaperSize = 1 ' Or whatever the value you want is...

Ken



"E Jackson" wrote in message
...
Excel 2002

I have one workbook consisting of 55 worksheets.
Some worksheets print to tray 1, others print to tray 3.

How do I change all worksheets in that workbook to tray 2, using a macro ?


E