Footer on page 1 only

F

flowry

Trying to print a workbook with a custom footer on page one only. Anyone know how to?
 
F

Floyd

Thanks for the macro direction on inserting a footer on page one only. Would you know how to insert multiple line footer via that macro as it will not accept carriage returns in the "" fo the header. Again thanks
 
R

Ron de Bruin

Hi Floyd

With ActiveSheet.PageSetup
.RightHeader = "Line 1" & _
Chr(10) & "Line 2" & _
Chr(10) & "Line 3"
End With

--
Regards Ron de Bruin
http://www.rondebruin.nl


Floyd said:
Thanks for the macro direction on inserting a footer on page one only. Would you know how to insert multiple line footer via
Click to expand...
that macro as it will not accept carriage returns in the "" fo the header. Again thanks
 
F

Floyd III

Now that I know how to put a multiline footer on page 1 only, the next quest is to not waste the footer space on the following pages of the report. Can pages 2 thru N be set to a different line count so that that space is utilized for the data on the remaining pages?

Thanks,
Floyd III
 
D

David McRitchie

Hi Floyd,
Not without a lot of extra effort on your part.
You will have to put a page break before page two.
You will have to print the first page then reset the
margins and print the rest of the pages, you can do this with a
macro but I think you'll find it not worth the effort.

You can shrink the size by telling Excel to print so many
pages tall, and that is independent of so many pages wide.
File, page setup, page (tab), ...
---
HTH,
David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm
Search Page: http://www.mvps.org/dmcritchie/excel/search.htm

Floyd III said:
Now that I know how to put a multiline footer on page 1 only, the next quest is to not waste the footer space on the following
Click to expand...
pages of the report. Can pages 2 thru N be set to a different line count so that that space is utilized for the data on the
remaining pages?
 
J

JE McGimpsey

One way:

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

Substitute CenterFooter or RightFooter for LeftFooter as applicable.
 
M

mjschukas

i'm using this code to add the page footer and i would like to surpress the first page's footer...??

ActiveSheet.PageSetup.LeftFooter = Worksheets("Landbid").Range("h4").Value & Worksheets("Landbid").Range("h6").Value & Worksheets("Landbid").Range("h7").Valu

thank you.
 
D

Dave Peterson

Excel isn't like word.

But you could record a macro when you set the left footer, printed page 1, then
removed the footer and printed page 2-9999.

Then run that macro when you wanted.
 
S

stallsmith2

We've got a file that displays a different footer for some people bu
the correct one for XP OS users...what's that about?

One user opens the doc in Windows 2000, the only difference between th
systems is the OS, and the text in the footer is different.

Weirdest part is that I do not believe it's an automated function i
that box, like page numbering...it's just a number that we assign t
the file.

Any thoughts? :confused
 
J

JE McGimpsey

You've given essentially no relevant information to allow someone to
help you.

When you choose View/Header and Footer..., what do you see in the Footer
field?

Are there any macros in the workbook?
 
Top