How to use Applescript to print out a certain calendar at 7am every morning?

Question

Hey guys,
I am trying to use AppleScript to print out one of my calendars each day at 7am every morning.
I have come up with this so far:
tell application "Calendar"
       view calendar "My Appointments" at (my (current date))
       switch view to day view
       activate
                    tell application "System Events"
                 keystroke "p" using command down
                 delay 1 -- (seconds)
                 tell process "Calendar"
                                                  tell window "Print"
                                                                 if value of checkbox "Calendar Keys" is not 0 then
                                  click checkbox "Calendar Keys"
                           end if
                                                  end tell
                                   end tell
                    end tell
end tell
The problem with this is that it will print out whatever calendars are currently viewable. I can't figure out how to tell it to deselect other calendars and just select the one I want. I also want to tell it to print this out at 7am every morning.
Any help would be very appreciated!

Answer 1

If you wanted to do the printout over multiple days, you would be best to loop through each day's events in the way the current script does, but to put a new loop around it that gets each new day's data:
--opens a temporary file
set fileRef to open for access ((path to desktop) as string) & "meetings.txt" with write permission
--effectively empties the file
set eof fileRef to 0
tell application "Calendar"
          set dayCount to 9 --this will be the number of days to look forward (not including today)
          repeat with currentDay from 0 to dayCount
                    set startList to {}
  --get's today's date
  --set startRange to ((current date) + 12 * days) -- I used this for testing, to point to a day that had many appointments.  I've left it so you can use it, too.
                    set startRange to ((current date) + (currentDay * days))
  --set the start of the range to previous midnight
                    set hours of startRange to 0
                    set minutes of startRange to 0
                    set seconds of startRange to 0
  --set end of the range to next midnight
                    set endRange to (startRange + 1 * days)
  --get today's events
                    set todaysEvents to get (events of calendar "My Appointments" whose (start date is greater than startRange) and (end date is less than endRange))
  --make a new list with start time of the event for sort purposes
                    repeat with theEvent in todaysEvents
                              set end of startList to {startdate:start date of theEvent, eventID:theEvent}
                    end repeat
  --sort using a bubble sort (suitable for short lists)
                    repeat with i from 1 to (count of startList) - 1
                              repeat with j from i + 1 to count of startList
                                        if startdate of item j of startList < startdate of item i of startList then
                                                  set temp to item i of startList
                                                  set item i of startList to item j of startList
                                                  set item j of startList to temp
                                        end if
                              end repeat
                    end repeat
  --empty the original list
                    set todaysEvents to {}
  --repopulate the list in correct chronological order
                    repeat with theEvent in startList
                              set end of todaysEvents to eventID of theEvent
                    end repeat
  --write today's date to the file
  write (date string of startRange & return & return) to fileRef
  --if there are no events, write this to the file as well
                    if length of todaysEvents is 0 then
                              write "No events" & return & return to fileRef
                    else
  --process each event into format: hh:mm-hh:mm/new line/event summary
                              repeat with theEvent in todaysEvents
                                        set startdate to start date of theEvent
                                        set enddate to end date of theEvent
                                        set startHours to hours of startdate as string
                                        if length of startHours is 1 then set startHours to "0" & startHours
                                        set startMins to minutes of startdate as string
                                        if length of startMins is 1 then set startMins to "0" & startMins
                                        set starttime to startHours & ":" & startMins
                                        set endHours to hours of enddate as string
                                        if length of endHours is 1 then set endHours to "0" & endHours
                                        set endMins to minutes of enddate as string
                                        if length of endMins is 1 then set endMins to "0" & endMins
                                        set endTime to endHours & ":" & endMins
  --write the event to the file
                                        set theSummary to (starttime & "-" & endTime & return & summary of theEvent & return & return) as string
  write theSummary to fileRef
                              end repeat
                    end if
  write return to fileRef
          end repeat
end tell
--close the file
close access fileRef
--print the file
set theFile to (((path to desktop) as text) & "meetings.txt") as alias
tell application "TextEdit"
          print theFile without print dialog
end tell