Dim grp As Group
Private Sub c1CheckBox1_Checked(sender As Object, e As RoutedEventArgs)
' 従業員を役職でグループ化し、役職を昇順で並べ替えます
grp = rep.Groups.Add("GrpTitle", "Title", SortEnum.Ascending)
' 新しいグループのヘッダーセクションを書式設定します
s = grp.SectionHeader
s.Height = 1000
s.Visible = True
Dim f As New TextField()
f.Name = "Title"
f.Text.Expression = "Title"
f.Left = 0
f.Top = 0
f.Width = rep.Layout.Width
f.Height = 500
f.Align = FieldAlignEnum.LeftMiddle
f.Font.Bold = True
f.Font.Size = 12
f.Border = New C1.WPF.Document.Border _
(2, Color.FromRgb(0, 0, 0), C1.WPF.Document.DashStyle.Solid)
f.BackColor = Color.FromRgb(150, 150, 220)
f.MarginLeft = 100
s.Fields.Add(f)
rep.Render()
End Sub