WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/製鞋技術管理系統/模具開發控制表.vb

Option Strict Off
Imports System.IO
Imports System.Net
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
Public Class 模具開發控制表
    Public Property Credentials As ICredentials
    Private ReadOnly ds, ds1, ds2, ds3 As New DataSet
    Dim xlApp As Application : Dim xlBook As Workbook : Dim xlSheet As Worksheet
    Private Sub Set_楦頭規格表清單()
        清單_dgv.DataSource = Nothing : ds.Clear()
        清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        清單_dgv.ColumnHeadersHeight = 25
        清單_dgv.AllowUserToAddRows = False
        SQL_模具開發控制表清單()
        da.Fill(ds) : 清單_dgv.DataSource = ds.Tables(0) : conn.Close()
        清單_dgv.Columns(0).Width = 142 : 清單_dgv.Columns(1).Visible = False : 清單_dgv.Columns(2).Visible = False : 清單_dgv.Columns(3).Visible = False
        清單_dgv.Columns(4).Width = 142 : 清單_dgv.Columns(5).Visible = False : 清單_dgv.Columns(6).Visible = False : 清單_dgv.Columns(7).Visible = False
        清單_dgv.Columns(8).Visible = False : 清單_dgv.Columns(9).Visible = False : 清單_dgv.Columns(10).Visible = False : 清單_dgv.Columns(11).Visible = False
        清單_dgv.Columns(12).Visible = False : 清單_dgv.Columns(13).Visible = False : 清單_dgv.Columns(14).Visible = False
    End Sub
    Private Sub ComboBox1下拉表單資料載入()
        SQL_下拉清單1()
        模具廠_cb.Items.Clear() : While (dr.Read()) : 模具廠_cb.Items.Add(dr("廠商")) : End While : conn.Close()
    End Sub
    Private Sub ComboBox2下拉表單資料載入()
        SQL_下拉清單2()
        結構_cb.Items.Clear() : While (dr.Read()) : 結構_cb.Items.Add(dr("結構")) : End While : conn.Close()
    End Sub
    Private Sub ComboBox3下拉表單資料載入()
        SQL_下拉清單3()
        材質_cb.Items.Clear() : While (dr.Read()) : 材質_cb.Items.Add(dr("材質")) : End While : conn.Close()
    End Sub
    Private Sub ComboBox4下拉表單資料載入()
        SQL_下拉清單4()
        楦頭編號_cb.Items.Clear() : While (dr.Read()) : 楦頭編號_cb.Items.Add(dr("楦頭編號")) : End While : conn.Close()
    End Sub
    Private Sub ComboBox5下拉表單資料載入()
        SQL_下拉清單5()
        品牌_cb.Items.Clear() : While (dr.Read()) : 品牌_cb.Items.Add(dr("CUST")) : End While : conn.Close()
    End Sub
    Private Sub ComboBox6下拉表單資料載入()
        SQL_下拉清單6()
        大底廠_cb.Items.Clear() : While (dr.Read()) : 大底廠_cb.Items.Add(dr("廠商")) : End While : conn.Close()
    End Sub
    Private Sub ComboBox7下拉表單資料載入()
        SQL_下拉清單7()
        季節_cb.Items.Clear() : While (dr.Read()) : 季節_cb.Items.Add(dr("SEASON")) : End While : conn.Close()
    End Sub
    Private Sub 模具開發控制表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = WINPROFIT_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        ComboBox1下拉表單資料載入() : ComboBox2下拉表單資料載入() : ComboBox3下拉表單資料載入() : ComboBox4下拉表單資料載入() : ComboBox5下拉表單資料載入() : ComboBox6下拉表單資料載入()
        ComboBox7下拉表單資料載入() : Set_楦頭規格表清單()
        模具開發單編碼_tb.Enabled = False : TextBox7.Visible = False : TextBox8.Visible = False : TextBox9.Visible = False
        模具廠_cb.Enabled = False : 結構_cb.Enabled = False : 材質_cb.Enabled = False : 楦頭編號_cb.Enabled = False : 品牌_cb.Enabled = False : 大底廠_cb.Enabled = False : 季節_cb.Enabled = False
        模具編號_tb.Enabled = False : 參考漾鞋編號_tb.Enabled = False : 尺寸_tb.Enabled = False : 備註_tb.Enabled = False : 儲存新增_bt.Enabled = False : 儲存修改_bt.Enabled = False
        新增_bt.Enabled = True : 修改_bt.Enabled = True
        WINPROFIT_ERP_SYS.WindowState = 2 : Target1 = Target & AA(13) & "/"
        WebBrowser1.Url = New Uri(Target1)
        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
            WebBrowser2.Navigate(FolderBrowserDialog1.SelectedPath)
        End If
    End Sub
    Private Sub 圖片導入()
        SQL_圖片導入()
        PictureBox1.Image = Nothing
        While dr.Read() = True
            Dim unused As Byte() = New Byte(-1) {}
            Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
            Dim oStream As New MemoryStream(bytes)
            PictureBox1.Image = Bitmap.FromStream(oStream)
        End While
        conn.Close()
        PictureBox1.SizeMode = 4
    End Sub
    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 清單_dgv.CellClick
        If 新增_bt.Enabled = True Or 修改_bt.Enabled = True Then
            If e.RowIndex = -1 Then : Else
                模具開發單編碼_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells("模具開發單號").Value : 模具廠_cb.Text = 清單_dgv.Rows(e.RowIndex).Cells("模具廠").Value
                結構_cb.Text = 清單_dgv.Rows(e.RowIndex).Cells("結構").Value : 材質_cb.Text = 清單_dgv.Rows(e.RowIndex).Cells("材質").Value
                楦頭編號_cb.Text = 清單_dgv.Rows(e.RowIndex).Cells("楦頭編號").Value : 模具編號_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells("模具編號").Value
                參考漾鞋編號_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells("參考原樣鞋編號").Value : 品牌_cb.Text = 清單_dgv.Rows(e.RowIndex).Cells("品牌").Value
                大底廠_cb.Text = 清單_dgv.Rows(e.RowIndex).Cells("大底廠").Value : 尺寸_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells("尺寸").Value
                季節_cb.Text = 清單_dgv.Rows(e.RowIndex).Cells("季節").Value : 備註_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells("備註").Value
                TextBox8.Text = 清單_dgv.Rows(e.RowIndex).Cells("制表").Value : TextBox9.Text = 清單_dgv.Rows(e.RowIndex).Cells("制表日期").Value
                CN_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells("CN").Value
                圖片導入()
            End If
        End If
    End Sub
    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click
        PA = InputBox("請輸入要查詢的關鍵字") : Set_楦頭規格表清單() : PA = ""
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
        模具廠_cb.Enabled = True : 結構_cb.Enabled = True : 材質_cb.Enabled = True : 楦頭編號_cb.Enabled = True : 品牌_cb.Enabled = True : 大底廠_cb.Enabled = True : 季節_cb.Enabled = True
        模具編號_tb.Enabled = True : 參考漾鞋編號_tb.Enabled = True : 尺寸_tb.Enabled = True : 備註_tb.Enabled = True : 儲存新增_bt.Enabled = True : 儲存修改_bt.Enabled = False
        新增_bt.Enabled = False : 修改_bt.Enabled = False
        ComboBox1下拉表單資料載入() : ComboBox2下拉表單資料載入() : ComboBox3下拉表單資料載入() : ComboBox4下拉表單資料載入() : ComboBox5下拉表單資料載入() : ComboBox6下拉表單資料載入()
        ComboBox7下拉表單資料載入()
        模具編號_tb.Text = "" : 模具編號_tb.Text = "" : 參考漾鞋編號_tb.Text = "" : 尺寸_tb.Text = "" : 備註_tb.Text = "" : PictureBox1.Image = Nothing
        SQL_最後一筆模具開發單號()
        If dr.Read() Then : 模具開發單編碼_tb.Text = dr("模具開發單號").ToString : Else : 模具開發單編碼_tb.Text = "MD00000000" : End If
        conn.Close()
        Dim NUM1 As Integer
        NUM1 = Double.Parse(Strings.Right(模具開發單編碼_tb.Text, 8)) + 1
        If NUM1 < 10 Then : 模具開發單編碼_tb.Text = "MD" & "0000000" & NUM1
        ElseIf NUM1 > 9 And NUM1 < 100 Then : 模具開發單編碼_tb.Text = "MD" & "000000" & NUM1
        ElseIf NUM1 > 99 And NUM1 < 1000 Then : 模具開發單編碼_tb.Text = "MD" & "00000" & NUM1
        ElseIf NUM1 > 999 And NUM1 < 10000 Then : 模具開發單編碼_tb.Text = "MD" & "0000" & NUM1
        ElseIf NUM1 > 9999 And NUM1 < 100000 Then : 模具開發單編碼_tb.Text = "MD" & "000" & NUM1
        ElseIf NUM1 > 99999 And NUM1 < 100000 Then : 模具開發單編碼_tb.Text = "MD" & "00" & NUM1
        ElseIf NUM1 > 999999 And NUM1 < 1000000 Then : 模具開發單編碼_tb.Text = "MD" & "0" & NUM1
        ElseIf NUM1 > 9999999 Then : 模具開發單編碼_tb.Text = "MD" & NUM1
        End If
    End Sub
    Private Sub Set_日期格式轉換()
        DTP = Strings.Format(Today(), "yyyy/MM/dd")
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 儲存新增_bt.Click
        If 模具廠_cb.Text = "" Or 結構_cb.Text = "" Or 材質_cb.Text = "" Or 楦頭編號_cb.Text = "" Or 品牌_cb.Text = "" Or 大底廠_cb.Text = "" Or 季節_cb.Text = "" Or 模具開發單編碼_tb.Text = "" Or
            模具編號_tb.Text = "" Or 參考漾鞋編號_tb.Text = "" Or 尺寸_tb.Text = "" Or 檔案名稱_tb.Text = "" Then
            MsgBox("資料不齊全，除了備註欄位其他位置不可空白，並請注意圖片是否有準備好。")
        Else
            SQL_模具開發控制表()
            If dr.Read() Then
                conn.Close() : MsgBox("資料重複，不予許新建")
            Else
                Dim 驗證 As String = "" : Dim 取變數 As String
                取變數 = Strings.StrReverse(檔案名稱_tb.Text)
                For i As Integer = 1 To 10
                    If i = 1 Then
                        驗證 = Strings.Left(取變數, i)
                    Else
                        If Strings.Mid(取變數, i, 1) = "." Then
                            驗證 = Strings.StrReverse(驗證) : Exit For
                        Else
                            驗證 &= Strings.Mid(取變數, i, 1)
                        End If
                    End If
                Next

                If 驗證 = "PNG" Or 驗證 = "png" Or 驗證 = "GIF" Or 驗證 = "gif" Or 驗證 = "BMP" Or 驗證 = "bmp" Or 驗證 = "JPG" Or 驗證 = "jpg" Or 驗證 = "JPEG" Or 驗證 = "jpeg" Then
                    Set_日期格式轉換()
                    SQL_查詢最後一筆模具開發單號()
                    If dr.Read() Then
                        conn.Close()
                        SQL_最後一筆模具開發單號()
                        If dr.Read() Then : 模具開發單編碼_tb.Text = dr("模具開發單號").ToString : Else : 模具開發單編碼_tb.Text = "MD00000000" : End If
                        conn.Close()
                        Dim NUM1 As Integer
                        NUM1 = Double.Parse(Strings.Right(模具開發單編碼_tb.Text, 8)) + 1
                        If NUM1 < 10 Then : 模具開發單編碼_tb.Text = "MD" & "0000000" & NUM1
                        ElseIf NUM1 > 9 And NUM1 < 100 Then : 模具開發單編碼_tb.Text = "MD" & "000000" & NUM1
                        ElseIf NUM1 > 99 And NUM1 < 1000 Then : 模具開發單編碼_tb.Text = "MD" & "00000" & NUM1
                        ElseIf NUM1 > 999 And NUM1 < 10000 Then : 模具開發單編碼_tb.Text = "MD" & "0000" & NUM1
                        ElseIf NUM1 > 9999 And NUM1 < 100000 Then : 模具開發單編碼_tb.Text = "MD" & "000" & NUM1
                        ElseIf NUM1 > 99999 And NUM1 < 100000 Then : 模具開發單編碼_tb.Text = "MD" & "00" & NUM1
                        ElseIf NUM1 > 999999 And NUM1 < 1000000 Then : 模具開發單編碼_tb.Text = "MD" & "0" & NUM1
                        ElseIf NUM1 > 9999999 Then : 模具開發單編碼_tb.Text = "MD" & NUM1
                        End If
                        SQL_新增模具開發控制表()
                    Else
                        SQL_新增模具開發控制表()
                    End If
                    conn.Close()


                    圖片導入() : Set_楦頭規格表清單() : MsgBox("新增完成")
                    模具廠_cb.Enabled = False : 結構_cb.Enabled = False : 材質_cb.Enabled = False : 楦頭編號_cb.Enabled = False : 品牌_cb.Enabled = False : 大底廠_cb.Enabled = False
                    季節_cb.Enabled = False : 模具編號_tb.Enabled = False : 參考漾鞋編號_tb.Enabled = False : 尺寸_tb.Enabled = False : 備註_tb.Enabled = False : 儲存新增_bt.Enabled = False
                    儲存修改_bt.Enabled = False : 新增_bt.Enabled = True : 修改_bt.Enabled = True : 檔案名稱_tb.Text = ""
                    MsgBox("修改完成")
                    '---FTP方式刪除檔案--------------------------------------------------------------------------------------------------------------
                    Dim frq As FtpWebRequest, frp As FtpWebResponse, fcr As NetworkCredential
                    frq = CType(WebRequest.Create(New Uri(Target1 & 檔案名稱_tb.Text)), FtpWebRequest)
                    fcr = New NetworkCredential(FTP帳號, FTP密碼)
                    frq.Credentials = fcr
                    frq.Method = WebRequestMethods.Ftp.DeleteFile
                    frq.UseBinary = True
                    frp = CType(frq.GetResponse, FtpWebResponse)
                    frp.Close()
                    WebBrowser1.Refresh()
                    檔案名稱_tb.Text = ""
                Else
                    '---FTP方式刪除檔案--------------------------------------------------------------------------------------------------------------
                    Dim frq As FtpWebRequest, frp As FtpWebResponse, fcr As NetworkCredential
                    frq = CType(WebRequest.Create(New Uri(Target1 & 檔案名稱_tb.Text)), FtpWebRequest)
                    fcr = New NetworkCredential(FTP帳號, FTP密碼)
                    frq.Credentials = fcr
                    frq.Method = WebRequestMethods.Ftp.DeleteFile
                    frq.UseBinary = True
                    frp = CType(frq.GetResponse, FtpWebResponse)
                    frp.Close()
                    WebBrowser1.Refresh()
                    檔案名稱_tb.Text = ""
                    '-------------------------------------------------------------------------------------------------------------------------------
                    MsgBox("上傳文件並非常用圖片格式，文件已自動刪除，請專換成常用圖片檔案再行操作。")
                End If

            End If
        End If
    End Sub
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
        模具廠_cb.Enabled = True : 結構_cb.Enabled = True : 材質_cb.Enabled = True : 楦頭編號_cb.Enabled = True : 品牌_cb.Enabled = True : 大底廠_cb.Enabled = True : 季節_cb.Enabled = True
        模具編號_tb.Enabled = True : 參考漾鞋編號_tb.Enabled = True : 尺寸_tb.Enabled = True : 備註_tb.Enabled = True : 儲存新增_bt.Enabled = False : 儲存修改_bt.Enabled = True
        新增_bt.Enabled = False : 修改_bt.Enabled = False
    End Sub
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles 儲存修改_bt.Click
        Set_日期格式轉換()
        SQL_修改模具開發控制表()
        conn.Close()
        Set_楦頭規格表清單()
        MsgBox("修改完成")
        模具廠_cb.Enabled = False : 結構_cb.Enabled = False : 材質_cb.Enabled = False : 楦頭編號_cb.Enabled = False : 品牌_cb.Enabled = False : 大底廠_cb.Enabled = False : 季節_cb.Enabled = False
        模具編號_tb.Enabled = False : 參考漾鞋編號_tb.Enabled = False : 尺寸_tb.Enabled = False : 備註_tb.Enabled = False : 儲存新增_bt.Enabled = False : 儲存修改_bt.Enabled = False
        新增_bt.Enabled = True : 修改_bt.Enabled = True
    End Sub
    Private Sub TextBox5_DragEnter(sender As Object, e As DragEventArgs) Handles 檔案名稱_tb.DragEnter
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            Dim files As String()
            Try
                files = CType(e.Data.GetData(DataFormats.FileDrop), String())
                檔案名稱_tb.Text = files(files.Length - 1)
            Catch ex As Exception
                MessageBox.Show(ex.Message)
                Return
            End Try
        End If

        Dim STR2 As Integer = 0
        TextBox7.Text = 檔案名稱_tb.Text
        If 檔案名稱_tb.Text = "" Then
        Else
            For i As Integer = 0 To 9999
                Dim STR1 As Integer = Strings.Len(TextBox7.Text)
                If Strings.Right((TextBox7.Text), 1) <> "\" Then
                    STR1 -= 1 : STR2 += 1
                    If STR1 = 0 Then
                        TextBox7.Text = ""
                        檔案名稱_tb.Text = ""
                        i = 9999
                    Else
                        TextBox7.Text = Strings.Left((TextBox7.Text), STR1)
                    End If
                Else
                    TextBox7.Text = Strings.Right((檔案名稱_tb.Text), STR2)
                    檔案名稱_tb.Text = TextBox7.Text
                    i = 9999
                End If
            Next
        End If
    End Sub
    Private Sub TextBox5_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) Handles 檔案名稱_tb.DragDrop
        Dim files As Array = e.Data.GetData(DataFormats.FileDrop)
        For Each file As String In files
            檔案名稱_tb.AppendText(file + Environment.NewLine)
        Next
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles 讀取料夾路徑_bt.Click
        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
            WebBrowser2.Navigate(FolderBrowserDialog1.SelectedPath)
        End If
    End Sub
    Private Sub Button24_Click(sender As Object, e As EventArgs) Handles 圖片修改存檔_bt.Click
        If 模具開發單編碼_tb.Text = "" Or 檔案名稱_tb.Text = "" Then
            MsgBox("請確定需要修改圖片的模具資料已選擇與圖片資料已準備完畢。")
        Else
            Dim 驗證 As String = "" : Dim 取變數 As String
            Dim frq As FtpWebRequest, frp As FtpWebResponse, fcr As NetworkCredential
            取變數 = Strings.StrReverse(檔案名稱_tb.Text)
            For i As Integer = 1 To 10
                If i = 1 Then
                    驗證 = Strings.Left(取變數, i)
                Else
                    If Strings.Mid(取變數, i, 1) = "." Then
                        驗證 = Strings.StrReverse(驗證) : Exit For
                    Else
                        驗證 &= Strings.Mid(取變數, i, 1)
                    End If
                End If
            Next

            If 驗證 = "PNG" Or 驗證 = "png" Or 驗證 = "GIF" Or 驗證 = "gif" Or 驗證 = "BMP" Or 驗證 = "bmp" Or 驗證 = "JPG" Or 驗證 = "jpg" Or 驗證 = "JPEG" Or 驗證 = "jpeg" Then
                Set_日期格式轉換()
                SQL_修改模具開發控制表1()
                conn.Close() : dr.Close()
                檔案名稱_tb.Text = ""
                圖片導入()
                MsgBox("修改完成")
                '---FTP方式刪除檔案--------------------------------------------------------------------------------------------------------------
                frq = CType(WebRequest.Create(New Uri(Target1 & 檔案名稱_tb.Text)), FtpWebRequest)
                fcr = New NetworkCredential(FTP帳號, FTP密碼)
                frq.Credentials = fcr
                frq.Method = WebRequestMethods.Ftp.DeleteFile
                frq.UseBinary = True
                frp = CType(frq.GetResponse, FtpWebResponse)
                frp.Close()
                WebBrowser1.Refresh()
            Else
                '---FTP方式刪除檔案--------------------------------------------------------------------------------------------------------------
                frq = CType(WebRequest.Create(New Uri(Target1 & 檔案名稱_tb.Text)), FtpWebRequest)
                fcr = New NetworkCredential(FTP帳號, FTP密碼)
                frq.Credentials = fcr
                frq.Method = WebRequestMethods.Ftp.DeleteFile
                frq.UseBinary = True
                frp = CType(frq.GetResponse, FtpWebResponse)
                frp.Close()
                WebBrowser1.Refresh()
                '---------------------------------------------------------------------------------------------------------------------------------
                MsgBox("上傳文件並非常用圖片格式，文件已自動刪除，請專換成常用圖片檔案再行操作。")
            End If
        End If
    End Sub
    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles 列印_bt.Click
        xlApp = CType(CreateObject("Excel.Application"), Microsoft.Office.Interop.Excel.Application)
        xlBook = xlApp.Workbooks.Add
        xlApp.DisplayAlerts = True
        xlBook.Activate()
        xlSheet = NewMethod(xlBook)
        xlSheet.Activate()
        xlApp.Visible = True
        xlApp.Application.WindowState = xlMaximized

        xlSheet.Cells(1, 1) = "巨益模具開發計畫表" : xlSheet.Cells(2, 1) = "模具廠 : " : xlSheet.Cells(3, 1) = "結構 : " : xlSheet.Cells(4, 1) = "材質 : " : xlSheet.Cells(5, 1) = "楦頭編號 : "
        xlSheet.Cells(6, 1) = "模具編號 : " : xlSheet.Cells(2, 2) = 模具廠_cb.Text : xlSheet.Cells(3, 2) = 結構_cb.Text : xlSheet.Cells(4, 2) = 材質_cb.Text : xlSheet.Cells(5, 2) = 楦頭編號_cb.Text
        xlSheet.Cells(6, 2) = 模具編號_tb.Text : xlSheet.Cells(2, 3) = "參考漾鞋編號 : " : xlSheet.Cells(3, 3) = "品牌 : " : xlSheet.Cells(4, 3) = "大底廠 : " : xlSheet.Cells(5, 3) = "尺寸 : "
        xlSheet.Cells(6, 3) = "季節 : " : xlSheet.Cells(2, 4) = 模具編號_tb.Text : xlSheet.Cells(3, 4) = 品牌_cb.Text : xlSheet.Cells(4, 4) = 大底廠_cb.Text : xlSheet.Cells(5, 4) = 尺寸_tb.Text
        xlSheet.Cells(6, 4) = 季節_cb.Text : xlSheet.Cells(7, 4) = "備註 : " : xlSheet.Cells(8, 4) = 備註_tb.Text : xlSheet.Cells(52, 1) = "製表人 : " : xlSheet.Cells(52, 2) = TextBox8.Text
        xlSheet.Cells(52, 3) = "製表人 : " : xlSheet.Cells(52, 4) = TextBox9.Text

        CC(xlApp, xlSheet) : BB(xlApp, xlSheet)
        xlSheet.PageSetup.PrintArea = ""
        xlApp.Cells.Select()
        xlSheet.Range("B1").Select()
        xlApp.Application.WindowState = xlMinimized
        'xlApp.ActiveSheet.Protect(DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="0911274990")
        'xlApp.ActiveSheet.EnableSelection = 1
        MsgBox("列印完成")
    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
    Private Sub CC(ByVal myExcel As Application, ByVal xlSheet As 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.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 15 : xlSheet.Columns("B:B").Select : myExcel.Selection.ColumnWidth = 50
        xlSheet.Columns("C:C").Select : myExcel.Selection.ColumnWidth = 15 : xlSheet.Columns("D:D").Select : myExcel.Selection.ColumnWidth = 40
        xlSheet.Rows("2:6").Select : myExcel.Selection.RowHeight = 30 : xlSheet.Rows("1:1").Select : myExcel.Selection.RowHeight = 35

        xlSheet.Range("D8:D51").Select() : myExcel.Selection.Merge
        With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlTop : .WrapText = True : .Orientation = 0 : .AddIndent = False
            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With

        xlSheet.Range("A2:D6").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("A7:C51").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
        myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

        xlSheet.Range("D7:D51").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
        myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

        xlSheet.Rows("8:8").Select : myExcel.Selection.RowHeight = 15.75

        xlSheet.Range("A1:D1").Select() : myExcel.Selection.Merge
        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 26 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False
            .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With

        myExcel.ActiveWindow.DisplayGridlines = False

        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.236220472440945)
            .RightMargin = myExcel.Application.InchesToPoints(0.236220472440945)
            .TopMargin = myExcel.Application.InchesToPoints(0.748031496062992)
            .BottomMargin = myExcel.Application.InchesToPoints(0.748031496062992)
            .HeaderMargin = myExcel.Application.InchesToPoints(0.31496062992126)
            .FooterMargin = myExcel.Application.InchesToPoints(0.31496062992126)
            .PrintHeadings = False
            .PrintGridlines = False
            .PrintQuality = 600
            .CenterHorizontally = True
            .CenterVertically = True
            .Draft = False
            .FirstPageNumber = xlAutomatic
            .BlackAndWhite = False
            .Zoom = False
            .FitToPagesWide = 1
            .FitToPagesTall = 1
            .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 = False
    End Sub
    Private Sub BB(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
        Clipboard.SetDataObject(PictureBox1.Image)
        xlSheet.Range("A7").Select()
        myExcel.ActiveSheet.Pictures.Paste.Select
        myExcel.Selection.ShapeRange.Width = 485
        myExcel.Selection.ShapeRange.IncrementLeft(3)
        myExcel.Selection.ShapeRange.IncrementTop(3)
    End Sub
    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles 新增模具廠_bt.Click
        PA = "" : 供應商管理_製鞋樣品.Show() : 供應商管理_製鞋樣品.BringToFront()
    End Sub
    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles 新增大底廠_bt.Click
        PA = "" : 供應商管理_製鞋樣品.Show() : 供應商管理_製鞋樣品.BringToFront()
    End Sub
    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles 新增楦頭編號_bt.Click
        PA = "" : 楦頭規格表.Show() : 楦頭規格表.BringToFront()
    End Sub
    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles 新增季節清單_bt.Click
        清單修改.Close() : 季節清單修改 = True : 清單修改.ShowDialog() : ComboBox7下拉表單資料載入() : 季節清單修改 = False
    End Sub
    Private Sub Button18_Click(sender As Object, e As EventArgs) Handles 新增結構清單_bt.Click
        清單修改.Close() : 模具用結構 = True : 清單修改.ShowDialog() : ComboBox2下拉表單資料載入() : 模具用結構 = False
    End Sub
    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles 新增材質清單_bt.Click
        清單修改.Close() : 模具用材質 = True : 清單修改.ShowDialog() : ComboBox3下拉表單資料載入() : 模具用材質 = False
    End Sub
End Class