HOWTO: Suppress Page Header on Print

[Dan Johnson]

Earlier this week I had a problem getting a page header to NOT print on the
first page of a group. Marshall's response was to add the following code:

Private Sub GroupFooter1_Format(Cancel As Integer, FormatCount As Integer)
Me.Section(3).Visible = False
End Sub

Private Sub GroupHeader0_Format(Cancel As Integer, FormatCount As Integer)
Page = 1
Me.Section(3).Visible = True
End Sub

This works fine as far as viewing the report on the screen, but I was still
getting the page header section on Print, so I added the following:

Private Sub GroupFooter1_Print(Cancel As Integer, PrintCount As Integer)
Me.Section(3).Visible = False
End Sub

Private Sub GroupHeader0_Print(Cancel As Integer, PrintCount As Integer)
Page = 1
Me.Section(3).Visible = True
End Sub

I had also set the group header section's ForceNewPage property is set to
BeforeSection earlier.

Can anyone see why this works for viewing onscreen, but not for printing?

Thanks!

Dan

 

[Marshall Barton]

Earlier this week I had a problem getting a page header to NOT print on the
first page of a group. Marshall's response was to add the following code:

Private Sub GroupFooter1_Format(Cancel As Integer, FormatCount As Integer)
Me.Section(3).Visible = False
End Sub

Private Sub GroupHeader0_Format(Cancel As Integer, FormatCount As Integer)
Page = 1
Me.Section(3).Visible = True
End Sub

This works fine as far as viewing the report on the screen, but I was still
getting the page header section on Print, so I added the following:

Private Sub GroupFooter1_Print(Cancel As Integer, PrintCount As Integer)
Me.Section(3).Visible = False
End Sub

Private Sub GroupHeader0_Print(Cancel As Integer, PrintCount As Integer)
Page = 1
Me.Section(3).Visible = True
End Sub

I had also set the group header section's ForceNewPage property is set to
BeforeSection earlier.

Can anyone see why this works for viewing onscreen, but not for printing?

John Vinson answered this in the original thread.