Optimize Beginner's Code

Giganews Newsgroups
Subject: Optimize Beginner's Code
Posted by:  slappy54 (no…@none.com)
Date: Sat, 04 Oct 2003

Is there a way I can find the default values?  I'm trying to optimize the
code and figured a could get rid of some of this.

Thanks,
Mike

With ActiveSheet.PageSetup
        .CenterFooter = "&P"
        .LeftMargin = Application.InchesToPoints(0.5)
        .RightMargin = Application.InchesToPoints(0.5)
        .TopMargin = Application.InchesToPoints(0.75)
        .BottomMargin = Application.InchesToPoints(0.5)
        .HeaderMargin = Application.InchesToPoints(0.25)
        .FooterMargin = Application.InchesToPoints(0)
        .PrintTitleRows = "$1:$1"
        .PrintTitleColumns = ""
        .PrintHeadings = False
        .PrintGridlines = True
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
    End With

Replies