Dim timelineViewDocument As New UltraSchedulePrintDocument()
AddHandler timelineViewDocument.InitializeTimelineView, AddressOf timelineViewDocument_InitializeTimelineView
Private Sub timelineViewDocument_InitializeTimelineView(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinSchedule.Printing.InitializeTimelineViewEventArgs)
' Prevent automatic adjustment of the time interval
e.AllowAdjustmentOfPrimaryInterval = False
End Sub