this thread had no replies when i started to work on it.
Sub Print_Week()
Dim i As Long, StartRow As Long, EndRow As Long
With ActiveSheet
.PageSetup.PrintArea = ""
For i = 5 To .Range("C" & .Rows.Count).End(xlUp).Row
.Range("C" & i) = DateSerial(Left(.Range("C" & i), 4), Mid(.Range("C" & i), 5, 2), Right(.Range("C" & i), 2))
Next
.Range("C5:C" & .Range("C" & .Rows.Count).End(xlUp).Row).NumberFormat = "m/d/yyyy"
StartRow = .Columns(3).Find(.Range("A12"), , , , xlByRows, xlNext).Row
EndRow = .Columns(3).Find(.Range("A14"), , , , xlByRows, xlNext).Row
.PageSetup.PrintArea = .Range(.Cells(StartRow, "C"), .Cells(EndRow, "Y")).Address
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub
Sub Print_Month()
Dim i As Long, StartRow As Long, EndRow As Long
With ActiveSheet
.PageSetup.PrintArea = ""
For i = 5 To .Range("C" & .Rows.Count).End(xlUp).Row
.Range("C" & i) = DateSerial(Left(.Range("C" & i), 4), Mid(.Range("C" & i), 5, 2), Right(.Range("C" & i), 2))
Next
.Range("C5:C" & .Range("C" & .Rows.Count).End(xlUp).Row).NumberFormat = "m/d/yyyy"
StartRow = .Columns(3).Find(.Range("A17"), , , , xlByRows, xlNext).Row
EndRow = .Columns(3).Find(.Range("A19"), , , , xlByRows, xlNext).Row
.PageSetup.PrintArea = .Range(.Cells(StartRow, "C"), .Cells(EndRow, "Y")).Address
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub