Print "ActiveWorkbook.FullName" always.....but

[Dante]

Hi from italy.....
so sorry for my bad english...

I try to explain what I search :

I want that the code under work always , with all workbook (past and future)
:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim WS As Worksheet
For Each WS In ActiveWorkbook.Worksheets
WS.PageSetup.LeftHeader = ActiveWorkbook.FullName
Next WS
End Sub

where to put it ???

but i search also the code for print some sheet (If I want) without the
"header"
simply push a botton on menu-bar.


can you hel me ?

TIA

 

[Frank Kabel]

Hi
this has to go in your workbook module:
- open your file
- hit ALT+F11 to open the VBA Editor
- locate in the left window your project and double click on the item
'ThisWorkbook'
- paste the code in this module
- close the VBA Editor, save the file and try it

 

[Dante]

Hi
this has to go in your workbook module:
- open your file
- hit ALT+F11 to open the VBA Editor
- locate in the left window your project and double click on the item
'ThisWorkbook'
- paste the code in this module
- close the VBA Editor, save the file and try it

hi
i want it work in *all* workbook (past e future) .
is possible ?
thk for reply

 

[Frank Kabel]

Hi
then isert this in a new workbook. save this workbook as template
(*.xlt file9 and use this template for your future workbooks