Gridlines & Print Footer

  • Hi All,

    I have two small questions:

    1. Is it possible to take off the Gridlines in the entire work book, as against in each worksheet

    2. Is it possible to set the Footer of the type "Page 1 of ?" In Page set up as the default set up. That is I don't want to change the footer every time I take a print to "Page 1 of ?" mode, I want to make it a default option.

    Please help.


  • Re: Gridlines & Print Footer

    Below are my solutions - there may be more efficient code for the first, but it works..

    The following can be stored in personal.xls and fired up every time you want to, rather than saved as a default.

    Sub FooterStetup()
    With ActiveSheet.PageSetup
                .CenterFooter = "Page &P of &N"
    End With
    End Sub

    You could combine 1 and 2 if you like.

    Hope that helps

  • Re: Gridlines & Print Footer

    Hi MisterT,

    thanx for the reply.

    Regarding my query on Gridlines it worked and thanx for that. Can you please explain what below line your code do:

    wsSheet.Select Replace:=False

    Regarding my query on Print footer, I wanted something which happens by defualt, instead of me running the macro every time before I go for a print...

    Please help with this, if possible..

    thanx for your reply..

Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!