Printing Footer

teknovision · May 6th 2004

Hi there!

I have some data I would like to print however, I would like to make sure that a cell at the bottom is printed as a footer like one would be able to do with Word, any ideas?

Many thanks,

Phil

Brandtrock · May 6th 2004

Won't the Header/Footer tab under File>Page Setup get you what you want?

Anonymous · May 6th 2004

In Word, you type the footer information. You can do the same thing in Excel in the Page Setup dialog. If you want the footer to automatically take a cell value, then you would need a Before Print Event macro to set the footer to the cell value.

teknovision · May 11th 2004

Thanks, sorry for not getting back to you but, never got the email notification.. . anyway, thanks for your tip on using Page Setup but, I can't seem to change the font size in Custom Footer, it's way too big! Tried pasting in smaller fonts but, still appears way too big!?

I like the idea of having a macro that would place a cell at the bottom of the page how do I work that, bit green on the macro front?

Many many thanks,

Phil

Anonymous · May 11th 2004

While entering your Custom Footer, you should be able to select the text you want to adjust in size and click on the "A" (I think) icon to change font formatting. This will apply only to the text that is selected.

Brandtrock · May 11th 2004

I realize that you are leaning to the macro solution, but on the Header/Footer tab in the Page Setup window there is a Custom Footer button. When using that you get three panes for footer placement. There is an A button at the left just above the panes.

The font format window allows the changing of font, font style, effects, and font size.

HTH
:usaflag:

Brandtrock · May 11th 2004

thomach = TDQ! :thumbcoo:

Anonymous · May 11th 2004

Here is an example of a Before Print macro that will put the contents of a cell in the footer. Place it in the ThisWorkbook Module

Code

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If ActiveSheet.Name <> "Sheet1" Then Exit Sub
    '& variables can set font size and other things, see Excel help for list
    ActiveSheet.PageSetup.LeftFooter = "&12" & Range("A1").Text
    'Do anything else desired for other headers or footers
    'if not already set
End Sub

teknovision · May 12th 2004

Found the way to resize fonts in Custom Footer thanks!! Also, tried the macro, very sweet!! Thank you very much for your help folks!!

Printing Footer

Participate now!

Share