Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'print a yearly view
Me.UltraSchedulePrintDocument1.PrintStyle = SchedulePrintStyle.Yearly
End Sub
Private Sub UltraSchedulePrintDocument1_InitializeMonthViewMulti(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinSchedule.Printing.InitializeMonthViewMultiEventArgs) Handles UltraSchedulePrintDocument1.InitializeMonthViewMulti
' hide leading and trailing days so that only days
' in the year being printed are included
e.Control.TrailingDaysVisible = False
' display the week numbers
e.Control.WeekNumbersVisible = True
End Sub