You can probably do that with the calendar control and vba, but it's more
work than it's worth. I tried it once, and after several days just gave up.

The best route to achieve what you are trying to do is to Google "ActiveX
Calendar control". One such control costs only $60 per developer and can be
found here:

http://www.viscomsoft.com/products/calendar/

Cheers,
Al

Another possibility is to use Outlook to store your data. Convert your data
list to a three column table
(http://www.gmayor.com/convert_labels_into_mail_merge.htm ) then run the
following macro to import that data table into Outlook's calendar
http://www.gmayor.com/installing_macro.htm  You can then print a calendar
from Outlook.

Sub AddApptmnt()
Dim ol As New Outlook.Application
Dim ci As AppointmentItem
Dim ctable As Table
Dim i As Long
Dim strStartDate As Range
Dim strEndDate As Range
Dim strSubject As Range

Set ctable = ActiveDocument.Tables(1)
For i = 2 To ctable.Rows.Count
   Set strStartDate = ctable.Cell(i, 1).Range
   strStartDate.End = strStartDate.End - 1
   Set strEndDate = ctable.Cell(i, 2).Range
   strEndDate.End = strEndDate.End - 1
   Set strSubject = ctable.Cell(i, 3).Range
   strSubject.End = strSubject.End - 1
Set ci = ol.CreateItem(olAppointmentItem)
   ci.Start = strStartDate
   ci.End = strEndDate
   ci.ReminderSet = False
   ci.AllDayEvent = True
   ci.Subject = strSubject
   ci.Categories = "Events"
   ci.BusyStatus = olFree
   ci.Save
   Set ol = Nothing
Next i
End Sub