WinSchedulePrintDocument での WinPrintPreviewDialog の使用

Private Sub Using_WinPrintPreviewDialog_with_WinSchedulePrintDocument_Load( _
  ByVal sender _
  As System.Object, ByVal e As System.EventArgs) _
  Handles MyBase.Load
	' 予定を作成します。
	Me.CreateAppointment()
	' UltraDayView の CalendarInfo を UltraCalendarInfo コントロールに設定します。
	' UltraDayView に予定を設定します。
	Me.UltraDayView1.CalendarInfo = Me.UltraCalendarInfo1
	' UltraSchedulePrintDocument の CalendarInfo を UltraCalendarInfo コントロールに設定します。
	' ドキュメントは UltraDayView が使用すると同じ予定を使用できるようにします。
	Me.UltraSchedulePrintDocument1.CalendarInfo = Me.UltraCalendarInfo1
	' UltraPrintPreviewDialogのDocumentプロパティを　UltraSchedulePrintDocumentに設定します。
	Me.UltraPrintPreviewDialog1.Document = Me.UltraSchedulePrintDocument1
End Sub

private void Using_WinPrintPreviewDialog_with_WinSchedulePrintDocument_Load(
  object sender,
  EventArgs e)
{
	// 予定を作成します。
	this.CreateAppointment();
	// UltraDayView の CalendarInfo を UltraCalendarInfo コントロールに設定します。
	// UltraDayView に予定を設定します。
	this.ultraDayView1.CalendarInfo = this.ultraCalendarInfo1;
	// UltraSchedulePrintDocument の CalendarInfo を UltraCalendarInfo コントロールに設定します。
	// ドキュメントは UltraDayView が使用すると同じ予定を使用できるようにします。
	this.ultraSchedulePrintDocument1.CalendarInfo = this.ultraCalendarInfo1;
	// UltraPrintPreviewDialogのDocumentプロパティをUltraSchedulePrintDocumentに設定します。
	this.ultraPrintPreviewDialog1.Document = this.ultraSchedulePrintDocument1;
}

Private Sub CreateAppointment()
	' カレンダーに表示する予定を作成します。
	Dim myStartDate As New DateTime(2007, 3, 23, 1, 23, 3)
	Dim myEndDate As New DateTime(2007, 3, 23, 1, 23, 3)
	Me.UltraCalendarInfo1.Appointments.Add(myStartDate, myEndDate, "Meeting")
End Sub

private void CreateAppointment()
{
	// カレンダーに表示する予定を作成します。
	DateTime myStartTime = new DateTime(2007, 3, 23, 1, 23, 3);
	DateTime myEndTime = new DateTime(2007, 3, 23, 1, 23, 3);
	this.ultraCalendarInfo1.Appointments.Add(myStartTime, myEndTime, "Meeting");
}

Private Sub btnPrintPreview_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles btnPrintPreview.Click
	' ShowDialog を呼び出して UltraPrintPreviewDialog を表示します。
	Me.UltraPrintPreviewDialog1.ShowDialog(Me)
End Sub

private void btnPrintPreview_Click(object sender, EventArgs e)
{
	// ShowDialog を呼び出して UltraPrintPreviewDialog を表示します。
	this.ultraPrintPreviewDialog1.ShowDialog(this);
}

Private Sub btnClose_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles btnClose.Click
	Me.Close()
End Sub

private void btnClose_Click(object sender, EventArgs e)
{
	this.Close();
}