Set print range for multiple worksheets 1

[sgreenwood]

Does anyone know of a way to globally set a print range for multiple worksheets? I have several files that contain about 40 worksheets each. I can set many of the print items globally (margins, headers, etc)but Excel won't allow me to set a print range with multiple pages highlighted.

Any ideas would be greatly appreciated!

Thanks,
Steve

 

[Databaseguy]

Are the print ranges all similar ?? If so,

For i = 1 To Worksheets.Count
Worksheets(i).Activate
    With ActiveSheet.PageSetup
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
         'etc
    End With
Next i

Tyrone Lumley
augerinn@gte.net

http://server47.hypermart.net/databaseguy

 

[sgreenwood]

Thank you very much...that did the trick!