This repository has been archived by the owner on Sep 11, 2023. It is now read-only.
/
XtraReport1.vb
46 lines (37 loc) · 1.98 KB
/
XtraReport1.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Imports System
Imports System.Drawing
Imports System.Collections
Imports System.ComponentModel
Imports DevExpress.XtraReports.UI
Imports DevExpress.XtraScheduler
Namespace Sample
Partial Public Class XtraReport1
Inherits DevExpress.XtraReports.UI.XtraReport
Public Sub New()
InitializeComponent()
End Sub
Private day As Integer = 0
Public Property SchedulerStorage() As SchedulerStorage
Private Sub AptTimeLabel_BeforePrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles AptTimeLabel.BeforePrint
Dim apt As Appointment = TryCast(GetCurrentRow(), Appointment)
Dim label As XRLabel = TryCast(sender, XRLabel)
If apt.AllDay Then
label.Text = "All day"
Else
label.Text = String.Format("{0} - {1}", apt.Start.ToShortTimeString(), apt.End.ToShortTimeString())
End If
End Sub
Private Sub AptDescriptionLabel_BeforePrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles AptDescriptionLabel.BeforePrint
Dim apt As Appointment = TryCast(GetCurrentRow(), Appointment)
Dim label As XRLabel = TryCast(sender, XRLabel)
label.Text = String.Format("{0} {1}" & ControlChars.Lf & "{2}", apt.Subject, apt.Location, apt.Description)
label.BackColor = SchedulerStorage.Appointments.Labels.GetById(apt.LabelKey).Color
End Sub
Private Sub Detail_BeforePrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles Detail.BeforePrint
day = Convert.ToDateTime(GetCurrentColumnValue("Start")).Day
End Sub
Private Sub GroupHeader1_BeforePrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles GroupHeader1.BeforePrint
e.Cancel = day = Convert.ToDateTime(GetCurrentColumnValue("Start")).Day
End Sub
End Class
End Namespace