Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Can you create a dynamic footer in Excel?
I would like to include a footer that reads from the sheet being printed.
Does anyone know of a practical way to do this? -- mgelde |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Can you create a dynamic footer in Excel?
I was able to come up with code that does this. See Below:
This code goes in the VBAProject Workbook section Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim Wks As Worksheet Dim stFullFileName As String Dim stCompanyName As String stCompanyName = Worksheets("Sheet1").Range("G19").Value stFullFileName = ThisWorkbook.FullName For Each Wks In ThisWorkbook.Worksheets With Wks.PageSetup .LeftFooter = stCompanyName .CenterFooter = "" .RightFooter = "" End With Next Wks End Sub -- mgelde "mge" wrote: I would like to include a footer that reads from the sheet being printed. Does anyone know of a practical way to do this? -- mgelde |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Can't Excel create dynamic web pages any more? | Excel Discussion (Misc queries) | |||
Create header/footer txt file and link to Excel worksheets | Excel Discussion (Misc queries) | |||
How do you create a complex footer (e.g. title block) in Excel? | Excel Discussion (Misc queries) | |||
Create capability to Paste Text into an Excel Footer | Excel Discussion (Misc queries) | |||
Create a custom footer for all Excel worksheets at one time... | Excel Discussion (Misc queries) |