Home > Free Printable Weekly Planner

Free Printable Weekly Planner

Use our free printable weekly planner as a convenient method of organising your week so you don't miss out on those important dates and events you need to remember at home or in your business or organisation. Any time you need to plan your week, our free printable weekly planner will bring order to your situation. There is a simple two stage process in printing your weekly planner.

Step 1 - Select the month and year

Select the month and year you want to print the planner for. By using the month and year links you can scroll through the calendar to find the month that suits.

The weekly planner will provide a print out for each week in the month. Each week will be printed on a separate page, so be sure to have a sheet of paper for each week in your printer.

<% Dim arrMonth(31,2) ' Array holding info on each day of the display month Dim dtDisplayDate ' Date currently displaying calendar for Dim intDIM ' Days In Current Month Dim intDOW ' Day Of Week that current month starts on Dim intCurrentDOM ' Variable we use to hold current day of month as we write table Dim intCurrentPos ' Variable we use to hold current position in table Dim testdate1 ' First day of month in long form Dim testdate2 ' Last day of month in long form Dim tablecolour Dim bookedColour Dim tableBorderColour Dim tableGapColour Dim tableHeadingColour Dim tableTitleColour Dim tableDayColour Dim tableFontFace Dim tableFontSize Dim tableBodyFontFace Dim tableBodyFontSize tablecolour="0000ee" bookedColour="eeeeee" tableBorderColour="000000" tableGapColour="cccccc" tableHeadingColour="dddddd" tableTitleColour="cccccc" tableDayColour="00ff00" tableFontFace="Arial" tableFontSize="2" tableBodyFontFace="Arial" tableBodyFontSize="2" Dim startDay Dim startMonth Dim startYear Dim endDay Dim endMonth Dim endYear Dim calendarDay Dim calendarMonth Dim calendarYear %> <% ' ***Begin Function Declaration*** Function ukDate(str) 'Convert date to unambiguous UK format Dim aDay Dim aMonth Dim aYear aDay = Day(str) aMonth = Monthname(Month(str),False) aYear = Year(str) ukDate = aDay & "-" & aMonth & "-" & aYear End Function Function FindDaysInMonth(iMonth, iYear) Dim dTemp dTemp = DateAdd("d", -1, DateSerial(iYear, iMonth + 1, 1)) FindDaysInMonth = Day(dTemp) End Function Function FindStartingWeekdayForMonth(dAnyDayInTheMonth) Dim dTemp dTemp = DateAdd("d", -(Day(dAnyDayInTheMonth) - 1), dAnyDayInTheMonth) FindStartingWeekdayForMonth = WeekDay(dTemp) End Function Function DecrementMonth(dtDisplayDate) DecrementMonth = ukdate(DateAdd("m", -1, dtDisplayDate)) End Function Function DecrementYear(dtDisplayDate) DecrementYear = ukdate(DateAdd("yyyy", -1, dtDisplayDate)) End Function Function IncrementMonth(dtDisplayDate) IncrementMonth = ukdate(DateAdd("m", 1, dtDisplayDate)) End Function Function IncrementYear(dtDisplayDate) IncrementYear = ukdate(DateAdd("yyyy", 1, dtDisplayDate)) End Function ' ***End Function Declaration*** ' Get display date by querystring or by current date ' response.write "DATESTART0" ' response.write Request.QueryString("date") ' response.write "###" ' response.write ukdate(Date()) ' response.write "DATEEND0" 'If IsDate(Request.QueryString("date")) Then If len(Request.QueryString("date"))=0 Then dtDisplayDate = ukdate(Date()) else dtDisplayDate = CDate(Request.QueryString("date")) end if ' response.write "DATESTART" ' response.write dtDisplayDate ' response.write "DATEEND" 'Else ' If IsDate(Request.QueryString("month") & "-" & Request.QueryString("day") & "-" & Request.QueryString("year")) Then ' dtDisplayDate = CDate(Request.QueryString("month") & "-" & Request.QueryString("day") & "-" & Request.QueryString("year")) ' response.write "DATESTART2" ' response.write dtDisplayDate ' response.write "DATEEND2" ' Else ' dtDisplayDate = ukdate(Date()) ' If Len(Request.QueryString("month")) <> 0 Or Len(Request.QueryString("day")) <> 0 Or Len(Request.QueryString("year")) <> 0 Or Len(Request.QueryString("date")) <> 0 Then ' Response.Write "The date you picked was not a valid date. The calendar was set to today's date.

" ' response.write "DATESTART3" ' response.write dtDisplayDate ' response.write "DATEEND3" ' End If ' End If 'End If 'Find days in the choosen month and the day of the week it starts on. intDIM = FindDaysInMonth(Month(dtDisplayDate), Year(dtDisplayDate)) intDOW = FindStartingWeekdayForMonth(dtDisplayDate) 'Get first day and last day of month testdate1="01" & "/" & Monthname(Month(dtDisplayDate)) & "/" & Year(dtDisplayDate) testdate1=cDate(testdate1) testdate1=ukdate(testdate1) testdate2=intDIM & "/" & Monthname(Month(dtDisplayDate)) & "/" & Year(dtDisplayDate) testdate2=cDate(testdate2) testdate2=ukdate(testdate2) 'Retrieve all values from configuration table %>

<Year <Mth

<%= MonthName(Month(dtDisplayDate)) & " " & Year(dtDisplayDate) %>

Mth> Year>

Step 2- Display your free printable weekly planner

Click on the link below to display your free printable weekly planner in a separate window. Simply print the page in the new window and the plan for each week will be printed on a separate sheet of paper.

< Display my free printable weekly planner! >

The planner provides a space for writing entries for each day of the week, and provides the date and day in the box. The clean simple layout means it is easy to see what is happening each day as you rush around your business. By using our free printable weekly planner you can print out a weekly planning calendar for any month you choose, any time you choose.