Set Tools>>Options>>General within the Excel VBE by Code

borisrisker · #1 (**permalink**) 05-22-04, 08:23

Hi Everybody !

Does anybody know if it is possible to set Tools>>Options>>General within the Excel VBE by Code ? (the equivalent of application.setOptions in Access)

Thanks !

shades · #2 (**permalink**) 05-22-04, 23:27

Howdy!

Easy way to check on something like this is to record a macro and go through the steps and options you want to set. Then check the VB Editor to determine how each was obtained.

borisrisker · #3 (**permalink**) 05-24-04, 14:29

Hi !

thanks for the support, but this doesnt work. The macro recoder wont do it ...

regards,

boris

shades · #4 (**permalink**) 05-24-04, 15:10

Since I've not done any VB in Access, I'm not sure what application.setOptions does. Looking in the Help files for SetOptions in Access, it appears that some of the items can be done using other menu items in Excel.

What exactly are you trying to do? For instance, if you want to set the page margins, etc.

Code:

Sub PgSet()
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.5)
        .RightMargin = Application.InchesToPoints(0.5)
        .TopMargin = Application.InchesToPoints(0.5)
        .BottomMargin = Application.InchesToPoints(0.5)
        .HeaderMargin = Application.InchesToPoints(0.5)
        .FooterMargin = Application.InchesToPoints(0.5)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
    End With
End Sub

Internet Services

Web Development

Digital Marketing

Consumer Tech