Reporting_how-to-programmatically-create-a-table-and-manually-add-rows-and-cells-to-it-e1333/VB/Reporting_how-to-programmatically-create-a-table-and-manually-add-rows-and-cells-to-it-e1333/XtraReport1.vb at 2019.2 · testdev-examples/Reporting_how-to-programmatically-create-a-table-and-manually-add-rows-and-cells-to-it-e1333 · GitHub

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
47
48
49
50
Imports System.Drawing
Imports System.Drawing.Printing
Imports DevExpress.XtraReports.UI
' ...

Namespace Controls_XRTable
	Partial Public Class XtraReport1
		Inherits XtraReport

		Public Sub New()
			InitializeComponent()
		End Sub

		Private Sub XtraReport1_BeforePrint(ByVal sender As Object, ByVal e As PrintEventArgs) Handles Me.BeforePrint
			Me.Detail.Controls.Add(CreateXRTable())
		End Sub

		Public Function CreateXRTable() As XRTable
			' Create an empty table and set its size.
			Dim table As New XRTable()
			table.Size = New Size(300, 100)

			' Start table initialization.
			table.BeginInit()

			' Enable table borders to see its boundaries.
			table.BorderWidth = 2
			table.Borders = DevExpress.XtraPrinting.BorderSide.All

			' Create a table row.
			Dim row As New XRTableRow()

			' Create two table cells.
			Dim cell0 As New XRTableCell()
			Dim cell1 As New XRTableCell()

			' Construct the table.
			row.Cells.Add(cell0)
			row.Cells.Add(cell1)
			table.Rows.Add(row)

			' Finish table initialization.
			table.EndInit()

			Return table
		End Function


	End Class
End Namespace