Gridlines & Print Footer

pradeep_atm · Jan 20th 2005

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.

Thanx
Pradeep

MisterT · Jan 20th 2005

Re: Gridlines & Print Footer

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

Code

Sub GridlinesAllSheets()


'Groups all sheets in workbook and turns off gridlines
Dim wsSheet As Worksheet


    For Each wsSheet In ActiveWorkbook.Worksheets
        If wsSheet.Visible Then
        wsSheet.Select Replace:=False
    End If
    Next wsSheet
ActiveWindow.DisplayGridlines = False


End Sub

Display More

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

Code

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

pradeep_atm · Jan 20th 2005

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..

Gridlines & Print Footer

Participate now!

Share