Calendar - Hide days in month view print

Print Page | Close Window

Hide days in month view print

Printed From: Codejock Forums
Category: Codejock Products
Forum Name: Calendar
Forum Description: Topics Related to Codejock Calendar
URL: http://forum.codejock.com/forum_posts.asp?TID=16092
Printed Date: 06 October 2024 at 3:14pm
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com

Topic: Hide days in month view print

Posted By: crichey
Subject: Hide days in month view print
Date Posted: 27 January 2010 at 11:29am

Is it possible to hide days for the previous and subsequent months in the calendar print? When we print, for example, the month of January - we only want to see dates in January in the month view, not dates from December and February for partial weeks.

Also - is it possible to show only the Month in the header without the mini calendar?

-------------
Carl

Replies:

Posted By: mdoubson
Date Posted: 29 January 2010 at 2:44pm

Yes, you can do it now - https://forum.codejock.com/uploads/BetaOCX/CalendarBeta14.rar - https://forum.codejock.com/uploads/BetaOCX/CalendarBeta14.rar

CalendarControl.PrintOptions.ThreeSmallCal = False

-------------
Mark Doubson, Ph.D.

Posted By: mdoubson
Date Posted: 29 January 2010 at 2:53pm

You can use smth like

CalendarControl.PrintOptions.Header.TextCenter = "My Title String"
CalendarControl.PrintOptions.PrintDateHeader = False
and in your print / printpreview handler use any string to title e.g. Month Name

-------------
Mark Doubson, Ph.D.

Posted By: crichey
Date Posted: 29 January 2010 at 3:50pm

I'm not sure that I explained my original question properly. It sounds like the beta allows the mini calendars to be turned off, which is good and part of my original question. My main issue is turning off the printing of surrounding days from previous and next month when printing a month view.

For example, in printing January, 2010, it looks like this currently:

27 28 29 30 31   1   2
3   4   5   6   7   8   9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31   1   2   3   4   5   6

I would like it to look like this:

                     1   2
3   4   5   6   7   8   9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31

I'm referring to the main calendar, not the mini calendar here.

Thanks!

-------------
Carl

Posted By: mdoubson
Date Posted: 29 January 2010 at 5:54pm

e.g.

Private Sub mnuPrintPreview_Click()
Dim dt As Date
Dim nt As Integer
Dim sName As String
    nt = CalendarControl.ActiveView.DaysCount
    dt = CalendarControl.ActiveView.Days(nt / 2).Date
    sName = Format(dt, "yyyy - mmmm")
    CalendarControl.PrintPreviewOptions.Title = "Calendar Control VB 6.0 Sample application"
    CalendarControl.PrintOptions.Header.TextCenter = sName
    CalendarControl.PrintPreview False
End Sub

-------------
Mark Doubson, Ph.D.

Posted By: crichey
Date Posted: 01 February 2010 at 12:17pm

Thanks - again, this was only a response to part of my question and had already been answered before.

-------------
Carl