HOWTO: Reset Page Header for Each Group

[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

 

[fredg]

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

Probably because you set the sections to false when previewed, but
then never reset the section before printing.

Code the Report Header Format event:
Me.Section(x).Visible = True
Me.Section(y).Visible = True
etc.,
where x and y are the section numbers.

Then let your other code run as needed to make the section visible =
False.

 

[Dan Johnson]

That seems to have worked, Fred. Thanks!

Probably because you set the sections to false when previewed, but
then never reset the section before printing.

Code the Report Header Format event:
Me.Section(x).Visible = True
Me.Section(y).Visible = True
etc.,
where x and y are the section numbers.

Then let your other code run as needed to make the section visible =
False.