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