Lacking sufficient details about the structure of your sheet, here is a start that you can adapt.
Option Explicit
Sub Print_Planner()
Dim dStart As Date, dEnd As Date, i As Long, nDays As Long
dStart = DateSerial(2010, 1, 1)
dEnd = DateSerial(2010, 12, 31)
nDays = WorksheetFunction.NetworkDays(dStart, dEnd)
Range("A1").Value = dStart
Range("A1").NumberFormat = "dddd mmmm dd, yyyy"
Application.ScreenUpdating = False
On Error Resume Next
For i = 1 To nDays
If Weekday(dStart) = 1 Then
dStart = dStart + 1
'skip printing - Sunday
Else
dStart = dStart + 1
Range("A1").Value = dStart
Sheet1.PrintOut
End If
Next i
Application.ScreenUpdating = True
End Sub
Bookmarks