HOWTO: Reset Page Header for Each Group

  • Thread starter Thread starter Dan Johnson
  • Start date Start date
D

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
 
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
Click to expand...

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.
 
That seems to have worked, Fred. Thanks!

fredg said:
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.
Click to expand...
 
Back
Top