footer

  • Thread starter Thread starter Guest
  • Start date Start date
here is one way,

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.RightFooter = Range("A1")
End Sub

To put in this macro, from your workbook right-click the workbook's icon and
pick View Code. This icon is to the left of the "File" menu this will open
the VBA editor, in the left hand window double click on thisworkbook, under
your workbook name, and paste the code in the window that opens on the right
hand side, press Alt and Q to close this window and go back to your
workbook, now this will run every time you print the workbook. If you are
using excel 2000 or newer you may have to change the macro security
settings to get the macro to run.


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 97 & 2000
** remove news from my email address to reply by email **
 
Paul's response is very helpful, and I developed his method to change the font and size
Here's a supplementary question
Is it possible to change the colour of the headers and footers in a similar manner

----- Paul B wrote: ----

here is one way

Private Sub Workbook_BeforePrint(Cancel As Boolean
ActiveSheet.PageSetup.RightFooter = Range("A1"
End Su

To put in this macro, from your workbook right-click the workbook's icon an
pick View Code. This icon is to the left of the "File" menu this will ope
the VBA editor, in the left hand window double click on thisworkbook, unde
your workbook name, and paste the code in the window that opens on the righ
hand side, press Alt and Q to close this window and go back to you
workbook, now this will run every time you print the workbook. If you ar
using excel 2000 or newer you may have to change the macro securit
settings to get the macro to run


--
Paul
Always backup your data before trying something ne
Please post any response to the newsgroups so others can benefit from i
Feedback on answers is always appreciated
Using Excel 97 & 200
** remove news from my email address to reply by email *
 
Back
Top