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