Temporary Footer?

[David]

I Call the following routine early in a NewMonth() Sub to print out a list
of those folks who are absent the entire month before continuing the
NewMonth() routine:

Sub FilterAbsent()
Dim cell As Range
Application.ScreenUpdating = False
Sheets(5).Activate
With ActiveSheet.UsedRange
..Rows.Hidden = False
For Each cell In .Columns(28).SpecialCells(xlCellTypeFormulas)
If cell.Value > 0 Then cell.EntireRow.Hidden = True
Next cell
End With
ActiveSheet.PrintPreview '<-- I click the Print button in the dialog
Cells.Rows.Hidden = False
End Sub

Is there a way to apply a Footer to appear on this page and then make it go
away before NewMonth() continues?

 

[David]

David wrote

I Call the following routine early in a NewMonth() Sub to print out a
list of those folks who are absent the entire month before continuing
the NewMonth() routine:

Sub FilterAbsent()
Dim cell As Range
Application.ScreenUpdating = False
Sheets(5).Activate
With ActiveSheet.UsedRange
.Rows.Hidden = False
For Each cell In .Columns(28).SpecialCells(xlCellTypeFormulas)
If cell.Value > 0 Then cell.EntireRow.Hidden = True
Next cell
End With
ActiveSheet.PrintPreview '<-- I click the Print button in the dialog
Cells.Rows.Hidden = False
End Sub

Is there a way to apply a Footer to appear on this page and then make
it go away before NewMonth() continues?

Never mind. I opted to replace some text in an existing cell and then put
it back:
Range("C1") = "Absent Entire Month"
ActiveSheet.PrintPreview
Range("C1") = "ATTENDANCE"