Suprressing Footer on first page in Excel 97


Posted by Pansy on January 03, 2002 12:05 PM

Is there a way to suppress printing the footer on page one of an Excel 97 worksheet?

Thanks!

Posted by Scott on January 03, 2002 1:30 PM

I'm not sure if this is possible, but you can make the first page a seperate print, and set it up differently. You could use a macro so that the first page prints (set up the way that you want), and then pages 2-? print (with footers etc.).



Posted by Scott on January 03, 2002 1:41 PM

Marcro Code

Here is a sample macro code for what I suggested:

Sub Dbl_print()

ActiveSheet.PageSetup.PrintArea = "$A$1:$G$10"
With ActiveSheet.PageSetup
.CenterFooter = ""
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveSheet.PageSetup.PrintArea = "$A$11:$G$100"
With ActiveSheet.PageSetup
.CenterFooter = "My Excel Sheet"
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub