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
' add an additional owner
Me.UltraSchedulePrintDocument1.CalendarInfo.Owners.Add(Environment.UserName)
' select a week of dates
Me.UltraSchedulePrintDocument1.CalendarInfo.SelectedDateRanges.Clear()
Me.UltraSchedulePrintDocument1.CalendarInfo.SelectedDateRanges.Add(DateTime.Today, DateTime.Today.AddDays(7D))
End Sub
Private Sub UltraSchedulePrintDocument1_InitializeDayView(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinSchedule.Printing.InitializeDayViewEventArgs) Handles UltraSchedulePrintDocument1.InitializeDayView
' properties that affect the general display
' are always available
e.Control.AdditionalTimeZoneVisible = True
Dim timeZones As ArrayList = Infragistics.Win.Utilities.GetTimeZones()
e.Control.AdditionalTimeZoneUtcOffset = (CType(timeZones(2), TimeZoneInfo)).UtcOffset
e.Control.AdditionalTimeZoneLabel = (CType(timeZones(2), TimeZoneInfo)).StandardName
e.Control.CurrentTimeZoneLabel = "Local Time"
' while others may be overriden depending on the print style...
' the grouping style and preferredinview properties
' can be used to determine how many columns are printed
' per page
e.Control.GroupingStyle = DayViewGroupingStyle.DateWithinOwner
e.Control.PreferredInViewGroupCount = 2 ' 2 owners per page
e.Control.PreferredInViewColumnCount = 6 ' 3 dates per owner per page
End Sub