Page header does not print on first page of report

[kms]

I am not able to get the page header to print on the first page of a multi-page report. It is there in Preview mode but when I Print, it doesn't print out. Here is all the code for the report:

Option Compare Database
Dim CurrentStudentNumber
Dim PreviousFamily As String
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
CurrentStudentNumber = Me.txtNumber
End Sub

Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer)
Dim NumStudents As Integer
NumStudents = DCount("[FamilyID]", "ClassRoster", "[FamilyID] = '" & Me.FamilyID & "'")


If NumStudents > CurrentStudentNumber Then
Cancel = True
End If
PreviousFamily = Me.FamilyID
End Sub

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
If PreviousFamily = Me.FamilyID Then
Cancel = True
End If
End Sub

Private Sub Report_Open(Cancel As Integer)
CurrentStudentNumber = 0
PreviousFamily = ""
End Sub

[June7]

Check the form's PageHeader and PageFooter properties. Do they have 'All Pages'?

[kms]

Yes, they are set to All Pages. If I print the whole report, the page header does print on the first page too, but if I only choose to print page 1, the page header doesn't print.

[June7]

Sorry, I don't have any other ideas. Sounds very odd.