Print version does not match what previews

[Denise]

Help! I have a report which after adding code, looks great in the preview
but prints without the footer. Do I need something in the print format?
Thank you in advance. The following is my code:

Dim GrpArrayPage(), GrpArrayPages()
Dim GrpNameCurrent As Variant, GrpNamePrevious As Variant
Dim GrpPage As Integer, GrpPages As Integer
''
Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As
Integer)
If PageOfPage < "Page 2" Or InStr(1, PageOfPage, "of 0") > 0 Then
Me.PageFooterSection.Visible = True '
Else
Me.PageFooterSection.Visible = False
End If
'' Debug.Print "PF " & Me.Page & " " & PageOfPage & " " &
Me.PageFooterSection.Visible
End Sub

''
''Dim i As Integer
'' If Me.Pages = 0 Then
'' ReDim Preserve GrpArrayPage(Me.Page + 1)
'' ReDim Preserve GrpArrayPages(Me.Page + 1)
'' GrpNameCurrent = Me.[Deposit Date]
'' If GrpNameCurrent = GrpNamePrevious Then
'' GrpArrayPage(Me.Page) = GrpArrayPage(Me.Page - 1) + 1
'' GrpPages = GrpArrayPage(Me.Page)
'' For i = Me.Page - ((GrpPages) - 1) To Me.Page
'' GrpArrayPages(i) = GrpPages
'' Next i
'' Else
'' GrpPage = 1
'' GrpArrayPage(Me.Page) = GrpPage
'' GrpArrayPages(Me.Page) = GrpPage
'' End If
'' Else
'' Me!ctlGrpPages = "Group Page " & GrpArrayPage(Me.Page) & " of " &
GrpArrayPages(Me.Page)
'' End If
'' GrpNamePrevious = GrpNameCurrent
''End Sub