D
dicfor
I recently upgraded MS Office. What happened to capability click on
"different first page" so I can start footer on 2nd page?
"different first page" so I can start footer on 2nd page?
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
D
Debra Dalgleish
Different first page has always been a feature in Word, but not in Excel.
In Excel, you could print the first page
Then add the footer, and print the remaining pages.
In Excel, you could print the first page
Then add the footer, and print the remaining pages.
D
dicfor
Thank you Debra. I appreciate your response.
I wonder if it would not be a simple thing for Miscosoft to enable one to do
the same thing in Excel that you can do in Word. I hope they will consider
this possibility.
I wonder if it would not be a simple thing for Miscosoft to enable one to do
the same thing in Excel that you can do in Word. I hope they will consider
this possibility.
J
Jim May
Put this in "ThisWorkbook" Event-code module:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Const sFOOTER As String = "my footer"
Dim wsSheet As Worksheet
Cancel = True
Application.EnableEvents = False
For Each wsSheet In ActiveWindow.SelectedSheets
With wsSheet
.PageSetup.LeftFooter = ""
.PrintOut from:=1, To:=1
.PageSetup.LeftFooter = sFOOTER
.PrintOut from:=2
End With
Next wsSheet
Application.EnableEvents = True
End Sub
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Const sFOOTER As String = "my footer"
Dim wsSheet As Worksheet
Cancel = True
Application.EnableEvents = False
For Each wsSheet In ActiveWindow.SelectedSheets
With wsSheet
.PageSetup.LeftFooter = ""
.PrintOut from:=1, To:=1
.PageSetup.LeftFooter = sFOOTER
.PrintOut from:=2
End With
Next wsSheet
Application.EnableEvents = True
End Sub