Print Calendar in 1 page

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Hello everybody
I would like to know how to print the complete day.
In the 12.02 version when I write this code it  functionned :
        CalendarControl1.PrintOptions.Landscape = True
        CalendarControl1.PrintOptions.PrintDateHeader = False
        CalendarControl1.PrintOptions.Header.TextCenter = ShortcutCaption2.caption
        CalendarControl1.PrintOptions.PrintFrom = CDate(Format$(CalendarControl1.ActiveView.Selection.Begin, "dd/mm/yyyy") & " 06:00:00")
        CalendarControl1.PrintOptions.PrintTo = CDate(Format$(CalendarControl1.ActiveView.Selection.End, "dd/mm/yyyy") & " 23:59:00")
        CalendarControl1.PrintOptions.PrintFromToExactly = True
        CalendarControl1.PrintPreview True

Thanks to help cause nurses want to kill me 

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
vaussenatf Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 24 May 2006 Location: France Status: Offline Points: 6	Post Options Post Reply Quote vaussenatf Report Post Thanks(0) Quote Reply Topic: Print Calendar in 1 page Posted: 19 October 2010 at 8:46am
	Hello everybody I would like to know how to print the complete day. In the 12.02 version when I write this code it functionned : CalendarControl1.PrintOptions.Landscape = True CalendarControl1.PrintOptions.PrintDateHeader = False CalendarControl1.PrintOptions.Header.TextCenter = ShortcutCaption2.caption CalendarControl1.PrintOptions.PrintFrom = CDate(Format$(CalendarControl1.ActiveView.Selection.Begin, "dd/mm/yyyy") & " 06:00:00") CalendarControl1.PrintOptions.PrintTo = CDate(Format$(CalendarControl1.ActiveView.Selection.End, "dd/mm/yyyy") & " 23:59:00") CalendarControl1.PrintOptions.PrintFromToExactly = True CalendarControl1.PrintPreview True Thanks to help cause nurses want to kill me
	fabiofrance