Private Sub PageHeader_BeforePrint(sender As Object, e As Drawing.Printing.PrintEventArgs) Handles PageHeader.BeforePrint
        '-- Set the Internal Parameters values for the report header
        Dim ShowCompanyName As Boolean = True
        Dim sb As New System.Text.StringBuilder

        With Business.AppSettings.Company
            If ShowCompanyName = True Then
                Me.BusinessCompanyName.Value = .CompanyName
            End If

            If Not String.IsNullOrWhiteSpace(.Street) Then
                sb.AppendLine(.Street)
            End If

            sb.AppendFormat("{0} {1} {2}", .City, .State, .Zip)
            Me.BusinessCompanyAddress.Value = sb.ToString


            Dim sbPhoneLine As New System.Text.StringBuilder
            sbPhoneLine.AppendFormat("Phone: {0}  Fax: {1}", CleanFormatPhoneNumber(.Phone), CleanFormatPhoneNumber(.Fax))

            If Not String.IsNullOrWhiteSpace(.CompanyEmail) Then
                sbPhoneLine.Append(String.Format("   [{0}]", .CompanyEmail))
            End If

            If Not String.IsNullOrWhiteSpace(.CompanyWebSite) Then
                sbPhoneLine.Append(String.Format("   [{0}]", .CompanyWebSite))

                '-- Add the company url to the logo
                Me.xrCompanyLogoPictureBox.NavigateUrl = .CompanyWebSite
            End If

            Me.BusinessCompanyPhoneAndFax.Value = sbPhoneLine.ToString
        End With
    End Sub