1. Subroutine CreateMonthlyCalendar()
Change the line which defines argdate as follows:
argdate = "1"
& "/" & Trim(cmonth) &
"/" & Trim(styear)
2. Subroutine CreateWeeklyCalendar()
Change the line which defines scfirst as follows:
scfirst = "1/"
& Str(Month(wstartdate)) & "/" &
Str(Year(wstartdate))
3. Subroutine DayName()
Change the line which enters the day as follows:
Selection.TypeText
format(calcdate, "ddd d-m")
4. Subroutine Insertappointment()
Change the lines which enter the appointments as
follows:
mdaystart = "["
& format(appt.Start, "dd/m") &
"]"
mdayend = " - ["
& format(appt.End, "dd/m") &
"]"
Roger also suggests that you may need to the page
layout from Letter to A4.