GF00-ERP-SYS-SIU/GF00-ERP-SYS/06.業務管理系統/車輛/估價單.vb

Option Strict Off
Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle
Imports Microsoft.Office.Interop.Excel.Constants
Imports Microsoft.Office.Interop.Excel.XlBordersIndex
Imports Microsoft.Office.Interop.Excel.XlLineStyle
Imports Microsoft.Office.Interop.Excel.XlBorderWeight
Imports Microsoft.Office.Interop.Excel.XlThemeFont
Imports Microsoft.Office.Interop.Excel.XlThemeColor
Imports Microsoft.Office.Interop.Excel.XlWindowState
Imports Microsoft.Office.Interop.Excel
Imports System.IO
Imports System.Reflection
Imports Microsoft.Office.Interop
Public Class 估價單
    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet : Dim boo As Boolean : Dim 新項次 As String : Dim 新流水 As String : Dim 新流水1 As String
    Dim NUM1, NUM2 As Integer
    Dim xlApp As New Microsoft.Office.Interop.Excel.Application
    Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
    Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
    Dim 位置1 As String
    Dim N2 As Integer : Dim N3 As Integer
    Dim index As Integer
    Private Sub 估價單_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = ICS_ASMS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        報價日期_dtp.CustomFormat = "yyyy/MM/dd"
        報價日期_dtp.Format = DateTimePickerFormat.Custom
        確認新增_bt.Enabled = False : 修改_bt.Enabled = False : boo = False

        選擇供應商_cb.Items.Add("")
        SQL_物料資料庫_供應商_下拉清單()
        While (dr.Read()) : 選擇供應商_cb.Items.Add(dr("公司名")) : End While : conn.Close()
        SQL_讀取公司名稱()
        If dr.Read() Then
            公司_tb.Text = dr("公司名稱")
        End If
        Set_清單1() : Set_清單3()
    End Sub
    Private Sub 類別清單_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 選擇供應商_cb.SelectedIndexChanged
        Set_清單3() : 料號_tb.Text = "" : 品名_tb.Text = "" : 成本_tb.Text = "" : 狀態_tb.Text = ""
    End Sub
    Private Sub Set_清單1()
        控制表_dgv.DataSource = Nothing : ds.Clear()
        控制表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        控制表_dgv.ColumnHeadersHeight = 25
        控制表_dgv.AllowUserToAddRows = False
        控制表_dgv.RowTemplate.Height = 30
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
        SQL_估價單_控制表清單()
        da.Fill(ds) : 控制表_dgv.DataSource = ds.Tables(0) : conn.Close()
        控制表_dgv.Columns(1).FillWeight = 50 : 控制表_dgv.Columns(3).FillWeight = 50
        控制表_dgv.Columns(0).Visible = False : 控制表_dgv.Columns(2).Visible = False
        控制表_dgv.Columns(4).Visible = False : 控制表_dgv.Columns(5).Visible = False : 控制表_dgv.Columns(6).Visible = False
    End Sub
    Private Sub 控制表_dgv_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 控制表_dgv.CellClick
        If boo = False Then
            If e.RowIndex = -1 Then : Else
                確認新增_bt.Enabled = False : 修改_bt.Enabled = True
                單號_tb.Text = 控制表_dgv(0, e.RowIndex).Value.ToString : 車主名稱_tb.Text = 控制表_dgv(1, e.RowIndex).Value.ToString
                電話_tb.Text = 控制表_dgv(2, e.RowIndex).Value.ToString : 車號_tb.Text = 控制表_dgv(3, e.RowIndex).Value.ToString
                報價日期_dtp.Text = 控制表_dgv(4, e.RowIndex).Value.ToString : 備註_tb.Text = 控制表_dgv(5, e.RowIndex).Value.ToString
                里程_tb.Text = 控制表_dgv(6, e.RowIndex).Value.ToString
                Set_清單2()
            End If
        End If
    End Sub
    Private Sub Set_清單2()
        明細表_dgv.DataSource = Nothing : ds1.Clear()
        明細表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        明細表_dgv.ColumnHeadersHeight = 25
        明細表_dgv.AllowUserToAddRows = False
        明細表_dgv.RowTemplate.Height = 35
        明細表_dgv.EditMode = DataGridViewEditMode.EditOnEnter

        SQL_估價單_查詢明細表() : da.Fill(ds1) : 明細表_dgv.DataSource = ds1.Tables(0) : conn.Close()
        Dim newFont As New System.Drawing.Font("微軟正黑體", 9)
        明細表_dgv.Columns("總售價").ReadOnly = True : 明細表_dgv.Columns("項次").ReadOnly = True : 明細表_dgv.Columns("總成本").ReadOnly = True
        明細表_dgv.Columns("利潤").ReadOnly = True
        明細表_dgv.Columns(0).Visible = False : 明細表_dgv.Columns(1).FillWeight = 60 : 明細表_dgv.Columns(2).FillWeight = 400 : 明細表_dgv.Columns(3).FillWeight = 60
        明細表_dgv.Columns(5).FillWeight = 100 : 明細表_dgv.Columns(7).Visible = 100
        明細表_dgv.Columns(9).Visible = 300 : 明細表_dgv.Columns(10).Visible = False : 明細表_dgv.Columns(11).Visible = False : 明細表_dgv.Columns(12).Visible = False

        明細表_dgv.RowsDefaultCellStyle.Font = newFont
        If 隱藏成本_cb.Checked = False Then
            明細表_dgv.Columns(4).Visible = False
            明細表_dgv.Columns(6).Visible = False
            明細表_dgv.Columns(8).Visible = False
        Else
            明細表_dgv.Columns(4).FillWeight = 100 : 明細表_dgv.Columns(6).FillWeight = 100 : 明細表_dgv.Columns(8).Visible = 100
            明細表_dgv.Columns(6).DefaultCellStyle.Format = "#,##0.##"
            明細表_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.##"
            明細表_dgv.Columns(8).DefaultCellStyle.Format = "#,##0.##"
            明細表_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            明細表_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
            明細表_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            明細表_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
            明細表_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            明細表_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        End If
        明細表_dgv.Columns(5).DefaultCellStyle.Format = "#,##0.##" : 明細表_dgv.Columns(7).DefaultCellStyle.Format = "#,##0.##"
        明細表_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        明細表_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        明細表_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        明細表_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        明細表_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        明細表_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        明細表_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        明細表_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

        Dim NUM1 As Integer = 0
        Dim NUM2 As Integer = 0
        For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
            明細表_dgv.Rows(i).Cells("總售價").Value = 明細表_dgv.Rows(i).Cells("數量").Value * 明細表_dgv.Rows(i).Cells("售價").Value
            明細表_dgv.Rows(i).Cells("總成本").Value = 明細表_dgv.Rows(i).Cells("數量").Value * 明細表_dgv.Rows(i).Cells("成本").Value
            明細表_dgv.Rows(i).Cells("利潤").Value = (明細表_dgv.Rows(i).Cells("數量").Value * 明細表_dgv.Rows(i).Cells("售價").Value) - (明細表_dgv.Rows(i).Cells("數量").Value * 明細表_dgv.Rows(i).Cells("成本").Value)
            If 明細表_dgv.Rows(i).Cells("狀態").Value <> "承修項目" Then
                NUM1 += 明細表_dgv.Rows(i).Cells("總售價").Value
            Else
                NUM2 += 明細表_dgv.Rows(i).Cells("總售價").Value
            End If
        Next
        零件_tb.Text = Strings.Format(Val(NUM1), "#,##0")
        工資_tb.Text = Strings.Format(Val(NUM2), "#,##0")
        總計_tb.Text = Strings.Format(Val(NUM1 + NUM2), "#,##0")

        If 是否收稅_cb.Checked = True Then
            稅金_tb.Text = Strings.Format(Val((NUM1 + NUM2) * 0.05), "#,##0")
            應收合計_tb.Text = Strings.Format(Val(NUM1 + NUM2 + ((NUM1 + NUM2) * 0.05)), "#,##0")
            總計_tb.Text = Strings.Format(Val(NUM1 + NUM2 + ((NUM1 + NUM2) * 0.05)), "#,##0")
        Else
            稅金_tb.Text = "0"
            應收合計_tb.Text = Strings.Format(Val(NUM1 + NUM2), "#,##0")
        End If

    End Sub
    Private Sub 是否收稅_cb_CheckedChanged(sender As Object, e As EventArgs) Handles 是否收稅_cb.CheckedChanged
        Dim NUM1, NUM2 As Integer

        If 總計_tb.Text <> "" Then
            NUM1 = 總計_tb.Text
            NUM2 = NUM1 * 0.05
            If 是否收稅_cb.Checked = True Then
                稅金_tb.Text = Strings.Format(Val(NUM2), "#,##0")
                應收合計_tb.Text = Strings.Format(Val(NUM1 + NUM2), "#,##0")
                總計_tb.Text = Strings.Format(Val(NUM1 + NUM2), "#,##0")
            Else
                稅金_tb.Text = "0"
                應收合計_tb.Text = Strings.Format(Val(NUM1), "#,##0")
            End If
        End If

    End Sub
    Private Sub 明細表_dgv_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 明細表_dgv.CellEnter
        Dim NUM1 As Integer = 0
        Dim NUM2 As Integer = 0
        index = e.RowIndex
        If e.RowIndex = -1 Then : Else
            項次_tb.Text = 明細表_dgv(1, e.RowIndex).Value.ToString

            For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
                If 明細表_dgv.Rows(i).Cells("數量").Value.ToString <> "" And 明細表_dgv.Rows(i).Cells("售價").Value.ToString <> "" And 明細表_dgv.Rows(i).Cells("成本").Value.ToString <> "" Then
                    明細表_dgv.Rows(i).Cells("總售價").Value = 明細表_dgv.Rows(i).Cells("數量").Value * 明細表_dgv.Rows(i).Cells("售價").Value
                    明細表_dgv.Rows(i).Cells("總成本").Value = 明細表_dgv.Rows(i).Cells("數量").Value * 明細表_dgv.Rows(i).Cells("成本").Value
                    明細表_dgv.Rows(i).Cells("利潤").Value = (明細表_dgv.Rows(i).Cells("數量").Value * 明細表_dgv.Rows(i).Cells("售價").Value) - (明細表_dgv.Rows(i).Cells("數量").Value * 明細表_dgv.Rows(i).Cells("成本").Value)
                End If
                If 明細表_dgv.Rows(i).Cells("狀態").Value <> "承修項目" Then
                    NUM1 += 明細表_dgv.Rows(i).Cells("總售價").Value
                Else
                    NUM2 += 明細表_dgv.Rows(i).Cells("總售價").Value
                End If
            Next
            零件_tb.Text = Strings.Format(Val(NUM1), "#,##0")
            工資_tb.Text = Strings.Format(Val(NUM2), "#,##0")
            總計_tb.Text = Strings.Format(Val(NUM1 + NUM2), "#,##0")
            If 是否收稅_cb.Checked = True Then
                稅金_tb.Text = Strings.Format(Val((NUM1 + NUM2) * 0.05), "#,##0")
                應收合計_tb.Text = Strings.Format(Val(NUM1 + NUM2 + ((NUM1 + NUM2) * 0.05)), "#,##0")
                總計_tb.Text = Strings.Format(Val(NUM1 + NUM2 + ((NUM1 + NUM2) * 0.05)), "#,##0")
            Else
                稅金_tb.Text = "0"
                應收合計_tb.Text = Strings.Format(Val(NUM1 + NUM2), "#,##0")
            End If
        End If
    End Sub
    Private Sub Set_清單3()

        物料_dgv.DataSource = Nothing : ds2.Clear()
        物料_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        物料_dgv.ColumnHeadersHeight = 25
        物料_dgv.AllowUserToAddRows = False
        物料_dgv.RowTemplate.Height = 30
        物料_dgv.DefaultCellStyle.Font = SystemFonts.DefaultFont
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If

        SQL_車輛銷售管理_物料清單(選擇供應商_cb.Text)
        da.Fill(ds2) : 物料_dgv.DataSource = ds2.Tables(0) : conn.Close()
        Dim newFont As New System.Drawing.Font("微軟正黑體", 9) ' 創建一個新字體，Arial 12pt
        物料_dgv.RowsDefaultCellStyle.Font = newFont
        物料_dgv.Columns(1).FillWeight = 55 : 物料_dgv.Columns(3).FillWeight = 30
        物料_dgv.Columns(0).Visible = False : 物料_dgv.Columns(2).FillWeight = 15 : 物料_dgv.Columns(4).Visible = False
        If 顯示成本_cb.Checked = True Then
            物料_dgv.Columns(5).FillWeight = 30
            物料_dgv.Columns(5).DefaultCellStyle.Format = "#,##0.##"
            物料_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            物料_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Else
            物料_dgv.Columns(5).Visible = False
        End If

    End Sub
    Private Sub 物料_dgv_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 物料_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            料號_tb.Text = 物料_dgv(0, e.RowIndex).Value.ToString
            品名_tb.Text = 物料_dgv(1, e.RowIndex).Value.ToString
            成本_tb.Text = 物料_dgv(5, e.RowIndex).Value.ToString
            狀態_tb.Text = 物料_dgv(4, e.RowIndex).Value.ToString
        End If

    End Sub


    Private Sub 新增_bt_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
        新增_bt.Enabled = False : 確認新增_bt.Enabled = True : 修改_bt.Enabled = False
        Set_日期格式轉換() : Dim NUM1 As Integer
        For i As Integer = 1 To 999
            NUM1 = 0 + i
            If NUM1 < 10 Then : 單號_tb.Text = "GD-" & DTP1 & "-00" & NUM1
            ElseIf NUM1 > 9 And NUM1 < 100 Then : 單號_tb.Text = "GD-" & DTP1 & "-0" & NUM1
            ElseIf NUM1 > 99 Then : 單號_tb.Text = "GD-" & DTP1 & "-" & NUM1 : End If
            PA = 單號_tb.Text : SQL_估價單_單號查詢()
            If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
        Next
        報價日期_dtp.Value = Date.Today
        車主名稱_tb.Text = "" : 車號_tb.Text = "" : 電話_tb.Text = "" : 備註_tb.Text = "" : 項次_tb.Text = "" : 里程_tb.Text = ""
        工資_tb.Text = "0" : 零件_tb.Text = "0" : 總計_tb.Text = "0" : 稅金_tb.Text = "0" : 應收合計_tb.Text = "0"
        SQL_估價單_控制表新增() : boo = True : Set_清單2()

    End Sub


    Private Sub Set_日期格式轉換()
        Dim selectedDate As DateTime = Date.Today
        DTP4 = Strings.Format(selectedDate, "yyyy/MM/dd") : DTP1 = Strings.Format(selectedDate, "yyyyMMdd")
    End Sub

    Private Sub 確認新增_bt_Click(sender As Object, e As EventArgs) Handles 確認新增_bt.Click
        If 車主名稱_tb.Text = "" Or 車號_tb.Text = "" Then
            MsgBox("車主名稱及車號未輸入完成!!")
        Else
            新增_bt.Enabled = True : 確認新增_bt.Enabled = False : 修改_bt.Enabled = True : boo = False
            SQL_估價單_控制表修改() : conn.Close() : MsgBox("儲存成功!!") : Set_清單1()
        End If

    End Sub

    Private Sub 修改_bt_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
        If 單號_tb.Text = "" Then
            MsgBox("未選擇單號!!")
        Else
            SQL_估價單_控制表修改() : conn.Close() : MsgBox("儲存成功!!") : Set_清單1()
        End If

    End Sub

    Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
        If 單號_tb.Text = "" Then
            MsgBox("未選擇單號!!")
        Else
            新增_bt.Enabled = True : 確認新增_bt.Enabled = False : 修改_bt.Enabled = False : boo = False
            SQL_估價單_控制表刪除() : SQL_估價單_明細表刪除() : conn.Close() : MsgBox("刪除成功")

            單號_tb.Text = "" : 項次_tb.Text = ""
            車主名稱_tb.Text = "" : 車號_tb.Text = "" : 電話_tb.Text = "" : 備註_tb.Text = "" : 里程_tb.Text = ""
            工資_tb.Text = "0" : 零件_tb.Text = "0" : 總計_tb.Text = "0" : 稅金_tb.Text = "0" : 應收合計_tb.Text = "0"
            Set_清單1() : Set_清單2()
        End If
    End Sub

    Private Sub 刪除選中的一筆資料_bt_Click(sender As Object, e As EventArgs) Handles 刪除選中的一筆資料1_bt.Click
        If 項次_tb.Text = "" Then
            MsgBox("未選擇需要刪除的資料。")
        Else
            For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
                Dim 項次 As String = 明細表_dgv.Rows(i).Cells("項次").Value.ToString
                Dim 項 As String = 明細表_dgv.Rows(i).Cells("各項支出名稱").Value.ToString
                Dim 數量 As String = 明細表_dgv.Rows(i).Cells("數量").Value.ToString
                Dim 金額 As String = 明細表_dgv.Rows(i).Cells("售價").Value.ToString
                Dim 備註 As String = 明細表_dgv.Rows(i).Cells("備註").Value.ToString
                SQL_估價單_修改明細表(項次, 項, 單號_tb.Text, 數量, 金額, 備註) : conn.Close()
            Next
            SQL_估價單_刪除明細表項次() : SQL_估價單_明細表項次更新() : conn.Close()
            Set_清單2() : 項次_tb.Text = "" : MsgBox("刪除成功。")
        End If
    End Sub

    Private Sub 申請_bt_Click(sender As Object, e As EventArgs) Handles 申請1_bt.Click
        For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
            Dim 項次 As String = 明細表_dgv.Rows(i).Cells("項次").Value.ToString
            Dim 項 As String = 明細表_dgv.Rows(i).Cells("各項支出名稱").Value.ToString
            Dim 數量 As String = 明細表_dgv.Rows(i).Cells("數量").Value.ToString
            Dim 金額 As String = 明細表_dgv.Rows(i).Cells("售價").Value.ToString
            Dim 備註 As String = 明細表_dgv.Rows(i).Cells("備註").Value.ToString
            SQL_估價單_修改明細表(項次, 項, 單號_tb.Text, 數量, 金額, 備註) : conn.Close()
        Next : Set_清單2() : MsgBox("儲存成功。")
    End Sub

    Private Sub 查詢_bt_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click
        CHB("請輸入要查詢的單號資料。") : PA56 = 訊息回應 : Set_清單1() : PA56 = ""
    End Sub
    Private Sub 收支單中新增一筆資料1_bt_Click(sender As Object, e As EventArgs) Handles 收支單中新增一筆資料1_bt.Click
        If 單號_tb.Text = "" Then
            MsgBox("未選擇單號!!")
        Else
            If 明細表_dgv.Rows.Count > 0 Then
                For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
                    Dim 項次 As String = 明細表_dgv.Rows(i).Cells("項次").Value.ToString
                    Dim 項 As String = 明細表_dgv.Rows(i).Cells("各項支出名稱").Value.ToString
                    Dim 數量 As String = 明細表_dgv.Rows(i).Cells("數量").Value.ToString
                    Dim 金額 As String = 明細表_dgv.Rows(i).Cells("售價").Value.ToString
                    Dim 備註 As String = 明細表_dgv.Rows(i).Cells("備註").Value.ToString
                    SQL_估價單_修改明細表(項次, 項, 單號_tb.Text, 數量, 金額, 備註) : conn.Close()
                Next
            End If
            If 料號_tb.Text = "" Or 品名_tb.Text = "" Or 成本_tb.Text = "" Then
                MsgBox("未選擇物料。")
            Else
                SQL_估價單_查詢最後一筆單號項次()
                If dr.Read() Then
                    新項次 = dr("項次")
                    NUM1 = Double.Parse(新項次) + 1
                Else
                    NUM1 = 1
                End If : conn.Close()
                SQL_估價單_新增明細表(NUM1.ToString(), 品名_tb.Text, 單號_tb.Text, 料號_tb.Text, 成本_tb.Text, 狀態_tb.Text) : conn.Close()
                Set_清單2()
                MsgBox("明細表新增成功!!")
            End If
        End If
    End Sub
    Private Sub 收支單中新增一筆空白資料_bt_Click(sender As Object, e As EventArgs) Handles 收支單中新增一筆空白資料1_bt.Click
        If 單號_tb.Text = "" Then
            MsgBox("未選擇單號!!")
        Else
            If 明細表_dgv.Rows.Count > 0 Then
                For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
                    Dim 項次 As String = 明細表_dgv.Rows(i).Cells("項次").Value.ToString
                    Dim 項 As String = 明細表_dgv.Rows(i).Cells("各項支出名稱").Value.ToString
                    Dim 數量 As String = 明細表_dgv.Rows(i).Cells("數量").Value.ToString
                    Dim 金額 As String = 明細表_dgv.Rows(i).Cells("售價").Value.ToString
                    Dim 備註 As String = 明細表_dgv.Rows(i).Cells("備註").Value.ToString
                    SQL_估價單_修改明細表(項次, 項, 單號_tb.Text, 數量, 金額, 備註) : conn.Close()
                Next
            End If

            SQL_估價單_查詢最後一筆單號項次()
            If dr.Read() Then
                新項次 = dr("項次")
                NUM1 = Double.Parse(新項次) + 1
            Else
                NUM1 = 1
            End If : conn.Close()
            SQL_估價單_新增明細表(NUM1.ToString(), "", 單號_tb.Text, "", "", "免") : conn.Close()
            Set_清單2()
            MsgBox("明細表新增成功!!")
        End If
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        連動模組.SetCallingPage("估價單") : 連動模組.ShowDialog() : 連動模組.BringToFront()
    End Sub

    Public Sub ReceiveDataFromPageB(ByVal data As String, ByVal data1 As String, ByVal data3 As String, ByVal data4 As String)
        ' 在這裡處理從頁面B接收到的數據，將其設定到頁面A的TextBox中
        車主名稱_tb.Text = data
        電話_tb.Text = data1
        車號_tb.Text = data3
        備註_tb.Text = data4
    End Sub

    Private Sub 匯入_bt_Click(sender As Object, e As EventArgs) Handles 匯入_bt.Click
        If 單號_tb.Text = "" Then
            MsgBox("未選擇單號!!")
        Else
            If 車主名稱_tb.Text <> "" And 車號_tb.Text <> "" Then
                SQL_估價單_查詢客戶資料(車主名稱_tb.Text, 車號_tb.Text)
                If dr.Read() Then
                    SQL_估價單_修改客戶資料(車主名稱_tb.Text, 車號_tb.Text, 電話_tb.Text, 備註_tb.Text)
                Else
                    SQL_客戶資料表_最後一筆資料()
                    If dr.Read() Then : 新流水 = dr("流水號").ToString : Else : 新流水 = "CL00000" : End If
                    conn.Close()
                    Dim NUM1 As Integer
                    NUM1 = Double.Parse(Strings.Right(新流水, 5)) + 1
                    If NUM1 < 10 Then : 新流水 = "CL" & "0000" & NUM1
                    ElseIf NUM1 > 9 And NUM1 < 100 Then : 新流水 = "CL" & "000" & NUM1
                    ElseIf NUM1 > 99 And NUM1 < 1000 Then : 新流水 = "CL" & "00" & NUM1
                    ElseIf NUM1 > 999 And NUM1 < 10000 Then : 新流水 = "CL" & "0" & NUM1
                    ElseIf NUM1 > 9999 And NUM1 < 100000 Then : 新流水 = "CL" & NUM1 : End If
                    SQL_估價單_新增客戶資料(新流水, 車主名稱_tb.Text, 車號_tb.Text, 電話_tb.Text, 備註_tb.Text) : conn.Close()
                End If

                Set_日期格式轉換()
                For i As Integer = 1 To 999
                    NUM1 = 0 + i
                    If NUM1 < 10 Then : 單號_tb.Text = "CR-" & DTP1 & "-00" & NUM1
                    ElseIf NUM1 > 9 And NUM1 < 100 Then : 單號_tb.Text = "CR-" & DTP1 & "-0" & NUM1
                    ElseIf NUM1 > 99 Then : 單號_tb.Text = "CR-" & DTP1 & "-" & NUM1 : End If
                    PA = 單號_tb.Text : SQL_車輛銷售管理_單號查詢()
                    If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
                Next

                SQL_車輛銷售管理_人員明細(車主名稱_tb.Text, 車號_tb.Text)
                If dr.Read() Then
                    車型_tb.Text = dr("廠牌")
                    年_tb.Text = dr("年份型式")
                    引擎號碼1_tb.Text = dr("引擎號碼")
                    輪胎尺寸_tb.Text = dr("買入顏色")
                Else
                    車型_tb.Text = ""
                    年_tb.Text = ""
                    引擎號碼1_tb.Text = ""
                    輪胎尺寸_tb.Text = ""
                End If : conn.Close()

                SQL_估價單_車輛銷售控制表新增(PA, "保養維修", 車主名稱_tb.Text, 車號_tb.Text, DTP4, 電話_tb.Text, 是否收稅_cb.Checked, 應收合計_tb.Text,
                                                車型_tb.Text, 年_tb.Text, 引擎號碼1_tb.Text, 輪胎尺寸_tb.Text) : conn.Close()
                For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
                    Set_流水號()
                    Dim 項次 As String = 明細表_dgv.Rows(i).Cells("項次").Value.ToString
                    Dim 項 As String = 明細表_dgv.Rows(i).Cells("各項支出名稱").Value.ToString
                    Dim 數量 As String = 明細表_dgv.Rows(i).Cells("數量").Value.ToString
                    Dim 金額 As String = 明細表_dgv.Rows(i).Cells("售價").Value.ToString
                    Dim 備註 As String = 明細表_dgv.Rows(i).Cells("備註").Value.ToString
                    Dim 料號 As String = 明細表_dgv.Rows(i).Cells("料號").Value.ToString
                    Dim 成本 As String = 明細表_dgv.Rows(i).Cells("成本").Value.ToString
                    Dim 狀態 As String = 明細表_dgv.Rows(i).Cells("狀態").Value.ToString
                    SQL_估價單_車輛銷售明細表新增(新流水1, 項, 數量, 金額, 備註, PA, 料號, 項次, 成本, 狀態) : conn.Close()
                Next
                MsgBox("車輛銷售管理匯入成功!!")
            Else
                MsgBox("車主和車號不能為空!!")
            End If

        End If


    End Sub
    Private Sub Set_流水號()
        conn.Close() : dr.Close()
        Dim NUM1 As Integer
        For NUM1 = 0 To 999
            Dim d As String : Dim f As String
            Dim selectedDate As DateTime = Date.Today
            Dim y As String = selectedDate.Year.ToString().Substring(2, 2)
            If selectedDate.Month < 10 Then : d = "0" & selectedDate.Month.ToString()
            Else : d = selectedDate.Month.ToString()
            End If
            If selectedDate.Day < 10 Then : f = "0" & selectedDate.Day.ToString()
            Else : f = selectedDate.Day.ToString()
            End If
            If NUM1 < 10 Then : 新流水1 = "C" & y & d & f & "00" & NUM1
            ElseIf NUM1 > 9 And NUM1 < 100 Then : 新流水1 = "C" & y & d & f & "0" & NUM1
            ElseIf NUM1 > 99 Then : 新流水1 = "C" & y & d & f & NUM1
            End If : PA19 = 新流水1
            SQL_車輛銷售管理_查詢明細表流水號()
            If dr.Read() Then : conn.Close() : Else : conn.Close() : NUM1 = 999 : End If
        Next
    End Sub
    Private Sub 顯示成本_cb_CheckedChanged(sender As Object, e As EventArgs) Handles 顯示成本_cb.CheckedChanged
        Set_清單3()
    End Sub
    Private Sub 隱藏成本_cb_CheckedChanged(sender As Object, e As EventArgs) Handles 隱藏成本_cb.CheckedChanged
        Set_清單2()
    End Sub
    Private Sub 查詢物_bt_Click(sender As Object, e As EventArgs) Handles 查詢物_bt.Click
        CHB("請輸入要查詢的關鍵字。") : PA56 = 訊息回應 : Set_清單3() : PA56 = ""
    End Sub
    Private Sub 查詢_bt_MouseEnter(sender As Object, e As EventArgs) Handles 查詢_bt.MouseEnter
        ToolTip1.SetToolTip(Me.查詢_bt, "查詢單號")
    End Sub
    Private Sub 查詢物_bt_MouseEnter(sender As Object, e As EventArgs) Handles 查詢物_bt.MouseEnter
        ToolTip1.SetToolTip(Me.查詢物_bt, "查詢物料")
    End Sub
    Private Sub 新增_bt_MouseEnter(sender As Object, e As EventArgs) Handles 新增_bt.MouseEnter
        ToolTip1.SetToolTip(Me.新增_bt, "新增準備")
    End Sub
    Private Sub 確認新增_bt_MouseEnter(sender As Object, e As EventArgs) Handles 確認新增_bt.MouseEnter
        ToolTip1.SetToolTip(Me.確認新增_bt, "確認新增")
    End Sub
    Private Sub 修改_bt_MouseEnter(sender As Object, e As EventArgs) Handles 修改_bt.MouseEnter
        ToolTip1.SetToolTip(Me.修改_bt, "修改存檔")
    End Sub
    Private Sub 刪除_bt_MouseEnter(sender As Object, e As EventArgs) Handles 刪除_bt.MouseEnter
        ToolTip1.SetToolTip(Me.刪除_bt, "刪除")
    End Sub
    Private Sub 申請_bt_MouseEnter(sender As Object, e As EventArgs) Handles 申請1_bt.MouseEnter
        ToolTip1.SetToolTip(Me.申請1_bt, "明細表存檔")
    End Sub
    Private Sub 匯出EXCEL_bt_MouseEnter(sender As Object, e As EventArgs) Handles 匯出EXCEL_bt.MouseEnter
        ToolTip1.SetToolTip(Me.匯出EXCEL_bt, "匯出PDF")
    End Sub
    Private Sub 收支單中新增一筆資料_bt_MouseEnter(sender As Object, e As EventArgs) Handles 收支單中新增一筆資料1_bt.MouseEnter
        ToolTip1.SetToolTip(Me.收支單中新增一筆資料1_bt, "明細表新增帶料號的資料")
    End Sub
    Private Sub 收支單中新增一筆空白資料_bt_MouseEnter(sender As Object, e As EventArgs) Handles 收支單中新增一筆空白資料1_bt.MouseEnter
        ToolTip1.SetToolTip(Me.收支單中新增一筆空白資料1_bt, "明細表新增空白的資料")
    End Sub
    Private Sub 刪除選中的一筆資料_bt_MouseEnter(sender As Object, e As EventArgs) Handles 刪除選中的一筆資料1_bt.MouseEnter
        ToolTip1.SetToolTip(Me.刪除選中的一筆資料1_bt, "刪除選中的一筆資料")
    End Sub

    Private Sub 匯出EXCEL_bt_Click(sender As Object, e As EventArgs) Handles 匯出EXCEL_bt.Click
        xlApp = CType(CreateObject("Excel.Application"), Microsoft.Office.Interop.Excel.Application)
        xlApp.Visible = True
        xlApp.DisplayAlerts = True
        xlApp.Application.WindowState = xlMaximized
        xlBook = xlApp.Workbooks.Add
        xlSheet = NewMethod(xlBook)
        xlBook.Activate()
        xlSheet.Activate()
        xlSheet.Cells(1, 1) = 公司_tb.Text
        xlSheet.Cells(2, 1) = "估    價    單"
        xlSheet.Cells(3, 1) = "車主名稱 " : xlSheet.Cells(3, 2) = 車主名稱_tb.Text : xlSheet.Cells(3, 3) = "工資 " : xlSheet.Cells(3, 4) = 工資_tb.Text
        xlSheet.Cells(3, 5) = "零件 " : xlSheet.Cells(3, 6) = 零件_tb.Text : xlSheet.Cells(4, 1) = "車號 " : xlSheet.Cells(4, 2) = 車號_tb.Text
        xlSheet.Cells(4, 3) = "稅金5% " : xlSheet.Cells(4, 4) = 稅金_tb.Text : xlSheet.Cells(4, 5) = "總計 " : xlSheet.Cells(4, 6) = 總計_tb.Text
        xlSheet.Cells(5, 1) = "估價日期 " : xlSheet.Cells(5, 2) = 報價日期_dtp.Text : xlSheet.Cells(5, 5) = "應收合計 " : xlSheet.Cells(5, 6) = 應收合計_tb.Text
        xlSheet.Cells(5, 3) = "進廠里程 " : xlSheet.Cells(5, 4) = 里程_tb.Text

        xlSheet.Cells(6, 1) = "項次" : xlSheet.Cells(6, 2) = "各項支出名稱" : xlSheet.Cells(6, 3) = "數量"
        xlSheet.Cells(6, 4) = "售價" : xlSheet.Cells(6, 5) = "總售價" : xlSheet.Cells(6, 6) = "備註"

        Dim 總計 As Double = 0
        For i As Integer = 0 To 明細表_dgv.Rows.Count - 1

            xlSheet.Cells(i + 7, 1) = 明細表_dgv.Rows(i).Cells("項次").Value
            xlSheet.Cells(i + 7, 2) = 明細表_dgv.Rows(i).Cells("各項支出名稱").Value
            Dim 數量 As Double = Convert.ToDouble(明細表_dgv.Rows(i).Cells("數量").Value)
            Dim 售價 As Double = Convert.ToDouble(明細表_dgv.Rows(i).Cells("售價").Value)
            Dim 總售價 As Double = Convert.ToDouble(明細表_dgv.Rows(i).Cells("總售價").Value)
            總計 = 總計 + 總售價
            xlSheet.Cells(i + 7, 3) = 數量.ToString("#,##0")
            xlSheet.Cells(i + 7, 4) = 售價.ToString("#,##0")
            xlSheet.Cells(i + 7, 5) = 總售價.ToString("#,##0")
            xlSheet.Cells(i + 7, 6) = 明細表_dgv.Rows(i).Cells("備註").Value
            N2 = i + 8
        Next i
        xlSheet.Cells(N2, 4) = "總計" : xlSheet.Cells(N2, 5) = 總計.ToString("#,##0")
        xlSheet.Cells(N2 + 1, 1) = "車主須知"
        xlSheet.Cells(N2 + 2, 1) = "1.本估價單有效期限3個月，逾期需視材料物料波動情況，重新報價。"
        xlSheet.Cells(N2 + 3, 1) = "2.如蒙惠顧，請先預付訂金5成。"
        xlSheet.Cells(N2 + 4, 1) = "3.如在本估價單內未列項目，如需維修，另加計費。"
        BB(xlApp, xlSheet)

        xlApp.Sheets(2).Delete : xlSheet.PageSetup.PrintArea = ""
        '----轉成PDF-----
        Dim pdfFolderPath As String = Path.Combine(System.Windows.Forms.Application.StartupPath, "pdf")
        If Not Directory.Exists(pdfFolderPath) Then
            Directory.CreateDirectory(pdfFolderPath)
        End If
        Dim pdfFilePath As String = Path.Combine(pdfFolderPath, 單號_tb.Text & "-估價單.pdf")
        xlBook.Sheets(1).ExportAsFixedFormat(XlFixedFormatType.xlTypePDF, pdfFilePath, XlFixedFormatQuality.xlQualityStandard, True)
        '--------
        xlApp.Cells.Select() : xlApp.Application.WindowState = xlMinimized : xlBook.Close(False)
        Runtime.InteropServices.Marshal.ReleaseComObject(xlSheet)
        Runtime.InteropServices.Marshal.ReleaseComObject(xlBook)
        Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)
        xlApp.Quit() : xlSheet = Nothing : xlBook = Nothing : xlApp = Nothing : GC.Collect()

        Try
            Dim chromePath As String = "C:\Program Files\Google\Chrome\Application\chrome.exe"
            If System.IO.File.Exists(chromePath) Then
                Dim process As New Process()
                process.StartInfo.FileName = "chrome"
                process.StartInfo.Arguments = """" & pdfFilePath & """"
                process.Start()
            Else : Dim edgePath As String = "C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe"
                If System.IO.File.Exists(edgePath) Then
                    Dim process As New Process()
                    process.StartInfo.FileName = "msedge"
                    process.StartInfo.Arguments = """" & pdfFilePath & """"
                    process.Start()
                Else
                    Process.Start(pdfFilePath)
                End If
            End If
        Catch ex As Exception
            MsgBox("以存檔至桌面 。" & vbCrLf & "檔案名稱：" & 單號_tb.Text & "-估價單.pdf")
        End Try
    End Sub
    Private Sub BB(ByVal myExcel As Microsoft.Office.Interop.Excel.Application, ByVal xlSheet As Microsoft.Office.Interop.Excel.Worksheet)
        xlSheet.Cells.Select()
        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 12 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False
            .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

        xlSheet.Range("A3:F" & N2).Select()
        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone
        myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With myExcel.Selection.Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With myExcel.Selection.Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With myExcel.Selection.Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With myExcel.Selection.Borders(xlInsideVertical)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With myExcel.Selection.Borders(xlInsideHorizontal)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With

        xlSheet.Range("A1:F1").Select()

        With myExcel.Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        myExcel.Selection.Merge
        xlSheet.Range("A2:F2").Select()

        With myExcel.Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        myExcel.Selection.Merge

        xlSheet.Range("A3:F" & N2).Select()
        With myExcel.Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With



        xlSheet.Range("A" & N2 + 1 & ":F" & N2 + 1).Select()

        With myExcel.Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        myExcel.Selection.Merge

        xlSheet.Range("A" & N2 + 2 & ":F" & N2 + 2).Select()

        With myExcel.Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        myExcel.Selection.Merge

        xlSheet.Range("A" & N2 + 3 & ":F" & N2 + 3).Select()

        With myExcel.Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        myExcel.Selection.Merge

        xlSheet.Range("A" & N2 + 4 & ":F" & N2 + 4).Select()

        With myExcel.Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        myExcel.Selection.Merge

        xlSheet.Columns("A:F").AutoFit()

        AdjustColumnWidth(xlSheet, "A", 10)
        AdjustColumnWidth(xlSheet, "C", 10)
        AdjustColumnWidth(xlSheet, "D", 10)
        AdjustColumnWidth(xlSheet, "E", 10)

        If xlSheet.Columns("B:B").ColumnWidth > 30 Then
            xlSheet.Columns("B:B").ColumnWidth = 30
        ElseIf xlSheet.Columns("B:B").ColumnWidth < 10 Then
            xlSheet.Columns("B:B").ColumnWidth = 10
        End If
        If xlSheet.Columns("F:F").ColumnWidth > 20 Then
            xlSheet.Columns("F:F").ColumnWidth = 20
        ElseIf xlSheet.Columns("F:F").ColumnWidth < 10 Then
            xlSheet.Columns("F:F").ColumnWidth = 10
        End If

        xlSheet.Range("B:B,F:F").Select()
        With myExcel.Selection
            .VerticalAlignment = xlCenter
            .WrapText = True
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
        End With

        xlSheet.Range("A3:F5").Select()

        With myExcel.Selection.Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorAccent4
            .TintAndShade = 0.799981688894314
            .PatternTintAndShade = 0
        End With
        xlSheet.Range("A6:F6").Select()

        With myExcel.Selection.Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorAccent1
            .TintAndShade = 0.799981688894314
            .PatternTintAndShade = 0
        End With

        For i As Integer = 1 To N2 + 4
            xlSheet.Rows(i).AutoFit
            xlSheet.Rows(i).RowHeight = xlSheet.Rows(i).RowHeight + 5
        Next

        myExcel.Application.PrintCommunication = False
        With myExcel.ActiveSheet.PageSetup
            .PrintTitleRows = ""
            .PrintTitleColumns = ""
        End With
        myExcel.Application.PrintCommunication = True
        myExcel.ActiveSheet.PageSetup.PrintArea = ""
        myExcel.Application.PrintCommunication = False
        With myExcel.ActiveSheet.PageSetup
            .LeftHeader = ""
            .CenterHeader = ""
            .RightHeader = ""
            .LeftFooter = ""
            .CenterFooter = ""
            .RightFooter = ""
            .LeftMargin = myExcel.Application.InchesToPoints(0.25)
            .RightMargin = myExcel.Application.InchesToPoints(0.25)
            .TopMargin = myExcel.Application.InchesToPoints(0.75)
            .BottomMargin = myExcel.Application.InchesToPoints(0.75)
            .HeaderMargin = myExcel.Application.InchesToPoints(0.3)
            .FooterMargin = myExcel.Application.InchesToPoints(0.3)
            .PrintHeadings = False
            .PrintGridlines = False
            .CenterHorizontally = True
            .CenterVertically = False
            .Draft = False
            .FirstPageNumber = xlAutomatic
            .BlackAndWhite = False
            .Zoom = False
            .FitToPagesWide = 1
            .FitToPagesTall = False
            .OddAndEvenPagesHeaderFooter = False
            .DifferentFirstPageHeaderFooter = False
            .ScaleWithDocHeaderFooter = True
            .AlignMarginsHeaderFooter = True
            .EvenPage.LeftHeader.Text = ""
            .EvenPage.CenterHeader.Text = ""
            .EvenPage.RightHeader.Text = ""
            .EvenPage.LeftFooter.Text = ""
            .EvenPage.CenterFooter.Text = ""
            .EvenPage.RightFooter.Text = ""
            .FirstPage.LeftHeader.Text = ""
            .FirstPage.CenterHeader.Text = ""
            .FirstPage.RightHeader.Text = ""
            .FirstPage.LeftFooter.Text = ""
            .FirstPage.CenterFooter.Text = ""
            .FirstPage.RightFooter.Text = ""
        End With
        myExcel.Application.PrintCommunication = True
    End Sub

    Private Sub AdjustColumnWidth(ByVal sheet As Excel.Worksheet, ByVal column As String, ByVal minWidth As Double)
        Dim colRange As Excel.Range = sheet.Columns(column & ":" & column)
        If colRange.ColumnWidth < minWidth Then
            colRange.ColumnWidth = minWidth
        End If
    End Sub

    Private Shared Function NewMethod(xlBook As Microsoft.Office.Interop.Excel.Workbook) As Microsoft.Office.Interop.Excel.Worksheet
        Return CType(xlBook.Worksheets.Add, Microsoft.Office.Interop.Excel.Worksheet)
    End Function
End Class