Auto notification

[mchoud]

I would like to give notification like header or footer only on the printout.

So in the real file there is no header or footer were set.

tks

 

[PaddyD]

You'll need to set them in a macro the runs before the workbook is printed. What do you want in the header?

Paddy

 

[mchoud]

I want give just a notification comment
Could you please give example of macro and including the way to runs that macro before printed

Tks

Kholid

On 2002-08-22 19:22, PaddyD wrote:
You'll need to set them in a macro the runs before the workbook is printed. What do you want in the header?

Paddy

 

[brettvba]

do you mean,

Private Sub Workbook_BeforePrint(Cancel As Boolean)
MsgBox "Check Header Or Footer!"
End Sub

Put that code in the ThisWorkbook modue in VBE

Brett

 

[mchoud]

Brett
Thanks about your quick response, but that is not my mean.
I mean, that i have a worksheet and there is no header or footer present at that. But i want there is automatic footnote every the worksheet is printed out.

tks
Mchoud

On 2002-08-22 20:37, brettvba wrote:
do you mean,

Private Sub Workbook_BeforePrint(Cancel As Boolean)
MsgBox "Check Header Or Footer!"
End Sub

Put that code in the ThisWorkbook modue in VBE

Brett

 

[PaddyD]

what do you want in the footer?? You know you can set up footers using the edit | view header and footer option. see the help file for 'Create custom headers and footers'

Paddy

 

[brettvba]

ok this should do it for you change as needed

Private Sub Workbook_BeforePrint(Cancel As Boolean)

With ActiveSheet.PageSetup
.LeftHeader = "hi"
.LeftFooter = "bye"
End With
End Sub

Brett