How to set page header to invisible using vba

[dealwi8me]

Hello,

What i need is to set invisible the page header in the first page.
I'm using the following code, i succeed what i want in screen but when i print i get the page header in all pages.

If Me.Page > 0 Then
Me.PageHeaderSection.Visible = True
Else
Me.PageHeaderSection.Visible = False
End If

Any ideas what i do wrong?

Thank you in advance.

 

[JamesMcS]

Are you setting the right property? Just googled and found this:

http://msdn.microsoft.com/en-us/library/aa173182(v=office.11).aspx

 

[dealwi8me]

I used the following and worked

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
Cancel = Me.[Page] = 1
End Sub

 

[Eljefegeneo]

Thanks. This really saved me a great deal of time. I didn't want the page header to be printed on the second page so I changed the 1 to a 2 and it worked great.