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) ' 時間間隔の自動調整を禁止します e.AllowAdjustmentOfPrimaryInterval = False End Sub