PDA

View Full Version : start header and footers on 2nd sheet



Djblois
03-14-2007, 11:16 AM
I am trying to have Excel create a cover sheet for a report and I want the headers and footers to start on the 2nd page. I can not use another tab to create the cover sheet, I need it to be the first sheet in the tab. Is this Possible?

mdmackillop
03-14-2007, 11:32 AM
What I do for my reports compiled from 4 worksheets, is to make a temporary copy of the necessary sheets, add headers and footers, numbering as required, print out, then delete on completion. This ensures that in the event of macro problems, my original data remains intact.

Djblois
03-14-2007, 11:41 AM
No the reason why I need to do it this way is because I am creating a weekly report that prints a little different for different people on different tabs for my bosses secratary to run. I want to make it one step instead of now it is about 30 steps. I have gotten it down to about 7 steps but I want to continue to save her time.

mdmackillop
03-14-2007, 12:41 PM
How about
Sub Headers()
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
ActiveWorkbook.PrintOut From:=1, To:=1
.LeftHeader = "My Left Header"
.CenterHeader = "Centre Header"
.RightHeader = "My Right Header"
ActiveWorkbook.PrintOut From:=2, To:=20
End With
End Sub