or
| Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load |
| Dim report As New Telerik.Reporting.Report() |
| Dim detail As New Telerik.Reporting.DetailSection() |
| Dim textBox2 As New Telerik.Reporting.TextBox() |
| Dim border As New Telerik.Reporting.PictureBox() |
| border.Value = "Border_Landscape.gif" |
| border.Width = New Telerik.Reporting.Drawing.Unit(2, Telerik.Reporting.Drawing.UnitType.Inch) |
| border.Height = New Telerik.Reporting.Drawing.Unit(2, Telerik.Reporting.Drawing.UnitType.Inch) |
| border.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(1, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(1, Telerik.Reporting.Drawing.UnitType.Inch)) |
| textBox2.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(0, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0, Telerik.Reporting.Drawing.UnitType.Inch)) |
| textBox2.Value = "Hello World!" |
| textBox2.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(1.25, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0, Telerik.Reporting.Drawing.UnitType.Inch)) |
| textBox2.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(4.75, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.25, Telerik.Reporting.Drawing.UnitType.Inch)) |
| detail.Items.AddRange(New Telerik.Reporting.ReportItemBase() {textBox2}) |
| detail.Height = New Telerik.Reporting.Drawing.Unit(0.3, Telerik.Reporting.Drawing.UnitType.Inch) |
| report.Items.Add(DirectCast(detail, Telerik.Reporting.ReportItemBase)) |
| ReportViewer1.Report = report |
| 'ExportToPDF("Test", report) |
| End Sub |