If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
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
|
|||
|
|||
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 |
Thread Tools | |
Display Modes | |
|
|