Dear Telerik Support,
I am generating invoices by saving a Telerik Report as a PDF file. I am running into inconsistent behavior with the borders. I have attached an image of the PDF which contains comments that explain the issues I am experiencing. I have also attached the report code.
Please Advise,
Jim
Imports System.ComponentModel |
Imports System.Drawing |
Imports System.Windows.Forms |
Imports Telerik.Reporting |
Imports Telerik.Reporting.Drawing |
Imports System |
Imports System.Data |
Imports System.Data.SqlClient |
Public Class Invoice |
Inherits Telerik.Reporting.Report |
Private WithEvents detail As Telerik.Reporting.DetailSection |
Private WithEvents da_ReportData As System.Data.SqlClient.SqlDataAdapter |
Private WithEvents reportHeader As Telerik.Reporting.ReportHeaderSection |
Private WithEvents tb_PageNumber As Telerik.Reporting.TextBox |
Private WithEvents tb_CurrentTime As Telerik.Reporting.TextBox |
Private WithEvents pageFooter As Telerik.Reporting.PageFooterSection |
Private WithEvents pageHeader As Telerik.Reporting.PageHeaderSection |
Private WithEvents labelsGroup As Telerik.Reporting.Group |
Private WithEvents labelsGroupFooter As Telerik.Reporting.GroupFooterSection |
Private WithEvents pb_Logo As Telerik.Reporting.PictureBox |
Private WithEvents tb_FromAddress As Telerik.Reporting.TextBox |
Private WithEvents tb_FromCityStateZip As Telerik.Reporting.TextBox |
Private WithEvents tb_FromPhone As Telerik.Reporting.TextBox |
Private WithEvents tb_FromWebAddress As Telerik.Reporting.TextBox |
Private WithEvents tb_PageHeader As Telerik.Reporting.TextBox |
Private WithEvents textBox1 As Telerik.Reporting.TextBox |
Private WithEvents textBox2 As Telerik.Reporting.TextBox |
Private WithEvents textBox3 As Telerik.Reporting.TextBox |
Private WithEvents textBox4 As Telerik.Reporting.TextBox |
Private WithEvents textBox5 As Telerik.Reporting.TextBox |
Private WithEvents textBox8 As Telerik.Reporting.TextBox |
Private WithEvents textBox9 As Telerik.Reporting.TextBox |
Private WithEvents textBox6 As Telerik.Reporting.TextBox |
Private WithEvents textBox7 As Telerik.Reporting.TextBox |
Private WithEvents textBox10 As Telerik.Reporting.TextBox |
Private WithEvents textBox11 As Telerik.Reporting.TextBox |
Private WithEvents textBox12 As Telerik.Reporting.TextBox |
Private WithEvents textBox13 As Telerik.Reporting.TextBox |
Private WithEvents textBox14 As Telerik.Reporting.TextBox |
Private WithEvents textBox15 As Telerik.Reporting.TextBox |
Private WithEvents textBox16 As Telerik.Reporting.TextBox |
Private WithEvents textBox17 As Telerik.Reporting.TextBox |
Private WithEvents textBox18 As Telerik.Reporting.TextBox |
Private WithEvents textBox19 As Telerik.Reporting.TextBox |
Private WithEvents textBox20 As Telerik.Reporting.TextBox |
Private WithEvents textBox21 As Telerik.Reporting.TextBox |
Private WithEvents textBox22 As Telerik.Reporting.TextBox |
Private WithEvents textBox23 As Telerik.Reporting.TextBox |
Private WithEvents textBox24 As Telerik.Reporting.TextBox |
Private WithEvents textBox25 As Telerik.Reporting.TextBox |
Private WithEvents textBox26 As Telerik.Reporting.TextBox |
Private WithEvents textBox27 As Telerik.Reporting.TextBox |
Private WithEvents textBox28 As Telerik.Reporting.TextBox |
Private WithEvents textBox29 As Telerik.Reporting.TextBox |
Private WithEvents textBox30 As Telerik.Reporting.TextBox |
Private WithEvents textBox31 As Telerik.Reporting.TextBox |
Private WithEvents textBox32 As Telerik.Reporting.TextBox |
Private WithEvents textBox33 As Telerik.Reporting.TextBox |
Private WithEvents labelsGroupHeader As Telerik.Reporting.GroupHeaderSection |
Public Sub New() |
InitializeComponent() |
Me.DataSource = Nothing |
End Sub |
'NOTE: The following procedure is required by the telerik Reporting Designer |
'It can be modified using the telerik Reporting Designer. |
'Do not modify it using the code editor. |
Private Sub InitializeComponent() |
Dim formattingRule1 As Telerik.Reporting.Drawing.FormattingRule = New Telerik.Reporting.Drawing.FormattingRule |
Dim reportParameter1 As Telerik.Reporting.ReportParameter = New Telerik.Reporting.ReportParameter |
Dim styleRule1 As Telerik.Reporting.Drawing.StyleRule = New Telerik.Reporting.Drawing.StyleRule |
Dim styleRule2 As Telerik.Reporting.Drawing.StyleRule = New Telerik.Reporting.Drawing.StyleRule |
Dim styleRule3 As Telerik.Reporting.Drawing.StyleRule = New Telerik.Reporting.Drawing.StyleRule |
Dim styleRule4 As Telerik.Reporting.Drawing.StyleRule = New Telerik.Reporting.Drawing.StyleRule |
Me.labelsGroupHeader = New Telerik.Reporting.GroupHeaderSection |
Me.labelsGroupFooter = New Telerik.Reporting.GroupFooterSection |
Me.labelsGroup = New Telerik.Reporting.Group |
Me.pageHeader = New Telerik.Reporting.PageHeaderSection |
Me.tb_PageHeader = New Telerik.Reporting.TextBox |
Me.pb_Logo = New Telerik.Reporting.PictureBox |
Me.pageFooter = New Telerik.Reporting.PageFooterSection |
Me.tb_CurrentTime = New Telerik.Reporting.TextBox |
Me.tb_PageNumber = New Telerik.Reporting.TextBox |
Me.reportHeader = New Telerik.Reporting.ReportHeaderSection |
Me.tb_FromPhone = New Telerik.Reporting.TextBox |
Me.tb_FromCityStateZip = New Telerik.Reporting.TextBox |
Me.tb_FromAddress = New Telerik.Reporting.TextBox |
Me.tb_FromWebAddress = New Telerik.Reporting.TextBox |
Me.detail = New Telerik.Reporting.DetailSection |
Me.da_ReportData = New System.Data.SqlClient.SqlDataAdapter |
Me.textBox1 = New Telerik.Reporting.TextBox |
Me.textBox2 = New Telerik.Reporting.TextBox |
Me.textBox3 = New Telerik.Reporting.TextBox |
Me.textBox4 = New Telerik.Reporting.TextBox |
Me.textBox5 = New Telerik.Reporting.TextBox |
Me.textBox8 = New Telerik.Reporting.TextBox |
Me.textBox9 = New Telerik.Reporting.TextBox |
Me.textBox6 = New Telerik.Reporting.TextBox |
Me.textBox7 = New Telerik.Reporting.TextBox |
Me.textBox10 = New Telerik.Reporting.TextBox |
Me.textBox11 = New Telerik.Reporting.TextBox |
Me.textBox12 = New Telerik.Reporting.TextBox |
Me.textBox13 = New Telerik.Reporting.TextBox |
Me.textBox14 = New Telerik.Reporting.TextBox |
Me.textBox15 = New Telerik.Reporting.TextBox |
Me.textBox16 = New Telerik.Reporting.TextBox |
Me.textBox17 = New Telerik.Reporting.TextBox |
Me.textBox18 = New Telerik.Reporting.TextBox |
Me.textBox19 = New Telerik.Reporting.TextBox |
Me.textBox20 = New Telerik.Reporting.TextBox |
Me.textBox21 = New Telerik.Reporting.TextBox |
Me.textBox22 = New Telerik.Reporting.TextBox |
Me.textBox23 = New Telerik.Reporting.TextBox |
Me.textBox24 = New Telerik.Reporting.TextBox |
Me.textBox25 = New Telerik.Reporting.TextBox |
Me.textBox26 = New Telerik.Reporting.TextBox |
Me.textBox27 = New Telerik.Reporting.TextBox |
Me.textBox28 = New Telerik.Reporting.TextBox |
Me.textBox29 = New Telerik.Reporting.TextBox |
Me.textBox30 = New Telerik.Reporting.TextBox |
Me.textBox31 = New Telerik.Reporting.TextBox |
Me.textBox32 = New Telerik.Reporting.TextBox |
Me.textBox33 = New Telerik.Reporting.TextBox |
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() |
' |
'labelsGroupHeader |
' |
Me.labelsGroupHeader.Height = New Telerik.Reporting.Drawing.Unit(0.20003955066204071, Telerik.Reporting.Drawing.UnitType.Inch) |
Me.labelsGroupHeader.Items.AddRange(New Telerik.Reporting.ReportItemBase() {Me.textBox16, Me.textBox17, Me.textBox18, Me.textBox19}) |
Me.labelsGroupHeader.Name = "labelsGroupHeader" |
Me.labelsGroupHeader.PrintOnEveryPage = True |
Me.labelsGroupHeader.Style.BorderStyle.Bottom = Telerik.Reporting.Drawing.BorderType.Solid |
Me.labelsGroupHeader.Style.BorderStyle.Left = Telerik.Reporting.Drawing.BorderType.Solid |
Me.labelsGroupHeader.Style.BorderStyle.Right = Telerik.Reporting.Drawing.BorderType.Solid |
Me.labelsGroupHeader.Style.BorderStyle.Top = Telerik.Reporting.Drawing.BorderType.Solid |
' |
'labelsGroupFooter |
' |
Me.labelsGroupFooter.Height = New Telerik.Reporting.Drawing.Unit(1.8998819589614868, Telerik.Reporting.Drawing.UnitType.Inch) |
Me.labelsGroupFooter.Items.AddRange(New Telerik.Reporting.ReportItemBase() {Me.textBox24, Me.textBox25, Me.textBox26, Me.textBox27, Me.textBox28, Me.textBox29, Me.textBox30, Me.textBox31, Me.textBox32, Me.textBox33}) |
Me.labelsGroupFooter.Name = "labelsGroupFooter" |
Me.labelsGroupFooter.Style.BorderStyle.Top = Telerik.Reporting.Drawing.BorderType.Solid |
Me.labelsGroupFooter.Style.Visible = True |
' |
'labelsGroup |
' |
MeMe.labelsGroup.GroupFooter = Me.labelsGroupFooter |
MeMe.labelsGroup.GroupHeader = Me.labelsGroupHeader |
' |
'pageHeader |
' |
Me.pageHeader.Height = New Telerik.Reporting.Drawing.Unit(0.20000004768371582, Telerik.Reporting.Drawing.UnitType.Inch) |
Me.pageHeader.Items.AddRange(New Telerik.Reporting.ReportItemBase() {Me.tb_PageHeader}) |
Me.pageHeader.Name = "pageHeader" |
Me.pageHeader.PrintOnFirstPage = False |
' |
'tb_PageHeader |
' |
Me.tb_PageHeader.Name = "tb_PageHeader" |
Me.tb_PageHeader.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(6.4311714172363281, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.19996063411235809, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.tb_PageHeader.Value = "=Fields.PageHeader" |
' |
'pb_Logo |
' |
Me.pb_Logo.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(0.02091217041015625, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.000039259593904716894, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.pb_Logo.Name = "pb_Logo" |
Me.pb_Logo.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(6.4790878295898437, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.89996081590652466, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.pb_Logo.Style.BackgroundImage.Repeat = Telerik.Reporting.Drawing.BackgroundRepeat.NoRepeat |
Me.pb_Logo.Style.BorderStyle.Bottom = Telerik.Reporting.Drawing.BorderType.None |
Me.pb_Logo.Style.BorderStyle.Left = Telerik.Reporting.Drawing.BorderType.None |
Me.pb_Logo.Style.BorderStyle.Right = Telerik.Reporting.Drawing.BorderType.None |
Me.pb_Logo.Style.BorderStyle.Top = Telerik.Reporting.Drawing.BorderType.None |
Me.pb_Logo.Style.Padding.Bottom = New Telerik.Reporting.Drawing.Unit(0.10000000149011612, Telerik.Reporting.Drawing.UnitType.Inch) |
Me.pb_Logo.Style.Padding.Left = New Telerik.Reporting.Drawing.Unit(0, Telerik.Reporting.Drawing.UnitType.Inch) |
Me.pb_Logo.Style.Padding.Top = New Telerik.Reporting.Drawing.Unit(0.10000000149011612, Telerik.Reporting.Drawing.UnitType.Inch) |
Me.pb_Logo.Style.VerticalAlign = Telerik.Reporting.Drawing.VerticalAlign.Bottom |
Me.pb_Logo.Value = "~/Images/Logos/logo_OPR.gif" |
' |
'pageFooter |
' |
Me.pageFooter.Height = New Telerik.Reporting.Drawing.Unit(0.28125, Telerik.Reporting.Drawing.UnitType.Inch) |
Me.pageFooter.Items.AddRange(New Telerik.Reporting.ReportItemBase() {Me.tb_CurrentTime, Me.tb_PageNumber}) |
Me.pageFooter.Name = "pageFooter" |
' |
'tb_CurrentTime |
' |
Me.tb_CurrentTime.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(0.099999986588954926, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.02083333395421505, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.tb_CurrentTime.Name = "tb_CurrentTime" |
Me.tb_CurrentTime.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(3.1187498569488525, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.20000000298023224, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.tb_CurrentTime.Style.Font.Name = "Arial" |
Me.tb_CurrentTime.Style.Font.Size = New Telerik.Reporting.Drawing.Unit(10, Telerik.Reporting.Drawing.UnitType.Point) |
Me.tb_CurrentTime.StyleName = "PageInfo" |
Me.tb_CurrentTime.Value = "=NOW()" |
' |
'tb_PageNumber |
' |
Me.tb_PageNumber.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(3.2395832538604736, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.02083333395421505, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.tb_PageNumber.Name = "tb_PageNumber" |
Me.tb_PageNumber.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(3.1979167461395264, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.20000000298023224, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.tb_PageNumber.Style.Font.Name = "Arial" |
Me.tb_PageNumber.Style.Font.Size = New Telerik.Reporting.Drawing.Unit(10, Telerik.Reporting.Drawing.UnitType.Point) |
Me.tb_PageNumber.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Right |
Me.tb_PageNumber.StyleName = "PageInfo" |
Me.tb_PageNumber.Value = "=PageNumber" |
' |
'reportHeader |
' |
Me.reportHeader.Height = New Telerik.Reporting.Drawing.Unit(3.7999999523162842, Telerik.Reporting.Drawing.UnitType.Inch) |
Me.reportHeader.Items.AddRange(New Telerik.Reporting.ReportItemBase() {Me.pb_Logo, Me.tb_FromPhone, Me.tb_FromCityStateZip, Me.tb_FromAddress, Me.tb_FromWebAddress, Me.textBox1, Me.textBox2, Me.textBox3, Me.textBox4, Me.textBox5, Me.textBox8, Me.textBox9, Me.textBox6, Me.textBox7, Me.textBox10, Me.textBox11, Me.textBox12, Me.textBox13, Me.textBox14, Me.textBox15}) |
Me.reportHeader.Name = "reportHeader" |
Me.reportHeader.Style.BorderStyle.Bottom = Telerik.Reporting.Drawing.BorderType.None |
Me.reportHeader.Style.BorderStyle.Left = Telerik.Reporting.Drawing.BorderType.None |
Me.reportHeader.Style.BorderStyle.Right = Telerik.Reporting.Drawing.BorderType.None |
Me.reportHeader.Style.BorderStyle.Top = Telerik.Reporting.Drawing.BorderType.None |
Me.reportHeader.Style.Visible = True |
' |
'tb_FromPhone |
' |
Me.tb_FromPhone.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(0.02083333395421505, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(1.2999606132507324, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.tb_FromPhone.Name = "tb_FromPhone" |
Me.tb_FromPhone.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(2.379166841506958, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.19999997317790985, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.tb_FromPhone.Value = "=Fields.FromPhone" |
' |
'tb_FromCityStateZip |
' |
Me.tb_FromCityStateZip.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(0.02083333395421505, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(1.0999604463577271, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.tb_FromCityStateZip.Name = "tb_FromCityStateZip" |
Me.tb_FromCityStateZip.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(2.379166841506958, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.19999997317790985, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.tb_FromCityStateZip.Value = "=Fields.FromCityStateZip" |
' |
'tb_FromAddress |
' |
Me.tb_FromAddress.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(0.02083333395421505, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.90000009536743164, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.tb_FromAddress.Name = "tb_FromAddress" |
Me.tb_FromAddress.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(2.3791670799255371, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.19999997317790985, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.tb_FromAddress.Value = "=Fields.FromAddress" |
' |
'tb_FromWebAddress |
' |
Me.tb_FromWebAddress.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(0.02083333395421505, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(1.4999607801437378, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.tb_FromWebAddress.Name = "tb_FromWebAddress" |
Me.tb_FromWebAddress.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(2.379166841506958, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.19999997317790985, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.tb_FromWebAddress.Value = "=Fields.FromWebAddress" |
' |
'detail |
' |
formattingRule1.Filters.AddRange(New Telerik.Reporting.Data.Filter() {New Telerik.Reporting.Data.Filter("RowNumber()%2", Telerik.Reporting.Data.FilterOperator.Equal, "=1")}) |
formattingRule1.Style.BackgroundColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer)) |
Me.detail.ConditionalFormatting.AddRange(New Telerik.Reporting.Drawing.FormattingRule() {formattingRule1}) |
Me.detail.Height = New Telerik.Reporting.Drawing.Unit(0.20007896423339844, Telerik.Reporting.Drawing.UnitType.Inch) |
Me.detail.Items.AddRange(New Telerik.Reporting.ReportItemBase() {Me.textBox20, Me.textBox21, Me.textBox22, Me.textBox23}) |
Me.detail.Name = "detail" |
Me.detail.Style.BorderStyle.Bottom = Telerik.Reporting.Drawing.BorderType.None |
Me.detail.Style.BorderStyle.Left = Telerik.Reporting.Drawing.BorderType.Solid |
Me.detail.Style.BorderStyle.Right = Telerik.Reporting.Drawing.BorderType.Solid |
Me.detail.Style.BorderStyle.Top = Telerik.Reporting.Drawing.BorderType.None |
' |
'textBox1 |
' |
Me.textBox1.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(0.000039418537198798731, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(1.8999999761581421, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox1.Name = "textBox1" |
Me.textBox1.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(0.89996069669723511, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.20000012218952179, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox1.Style.Font.Bold = True |
Me.textBox1.Style.Font.Size = New Telerik.Reporting.Drawing.Unit(14, Telerik.Reporting.Drawing.UnitType.Point) |
Me.textBox1.Value = "Invoice" |
' |
'textBox2 |
' |
Me.textBox2.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(4, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(1.8999999761581421, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox2.Name = "textBox2" |
Me.textBox2.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(0.99583292007446289, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.20000012218952179, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox2.Style.Font.Bold = True |
Me.textBox2.Style.Font.Size = New Telerik.Reporting.Drawing.Unit(14, Telerik.Reporting.Drawing.UnitType.Point) |
Me.textBox2.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Right |
Me.textBox2.Value = "No." |
' |
'textBox3 |
' |
Me.textBox3.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(5.1000003814697266, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(1.8999999761581421, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox3.Name = "textBox3" |
Me.textBox3.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(1.2998420000076294, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.20000012218952179, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox3.Style.Font.Bold = True |
Me.textBox3.Style.Font.Size = New Telerik.Reporting.Drawing.Unit(14, Telerik.Reporting.Drawing.UnitType.Point) |
Me.textBox3.Value = "=Fields.InvoiceNo" |
' |
'textBox4 |
' |
Me.textBox4.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(5.1000003814697266, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(2.1000001430511475, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox4.Name = "textBox4" |
Me.textBox4.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(1.2998420000076294, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.20000012218952179, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox4.Style.Font.Bold = False |
Me.textBox4.Style.Font.Size = New Telerik.Reporting.Drawing.Unit(10, Telerik.Reporting.Drawing.UnitType.Point) |
Me.textBox4.Value = "=Fields.InvoiceDate" |
' |
'textBox5 |
' |
Me.textBox5.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(4, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(2.1000001430511475, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox5.Name = "textBox5" |
Me.textBox5.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(0.99583292007446289, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.20000012218952179, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox5.Style.Font.Bold = True |
Me.textBox5.Style.Font.Size = New Telerik.Reporting.Drawing.Unit(10, Telerik.Reporting.Drawing.UnitType.Point) |
Me.textBox5.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Right |
Me.textBox5.Value = "Invoice Date:" |
' |
'textBox8 |
' |
Me.textBox8.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(4, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(2.2999999523162842, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox8.Name = "textBox8" |
Me.textBox8.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(0.99583292007446289, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.20000012218952179, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox8.Style.Font.Bold = True |
Me.textBox8.Style.Font.Size = New Telerik.Reporting.Drawing.Unit(10, Telerik.Reporting.Drawing.UnitType.Point) |
Me.textBox8.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Right |
Me.textBox8.Value = "Terms:" |
' |
'textBox9 |
' |
Me.textBox9.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(5.1000003814697266, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(2.2999999523162842, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox9.Name = "textBox9" |
Me.textBox9.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(1.2998420000076294, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.20000012218952179, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox9.Style.Font.Bold = False |
Me.textBox9.Style.Font.Size = New Telerik.Reporting.Drawing.Unit(10, Telerik.Reporting.Drawing.UnitType.Point) |
Me.textBox9.Value = "=Fields.Terms" |
' |
'textBox6 |
' |
Me.textBox6.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(5.1000003814697266, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(2.5, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox6.Name = "textBox6" |
Me.textBox6.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(1.2998420000076294, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.20000012218952179, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox6.Style.Font.Bold = False |
Me.textBox6.Style.Font.Size = New Telerik.Reporting.Drawing.Unit(10, Telerik.Reporting.Drawing.UnitType.Point) |
Me.textBox6.Value = "=Fields.CurrentDueDate" |
' |
'textBox7 |
' |
Me.textBox7.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(4, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(2.5, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox7.Name = "textBox7" |
Me.textBox7.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(0.99583292007446289, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.20000012218952179, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox7.Style.Font.Bold = True |
Me.textBox7.Style.Font.Size = New Telerik.Reporting.Drawing.Unit(10, Telerik.Reporting.Drawing.UnitType.Point) |
Me.textBox7.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Right |
Me.textBox7.Value = "Due Date:" |
' |
'textBox10 |
' |
Me.textBox10.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(0, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(2.1000001430511475, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox10.Name = "textBox10" |
Me.textBox10.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(3.3000791072845459, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.20000012218952179, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox10.Style.Font.Bold = False |
Me.textBox10.Style.Font.Size = New Telerik.Reporting.Drawing.Unit(10, Telerik.Reporting.Drawing.UnitType.Point) |
Me.textBox10.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Left |
Me.textBox10.Value = "=Fields.InvoiceDescription" |
' |
'textBox11 |
' |
Me.textBox11.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(0, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(2.5, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox11.Name = "textBox11" |
Me.textBox11.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(0.90000009536743164, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.20000012218952179, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox11.Style.Font.Bold = True |
Me.textBox11.Style.Font.Size = New Telerik.Reporting.Drawing.Unit(14, Telerik.Reporting.Drawing.UnitType.Point) |
Me.textBox11.Value = "Bill to:" |
' |
'textBox12 |
' |
Me.textBox12.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(0.000078837074397597462, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(3.0000784397125244, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox12.Name = "textBox12" |
Me.textBox12.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(3.3000001907348633, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.20000012218952179, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox12.Style.BorderStyle.Left = Telerik.Reporting.Drawing.BorderType.Solid |
Me.textBox12.Style.BorderStyle.Right = Telerik.Reporting.Drawing.BorderType.Solid |
Me.textBox12.Style.BorderStyle.Top = Telerik.Reporting.Drawing.BorderType.None |
Me.textBox12.Style.LineWidth = New Telerik.Reporting.Drawing.Unit(1, Telerik.Reporting.Drawing.UnitType.Pixel) |
Me.textBox12.Value = "=Fields.ToCompanyName" |
' |
'textBox13 |
' |
Me.textBox13.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(0, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(2.7999999523162842, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox13.Name = "textBox13" |
Me.textBox13.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(3.3000001907348633, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.19999980926513672, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox13.Style.BorderColor.Top = System.Drawing.Color.Black |
Me.textBox13.Style.BorderStyle.Left = Telerik.Reporting.Drawing.BorderType.Solid |
Me.textBox13.Style.BorderStyle.Right = Telerik.Reporting.Drawing.BorderType.Solid |
Me.textBox13.Style.BorderStyle.Top = Telerik.Reporting.Drawing.BorderType.Solid |
Me.textBox13.Style.LineWidth = New Telerik.Reporting.Drawing.Unit(1, Telerik.Reporting.Drawing.UnitType.Pixel) |
Me.textBox13.Value = "=Fields.ToContactName" |
' |
'textBox14 |
' |
Me.textBox14.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(0.000078837074397597462, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(3.2001571655273437, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox14.Name = "textBox14" |
Me.textBox14.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(3.3000001907348633, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.20000012218952179, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox14.Style.BorderStyle.Left = Telerik.Reporting.Drawing.BorderType.Solid |
Me.textBox14.Style.BorderStyle.Right = Telerik.Reporting.Drawing.BorderType.Solid |
Me.textBox14.Style.LineWidth = New Telerik.Reporting.Drawing.Unit(1, Telerik.Reporting.Drawing.UnitType.Pixel) |
Me.textBox14.Value = "=Fields.ToAddress" |
' |
'textBox15 |
' |
Me.textBox15.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(0.000078837074397597462, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(3.4002361297607422, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox15.Name = "textBox15" |
Me.textBox15.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(3.3000001907348633, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.20000012218952179, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox15.Style.BorderStyle.Bottom = Telerik.Reporting.Drawing.BorderType.Solid |
Me.textBox15.Style.BorderStyle.Left = Telerik.Reporting.Drawing.BorderType.Solid |
Me.textBox15.Style.BorderStyle.Right = Telerik.Reporting.Drawing.BorderType.Solid |
Me.textBox15.Style.LineWidth = New Telerik.Reporting.Drawing.Unit(1, Telerik.Reporting.Drawing.UnitType.Pixel) |
Me.textBox15.Value = "=Fields.ToCityStateZip" |
' |
'textBox16 |
' |
Me.textBox16.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(0.02091217041015625, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox16.Name = "textBox16" |
Me.textBox16.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(3.7790887355804443, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.20000012218952179, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox16.Style.BorderStyle.Bottom = Telerik.Reporting.Drawing.BorderType.None |
Me.textBox16.Style.BorderStyle.Left = Telerik.Reporting.Drawing.BorderType.None |
Me.textBox16.Style.BorderStyle.Right = Telerik.Reporting.Drawing.BorderType.Solid |
Me.textBox16.Style.BorderStyle.Top = Telerik.Reporting.Drawing.BorderType.None |
Me.textBox16.Style.Font.Bold = True |
Me.textBox16.Style.Font.Size = New Telerik.Reporting.Drawing.Unit(10, Telerik.Reporting.Drawing.UnitType.Point) |
Me.textBox16.Value = "Description" |
' |
'textBox17 |
' |
Me.textBox17.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(3.8000795841217041, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.000039736431062920019, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox17.Name = "textBox17" |
Me.textBox17.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(0.79992103576660156, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.19999980926513672, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox17.Style.BorderStyle.Bottom = Telerik.Reporting.Drawing.BorderType.None |
Me.textBox17.Style.BorderStyle.Left = Telerik.Reporting.Drawing.BorderType.None |
Me.textBox17.Style.BorderStyle.Right = Telerik.Reporting.Drawing.BorderType.Solid |
Me.textBox17.Style.BorderStyle.Top = Telerik.Reporting.Drawing.BorderType.None |
Me.textBox17.Style.Font.Bold = True |
Me.textBox17.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Right |
Me.textBox17.Value = "Units " |
' |
'textBox18 |
' |
Me.textBox18.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(4.5999999046325684, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox18.Name = "textBox18" |
Me.textBox18.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(0.80000019073486328, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.19999980926513672, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox18.Style.BorderStyle.Bottom = Telerik.Reporting.Drawing.BorderType.None |
Me.textBox18.Style.BorderStyle.Left = Telerik.Reporting.Drawing.BorderType.None |
Me.textBox18.Style.BorderStyle.Right = Telerik.Reporting.Drawing.BorderType.Solid |
Me.textBox18.Style.BorderStyle.Top = Telerik.Reporting.Drawing.BorderType.None |
Me.textBox18.Style.Font.Bold = True |
Me.textBox18.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Right |
Me.textBox18.Value = "Cost " |
' |
'textBox19 |
' |
Me.textBox19.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(5.4000792503356934, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox19.Name = "textBox19" |
Me.textBox19.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(1.0999212265014648, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.19999980926513672, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox19.Style.BorderStyle.Bottom = Telerik.Reporting.Drawing.BorderType.None |
Me.textBox19.Style.BorderStyle.Left = Telerik.Reporting.Drawing.BorderType.None |
Me.textBox19.Style.BorderStyle.Right = Telerik.Reporting.Drawing.BorderType.None |
Me.textBox19.Style.BorderStyle.Top = Telerik.Reporting.Drawing.BorderType.None |
Me.textBox19.Style.Font.Bold = True |
Me.textBox19.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Right |
Me.textBox19.Value = "Total " |
' |
'textBox20 |
' |
Me.textBox20.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(0.02091217041015625, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox20.Name = "textBox20" |
Me.textBox20.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(3.7790887355804443, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.20000012218952179, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox20.Style.BorderStyle.Left = Telerik.Reporting.Drawing.BorderType.None |
Me.textBox20.Style.BorderStyle.Right = Telerik.Reporting.Drawing.BorderType.Solid |
Me.textBox20.Value = "=Fields.ItemDescription" |
' |
'textBox21 |
' |
Me.textBox21.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(3.8000795841217041, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.000078837074397597462, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox21.Name = "textBox21" |
Me.textBox21.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(0.7999998927116394, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.20000012218952179, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox21.Style.BorderStyle.Left = Telerik.Reporting.Drawing.BorderType.None |
Me.textBox21.Style.BorderStyle.Right = Telerik.Reporting.Drawing.BorderType.Solid |
Me.textBox21.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Right |
Me.textBox21.Value = "=Fields.Units" |
' |
'textBox22 |
' |
Me.textBox22.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(4.6001582145690918, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.000078837074397597462, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox22.Name = "textBox22" |
Me.textBox22.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(0.7999998927116394, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.20000012218952179, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox22.Style.BorderStyle.Left = Telerik.Reporting.Drawing.BorderType.None |
Me.textBox22.Style.BorderStyle.Right = Telerik.Reporting.Drawing.BorderType.Solid |
Me.textBox22.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Right |
Me.textBox22.Value = "=Fields.Cost" |
' |
'textBox23 |
' |
Me.textBox23.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(5.4000792503356934, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox23.Name = "textBox23" |
Me.textBox23.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(1.0998420715332031, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.20000012218952179, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox23.Style.BorderStyle.Left = Telerik.Reporting.Drawing.BorderType.None |
Me.textBox23.Style.BorderStyle.Right = Telerik.Reporting.Drawing.BorderType.None |
Me.textBox23.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Right |
Me.textBox23.Value = "=Fields.ItemTotal" |
' |
'textBox24 |
' |
Me.textBox24.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(3.1000001430511475, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.19988155364990234, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox24.Name = "textBox24" |
Me.textBox24.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(1.599920392036438, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.20000012218952179, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox24.Style.Font.Bold = True |
Me.textBox24.Style.Font.Size = New Telerik.Reporting.Drawing.Unit(10, Telerik.Reporting.Drawing.UnitType.Point) |
Me.textBox24.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Right |
Me.textBox24.Value = "Total Amount" |
' |
'textBox25 |
' |
Me.textBox25.Format = "{0:C2}" |
Me.textBox25.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(5.4000792503356934, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.19988155364990234, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox25.Name = "textBox25" |
Me.textBox25.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(1.0998420715332031, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.20000012218952179, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox25.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Right |
Me.textBox25.Value = "=Fields.CurrentAmt" |
' |
'textBox26 |
' |
Me.textBox26.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(3.1000001430511475, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.39996084570884705, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox26.Name = "textBox26" |
Me.textBox26.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(1.5999206304550171, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.20000012218952179, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox26.Style.Font.Bold = True |
Me.textBox26.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Right |
Me.textBox26.Value = "Outstanding Invoice(s)" |
' |
'textBox27 |
' |
Me.textBox27.Format = "{0:C2}" |
Me.textBox27.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(4.6999998092651367, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.39996084570884705, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox27.Name = "textBox27" |
Me.textBox27.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(0.7000001072883606, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.20000012218952179, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox27.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Right |
Me.textBox27.Value = "=Fields.OutstandingInvDesc" |
' |
'textBox28 |
' |
Me.textBox28.Format = "{0:N2}" |
Me.textBox28.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(5.4001579284667969, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.39996084570884705, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox28.Name = "textBox28" |
Me.textBox28.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(1.0998420715332031, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.20000012218952179, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox28.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Right |
Me.textBox28.Value = "=Fields.OutstandingInvAmt" |
' |
'textBox29 |
' |
Me.textBox29.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(3.1000001430511475, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.6000397801399231, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox29.Name = "textBox29" |
Me.textBox29.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(1.6000000238418579, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.20000000298023224, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox29.Style.Font.Bold = True |
Me.textBox29.Style.Font.Size = New Telerik.Reporting.Drawing.Unit(10, Telerik.Reporting.Drawing.UnitType.Point) |
Me.textBox29.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Right |
Me.textBox29.Value = "Late Fee" |
' |
'textBox30 |
' |
Me.textBox30.Format = "{0:N2}" |
Me.textBox30.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(5.4001579284667969, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.6000397801399231, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox30.Name = "textBox30" |
Me.textBox30.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(1.0998420715332031, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.20000012218952179, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox30.Style.BorderStyle.Bottom = Telerik.Reporting.Drawing.BorderType.Solid |
Me.textBox30.Style.LineWidth = New Telerik.Reporting.Drawing.Unit(1, Telerik.Reporting.Drawing.UnitType.Pixel) |
Me.textBox30.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Right |
Me.textBox30.Value = "=Fields.LateFee" |
' |
'textBox31 |
' |
Me.textBox31.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(3.1000001430511475, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.80000239610672, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox31.Name = "textBox31" |
Me.textBox31.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(1.6000000238418579, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.20000000298023224, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox31.Style.Font.Bold = True |
Me.textBox31.Style.Font.Size = New Telerik.Reporting.Drawing.Unit(10, Telerik.Reporting.Drawing.UnitType.Point) |
Me.textBox31.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Right |
Me.textBox31.Value = "Total Amount Due" |
' |
'textBox32 |
' |
Me.textBox32.Format = "{0:C2}" |
Me.textBox32.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(5.4000792503356934, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.80011874437332153, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox32.Name = "textBox32" |
Me.textBox32.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(1.0998420715332031, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.20000012218952179, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox32.Style.BorderStyle.Bottom = Telerik.Reporting.Drawing.BorderType.[Double] |
Me.textBox32.Style.BorderWidth.Bottom = New Telerik.Reporting.Drawing.Unit(5, Telerik.Reporting.Drawing.UnitType.Pixel) |
Me.textBox32.Style.LineWidth = New Telerik.Reporting.Drawing.Unit(1, Telerik.Reporting.Drawing.UnitType.Pixel) |
Me.textBox32.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Right |
Me.textBox32.Value = "=Fields.TotalAmountDue" |
' |
'textBox33 |
' |
Me.textBox33.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(0.099999986588954926, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(1.2998815774917603, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox33.Name = "textBox33" |
Me.textBox33.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(4.5999207496643066, Telerik.Reporting.Drawing.UnitType.Inch), New Telerik.Reporting.Drawing.Unit(0.5, Telerik.Reporting.Drawing.UnitType.Inch)) |
Me.textBox33.Value = "=Fields.InvoiceNote" |
' |
'Invoice |
' |
Me.Groups.AddRange(New Telerik.Reporting.Group() {Me.labelsGroup}) |
Me.Items.AddRange(New Telerik.Reporting.ReportItemBase() {Me.labelsGroupHeader, Me.labelsGroupFooter, Me.pageHeader, Me.pageFooter, Me.reportHeader, Me.detail}) |
Me.PageSettings.Landscape = False |
Me.PageSettings.Margins.Bottom = New Telerik.Reporting.Drawing.Unit(1, Telerik.Reporting.Drawing.UnitType.Inch) |
Me.PageSettings.Margins.Left = New Telerik.Reporting.Drawing.Unit(1, Telerik.Reporting.Drawing.UnitType.Inch) |
Me.PageSettings.Margins.Right = New Telerik.Reporting.Drawing.Unit(1, Telerik.Reporting.Drawing.UnitType.Inch) |
Me.PageSettings.Margins.Top = New Telerik.Reporting.Drawing.Unit(1, Telerik.Reporting.Drawing.UnitType.Inch) |
Me.PageSettings.PaperKind = System.Drawing.Printing.PaperKind.Letter |
reportParameter1.Name = "pi_InvoiceID" |
reportParameter1.Type = Telerik.Reporting.ReportParameterType.[Integer] |
Me.ReportParameters.Add(reportParameter1) |
Me.Style.BackgroundColor = System.Drawing.Color.White |
styleRule1.Selectors.AddRange(New Telerik.Reporting.Drawing.ISelector() {New Telerik.Reporting.Drawing.StyleSelector("Title")}) |
styleRule1.Style.Color = System.Drawing.Color.Black |
styleRule1.Style.Font.Bold = True |
styleRule1.Style.Font.Italic = False |
styleRule1.Style.Font.Name = "Tahoma" |
styleRule1.Style.Font.Size = New Telerik.Reporting.Drawing.Unit(20, Telerik.Reporting.Drawing.UnitType.Point) |
styleRule1.Style.Font.Strikeout = False |
styleRule1.Style.Font.Underline = False |
styleRule2.Selectors.AddRange(New Telerik.Reporting.Drawing.ISelector() {New Telerik.Reporting.Drawing.StyleSelector("Caption")}) |
styleRule2.Style.Color = System.Drawing.Color.Black |
styleRule2.Style.Font.Name = "Tahoma" |
styleRule2.Style.Font.Size = New Telerik.Reporting.Drawing.Unit(11, Telerik.Reporting.Drawing.UnitType.Point) |
styleRule2.Style.VerticalAlign = Telerik.Reporting.Drawing.VerticalAlign.Middle |
styleRule3.Selectors.AddRange(New Telerik.Reporting.Drawing.ISelector() {New Telerik.Reporting.Drawing.StyleSelector("Data")}) |
styleRule3.Style.Font.Name = "Tahoma" |
styleRule3.Style.Font.Size = New Telerik.Reporting.Drawing.Unit(11, Telerik.Reporting.Drawing.UnitType.Point) |
styleRule3.Style.VerticalAlign = Telerik.Reporting.Drawing.VerticalAlign.Middle |
styleRule4.Selectors.AddRange(New Telerik.Reporting.Drawing.ISelector() {New Telerik.Reporting.Drawing.StyleSelector("PageInfo")}) |
styleRule4.Style.Font.Name = "Tahoma" |
styleRule4.Style.Font.Size = New Telerik.Reporting.Drawing.Unit(11, Telerik.Reporting.Drawing.UnitType.Point) |
styleRule4.Style.VerticalAlign = Telerik.Reporting.Drawing.VerticalAlign.Middle |
Me.StyleSheet.AddRange(New Telerik.Reporting.Drawing.StyleRule() {styleRule1, styleRule2, styleRule3, styleRule4}) |
Me.Width = New Telerik.Reporting.Drawing.Unit(6.5, Telerik.Reporting.Drawing.UnitType.Inch) |
CType(Me, System.ComponentModel.ISupportInitialize).EndInit() |
End Sub |
Function GetReportData(ByVal pi_InvoiceID As Integer) As SqlDataAdapter |
Dim lo_Connection As SqlConnection = New SqlConnection(OutPar.Database.AppConnectionString) |
Dim lo_Command As SqlCommand = New SqlCommand("otgi_InvoiceFetch", lo_Connection) |
lo_Command.CommandType = CommandType.StoredProcedure |
lo_Connection.FireInfoMessageEventOnUserErrors = False |
'Add parameters |
Dim prm_BeginPayDate As SqlParameter = New SqlParameter("@pi_InvoiceID", SqlDbType.Int, 4) |
prm_BeginPayDate.Value = pi_InvoiceID |
lo_Command.Parameters.Add(prm_BeginPayDate) |
Try |
'Open the connection and execute the command |
Me.da_ReportData.SelectCommand = lo_Command |
Catch ex As Exception |
'An error has occurred |
Finally |
'Close connection |
If lo_Connection.State = ConnectionState.Open Then |
lo_Connection.Close() |
End If |
End Try |
'Return data to report |
GetReportData = Me.da_ReportData |
End Function |
Private Sub Invoice_NeedDataSource(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.NeedDataSource |
'Declare objects/variables |
Dim lo_Report As Telerik.Reporting.Processing.Report = CType(sender, Telerik.Reporting.Processing.Report) |
'Set the report data source passing report parameters |
lo_Report.DataSource = GetReportData(Me.ReportParameters("pi_InvoiceID").Value) |
End Sub |
End Class |
private void GenerateReport(List<int> p1, List<int> p2) |
{ |
if(Mode == 1) |
{ |
ToplineMaster report = new ToplineMaster(); |
report.ReportParameters["p1"].Value = p1; |
report.ReportParameters["p2"].Value = p2; |
rv_Rpt_Viewer.Report = report; |
} |
else if (Mode == 2) |
{ |
VerbatimMaster report = new VerbatimMaster(); |
report.ReportParameters["p1"].Value = p1; |
report.ReportParameters["p2"].Value = p2; |
rv_Rpt_Viewer.Report = report; |
} |
} |
private void ToplineMaster_NeedDataSource(object sender, EventArgs e) |
{ |
// given the question ids, load the questions from the database |
// and bind the list to the report |
List<int> p1 = new List<int>(); |
p1 = (List<int>)(sender as Telerik.Reporting.Processing.Report).Parameters["p1"]; |
List<int> p2 = new List<int>(); |
p2 = (List<int>)(sender as Telerik.Reporting.Processing.Report).Parameters["p2"]; |
List<BusinessDataObject> lineItems = new List<BusinessDataObject>(); |
foreach (int id in p1) |
{ |
// generate data from business objects/database |
lineItems.Add(Data); |
} |
(sender as Telerik.Reporting.Processing.Report).DataSource = lineItems; |
} |
Hi
I'm trying to fill a HTMLTextBox on a subreport programatically in order to change appearence depending on the data. I managed to get line breaks working by changing from BR to DIV tags, but I can't get the styles to work. Since I have a lot of subreports I really don't want to include FONT tags into the code and risk creating a maintenance nightmare. Is there a way to set styles programatically?
I've tried adding the HTML using a script that is called from the HTMLTextBox, such as
...
PositionLine = "<DIV Class='PositionCompany>'" & PositionLine & "</DIV>"
Return PositionLine
but this only gives me linebreaks, not the formatting. "'PositionCompany" is a style rule defined in the master report.
How do I call the CSS formatting? (By the way, I can't set it directly since I use several different style rules inside the same HTMLTextBoc depending on data.
Thanks in advance!
Re
Dennis
Public Shared Function Position(ByVal Company As String, ByVal City As String, ByVal Country As String, ByVal CompanyType As String, ByVal Title As String, ByVal DetailLong As String, ByVal DetailShort As String) As String |
Dim PositionLine As String = Company.ToString |
If City <> "" Then |
If PositionLine <> "" Then |
PositionLine += ", " & City.ToString |
Else |
PositionLine = City.ToString |
End If |
End If |
If Country <> "" Then |
If PositionLine <> "" Then |
PositionLine += ", " & Country.ToString |
Else |
PositionLine = Country.ToString |
End If |
End If |
If CompanyType <> "" Then |
If PositionLine <> "" Then |
PositionLine += " (" & CompanyType.ToString & ")" |
Else |
PositionLine = CompanyType.ToString |
End If |
End If |
If PositionLine <> "" Then |
PositionLine = "<DIV Class='PositionCompany'>" & PositionLine & "</DIV>" |
End If |
If Title <> "" Then |
If PositionLine <> "" Then |
PositionLine = PositionLine & "<DIV Class='PositionTitle'>" & Title.ToString & "</DIV>" |
End If |
End If |
If DetailShort <> "" Then |
If PositionLine <> "" Then |
PositionLine = PositionLine & "<DIV Class='PositionDetails'>" & DetailShort.ToString & "</DIV>" |
End If |
End If |
If DetailLong <> "" Then |
If PositionLine <> "" Then |
PositionLine = PositionLine & "<DIV Class='PositionDetails'>" & DetailLong.ToString & "</DIV>" |
End If |
End If |
Return PositionLine |
End Function |