Temporary Footer?
 

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

Temporary Footer?
 

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"

--
David