Footer on page 1 only

[Guest]

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

 

[Ron de Bruin]

Hi

You need a macro to do this
http://www.rondebruin.nl/print.htm#Header

 

[Guest]

Thanks a million

 

[Guest]

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

 

[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

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

 

[Guest]

You are a life saver. Thanks

 

[Guest]

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

 

[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), ...

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?

 

[Guest]

i would like to display the footer on every page except the first page...

thank you.

 

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

 

[Guest]

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.

 

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

 

[JE McGimpsey]

Take a look here:

http://www.mcgimpsey.com/excel/subs/firstfooter.html


Replace the footer text with yours.

 

[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

 

[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?