| Home |
| Search |
| Today's Posts |
|
#5
|
|||
|
|||
Great help.
Thanks Germany from the US "Frank Kabel" wrote: Hi e.g. for cell A1 Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim wkSht As Worksheet For Each wkSht In Me.Worksheets With wkSht.PageSetup .CenterFooter = wksht.range("A1").value End With Next wkSht End Sub -- Regards Frank Kabel Frankfurt, Germany "PCE Man" schrieb im Newsbeitrag ... Thanks, that works. What if I wanted to add text from a worksheet cell into a header? "Frank Kabel" wrote: try putting the following type of code in your workbook module 'ThisWorkbook' (don't put it in a standard module): Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim wkSht As Worksheet For Each wkSht In Me.Worksheets With wkSht.PageSetup .CenterFooter = me.name End With Next wkSht End Sub -- Regards Frank Kabel Frankfurt, Germany "PCE Man" <PCE schrieb im Newsbeitrag ... Using VBA, how can I add the filename to the left foote, before printing, in all worksheets of the open workbook, without manually opening up each worksheet and adding a custom footer. |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Printing 3Dchart with pics& texture | Charts and Charting in Excel | |||
| Printing multiple columns on one page | Excel Discussion (Misc queries) | |||
| Enable Double sided printing contiuously when printing multiple s. | Excel Discussion (Misc queries) | |||
| Printing too much! | Excel Discussion (Misc queries) | |||
Threaded Mode
