Can anyone tell me why the footer is only being set on some sheets and not on all of them like it should be? Each sheet is printing as as it should and with the right amount of copies.
Code:
Sub PrintPositionSheets()
Dim ws As Worksheet
Dim iCopies As Integer, sSheetName As String, dDate As Date
Application.PrintCommunication = False
For Each ws In Worksheets
sSheetName = ws.Name
If Time > 0.66804 Then
dDate = dDate + 1
Else
dDate = Date
End If
With Sheets(sSheetName).PageSetup
' .OddAndEvenPagesHeaderFooter = True
' .EvenPage.CenterFooter.Text = "Positions for " & dDate
' .FirstPage.CenterFooter.Text = "Positions for " & dDate
[B].CenterFooter = "Positions for " & dDate[/B]
.PrintQuality = 600
.Orientation = xlLandscape
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
If sSheetName = "TD-Firm" Or sSheetName = "TD-KL&TD" Or sSheetName = "TD-FirmPRG" Or sSheetName = "BATLMGMT" Then
iCopies = 3
Else
iCopies = 2
End If
If Not sSheetName = "Notes" Then
Sheets(sSheetName).PrintOut Copies:=iCopies, Collate:=True, _
IgnorePrintAreas:=False
End If
End With
Next ws
Application.PrintCommunication = True
End Sub
