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 Public Class 合約驗收單 ReadOnly ds1, ds6, ds14 As New DataSet Dim 物料規格 As String Dim 啟動運算, 放大 As Boolean Dim NB1, 選擇項 As Integer Dim xlApp As Application : Dim xlBook As Workbook : Dim xlSheet As Worksheet Dim 存檔 As Boolean Private Sub Set_合約清單() 合約_dgv.DataSource = Nothing : ds6.Clear() 合約_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 合約_dgv.ColumnHeadersHeight = 25 : 合約_dgv.AllowUserToAddRows = False PA46 = 合約編號1_cb.Text : PA47 = 工程期1_ch.Text : PA45 = 工程執行主管_cb.Text : PA = 關鍵字搜尋_tb.Text SQL_合約清單_驗收用() da.Fill(ds6) : 合約_dgv.DataSource = ds6.Tables(0) : conn.Close() 合約_dgv.Columns(0).FillWeight = 160 : 合約_dgv.Columns(1).Visible = False : 合約_dgv.Columns(2).Visible = False : 合約_dgv.Columns(3).Visible = False 合約_dgv.Columns(4).Visible = False : 合約_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 : 合約_dgv.Columns(15).Visible = False 合約_dgv.Columns(16).Visible = False : 合約_dgv.Columns(17).Visible = False : 合約_dgv.Columns(18).Visible = False : 合約_dgv.Columns(19).Visible = False 合約_dgv.Columns(20).Visible = False : 合約_dgv.Columns(21).Visible = False : 合約_dgv.Columns(22).Visible = False : 合約_dgv.Columns(23).Visible = False 合約_dgv.Columns(24).Visible = False : 合約_dgv.Columns(25).Visible = False : 合約_dgv.Columns(26).Visible = False : 合約_dgv.Columns(27).Visible = False 合約_dgv.Columns(28).Visible = False : 合約_dgv.Columns(29).FillWeight = 50 : 合約_dgv.Columns(31).Visible = False : 合約_dgv.Columns(表頭(5)).FillWeight = 40 合約_dgv.Columns("驗收備註").Visible = False : 合約_dgv.Columns("工地驗收備註").Visible = False : 合約_dgv.Columns("驗收完成日期").Visible = False 合約_dgv.Columns("保固期限").Visible = False : 合約_dgv.Columns(表頭(2)).FillWeight = 300 合約_dgv.Columns(29).DefaultCellStyle.Format = "#,##0" : 合約_dgv.Columns(29).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter For i As Integer = 0 To 合約_dgv.Rows.Count - 1 If IsDBNull(合約_dgv(表頭(5), i).Value) = True Then : 合約_dgv(表頭(5), i).Value = False : End If Next If 放大 = True Then 合約_dgv.Columns(表頭(2)).Visible = True Else 合約_dgv.Columns(表頭(2)).Visible = False End If End Sub Private Sub Set_合約報價明細表() 報價明細表_dgv.DataSource = Nothing : ds14.Clear() 報價明細表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 報價明細表_dgv.ColumnHeadersHeight = 40 : 報價明細表_dgv.AllowUserToAddRows = False : 報價明細表_dgv.RowTemplate.Height = 25 報價明細表_dgv.RowsDefaultCellStyle.WrapMode = DataGridViewTriState.False SQL_合約驗收明細表() da.Fill(ds14) : 報價明細表_dgv.DataSource = ds14.Tables(0) : conn.Close() 報價明細表_dgv.Columns(0).FillWeight = 25 : 報價明細表_dgv.Columns(1).FillWeight = 270 : 報價明細表_dgv.Columns(2).FillWeight = 30 報價明細表_dgv.Columns(3).FillWeight = 30 : 報價明細表_dgv.Columns(4).FillWeight = 30 : 報價明細表_dgv.Columns(5).FillWeight = 30 報價明細表_dgv.Columns(6).FillWeight = 80 報價明細表_dgv.Columns(表頭(6)).DefaultCellStyle.Format = "#,##0" : 報價明細表_dgv.Columns(表頭(6)).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight 報價明細表_dgv.Columns(表頭(7)).DefaultCellStyle.Format = "#,##0" : 報價明細表_dgv.Columns(表頭(7)).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight 報價明細表_dgv.Columns(表頭(8)).DefaultCellStyle.Format = "#,##0" : 報價明細表_dgv.Columns(表頭(8)).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight 報價明細表_dgv.Columns("UNIT").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 報價明細表_dgv.Columns(0).ReadOnly = True : 報價明細表_dgv.Columns(1).ReadOnly = True : 報價明細表_dgv.Columns(2).ReadOnly = True 報價明細表_dgv.Columns(3).ReadOnly = True : 報價明細表_dgv.Columns(5).ReadOnly = True 報價明細表_dgv.EditMode = DataGridViewEditMode.EditOnEnter For I As Integer = 7 To 47 : 報價明細表_dgv.Columns(I).Visible = False : Next For i As Integer = 0 To 報價明細表_dgv.Rows.Count - 1 If IsDBNull(報價明細表_dgv.Rows(i).Cells(表頭(7)).Value) = True Then : 報價明細表_dgv.Rows(i).Cells(表頭(7)).Value = 0 : End If If 已驗收_ch.Checked = False Then : 報價明細表_dgv.Rows(i).Cells(表頭(8)).Value = 0 Else : 報價明細表_dgv.Rows(i).Cells(表頭(8)).Value = 報價明細表_dgv.Rows(i).Cells(表頭(7)).Value - 報價明細表_dgv.Rows(i).Cells(表頭(6)).Value : End If If 報價明細表_dgv.Rows(i).Cells("料號").Value.ToString = "" Then 報價明細表_dgv.Rows(i).Cells("D1").Value = False : 報價明細表_dgv.Rows(i).Cells("D2").Value = False : 報價明細表_dgv.Rows(i).Cells("D3").Value = False 報價明細表_dgv.Rows(i).Cells("D4").Value = False : 報價明細表_dgv.Rows(i).Cells("D5").Value = False : 報價明細表_dgv.Rows(i).Cells("D6").Value = False 報價明細表_dgv.Rows(i).Cells("D7").Value = False : 報價明細表_dgv.Rows(i).Cells("D8").Value = False End If If 報價明細表_dgv.Rows(i).Cells("料號").Value.ToString <> "" Then If 報價明細表_dgv.Rows(i).Cells("預設").Value = True Then 報價明細表_dgv.Rows(i).Cells("D1").Value = 報價明細表_dgv.Rows(i).Cells("S1").Value : 報價明細表_dgv.Rows(i).Cells("D2").Value = 報價明細表_dgv.Rows(i).Cells("S2").Value 報價明細表_dgv.Rows(i).Cells("D3").Value = 報價明細表_dgv.Rows(i).Cells("S3").Value : 報價明細表_dgv.Rows(i).Cells("D4").Value = 報價明細表_dgv.Rows(i).Cells("S4").Value 報價明細表_dgv.Rows(i).Cells("D5").Value = 報價明細表_dgv.Rows(i).Cells("S5").Value : 報價明細表_dgv.Rows(i).Cells("D6").Value = 報價明細表_dgv.Rows(i).Cells("S6").Value 報價明細表_dgv.Rows(i).Cells("D7").Value = 報價明細表_dgv.Rows(i).Cells("S7").Value : 報價明細表_dgv.Rows(i).Cells("D8").Value = 報價明細表_dgv.Rows(i).Cells("S8").Value End If Dim ZA1, ZA2, ZA3, ZA4, ZA5, ZA6, ZA7, ZA8 As String : 物料規格 = "" If 詳細資料2_ch.Checked = True Then If 報價明細表_dgv.Rows(i).Cells("A1").Value.ToString <> "" Then : If 報價明細表_dgv.Rows(i).Cells("D1").Value = True Then ZA1 = 報價明細表_dgv.Rows(i).Cells("AA1").Value.ToString & "=" & 報價明細表_dgv.Rows(i).Cells("A1").Value.ToString : 物料規格 = ZA1 : End If : End If If 報價明細表_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then : If 報價明細表_dgv.Rows(i).Cells("D2").Value = True Then ZA2 = 報價明細表_dgv.Rows(i).Cells("AA2").Value.ToString & "=" & 報價明細表_dgv.Rows(i).Cells("A2").Value : If 物料規格 = "" Then 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + "、" + ZA2 : End If : End If : End If If 報價明細表_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then : If 報價明細表_dgv.Rows(i).Cells("D3").Value = True Then ZA3 = 報價明細表_dgv.Rows(i).Cells("AA3").Value.ToString & "=" & 報價明細表_dgv.Rows(i).Cells("A3").Value : If 物料規格 = "" Then 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + "、" + ZA3 : End If : End If : End If If 報價明細表_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then : If 報價明細表_dgv.Rows(i).Cells("D4").Value = True Then ZA4 = 報價明細表_dgv.Rows(i).Cells("AA4").Value.ToString & "=" & 報價明細表_dgv.Rows(i).Cells("A4").Value : If 物料規格 = "" Then 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + "、" + ZA4 : End If : End If : End If If 報價明細表_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then : If 報價明細表_dgv.Rows(i).Cells("D5").Value = True Then ZA5 = 報價明細表_dgv.Rows(i).Cells("AA5").Value.ToString & "=" & 報價明細表_dgv.Rows(i).Cells("A5").Value : If 物料規格 = "" Then 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + "、" + ZA5 : End If : End If : End If If 報價明細表_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then : If 報價明細表_dgv.Rows(i).Cells("D6").Value = True Then ZA6 = 報價明細表_dgv.Rows(i).Cells("AA6").Value.ToString & "=" & 報價明細表_dgv.Rows(i).Cells("A6").Value : If 物料規格 = "" Then 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + "、" + ZA6 : End If : End If : End If If 報價明細表_dgv.Rows(i).Cells("A7").Value.ToString <> "" Then : If 報價明細表_dgv.Rows(i).Cells("D7").Value = True Then ZA7 = 報價明細表_dgv.Rows(i).Cells("AA7").Value.ToString & "=" & 報價明細表_dgv.Rows(i).Cells("A7").Value : If 物料規格 = "" Then 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + "、" + ZA7 : End If : End If : End If If 報價明細表_dgv.Rows(i).Cells("A8").Value.ToString <> "" Then : If 報價明細表_dgv.Rows(i).Cells("D8").Value = True Then ZA8 = 報價明細表_dgv.Rows(i).Cells("AA8").Value.ToString & "=" & 報價明細表_dgv.Rows(i).Cells("A8").Value : If 物料規格 = "" Then 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If : End If Else If 報價明細表_dgv.Rows(i).Cells("A1").Value.ToString <> "" Then : If 報價明細表_dgv.Rows(i).Cells("D1").Value = True Then ZA1 = 報價明細表_dgv.Rows(i).Cells("A1").Value.ToString : 物料規格 = ZA1 : End If : End If If 報價明細表_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then : If 報價明細表_dgv.Rows(i).Cells("D2").Value = True Then ZA2 = 報價明細表_dgv.Rows(i).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + "、" + ZA2 : End If : End If : End If If 報價明細表_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then : If 報價明細表_dgv.Rows(i).Cells("D3").Value = True Then ZA3 = 報價明細表_dgv.Rows(i).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + "、" + ZA3 : End If : End If : End If If 報價明細表_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then : If 報價明細表_dgv.Rows(i).Cells("D4").Value = True Then ZA4 = 報價明細表_dgv.Rows(i).Cells("A4").Value : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + "、" + ZA4 : End If : End If : End If If 報價明細表_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then : If 報價明細表_dgv.Rows(i).Cells("D5").Value = True Then ZA5 = 報價明細表_dgv.Rows(i).Cells("A5").Value : If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + "、" + ZA5 : End If : End If : End If If 報價明細表_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then : If 報價明細表_dgv.Rows(i).Cells("D6").Value = True Then ZA6 = 報價明細表_dgv.Rows(i).Cells("A6").Value : If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + "、" + ZA6 : End If : End If : End If If 報價明細表_dgv.Rows(i).Cells("A7").Value.ToString <> "" Then : If 報價明細表_dgv.Rows(i).Cells("D7").Value = True Then ZA7 = 報價明細表_dgv.Rows(i).Cells("A7").Value : If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + "、" + ZA7 : End If : End If : End If If 報價明細表_dgv.Rows(i).Cells("A8").Value.ToString <> "" Then : If 報價明細表_dgv.Rows(i).Cells("D8").Value = True Then ZA8 = 報價明細表_dgv.Rows(i).Cells("A8").Value : If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If : End If End If If 報價明細表_dgv.Rows(i).Cells("料號").Value.ToString <> "" Then 報價明細表_dgv.Rows(i).Cells("DESCRIPTION").Value = 報價明細表_dgv.Rows(i).Cells("品名").Value.ToString & " " & 物料規格 End If End If : 報價明細表_dgv.Rows(i).Cells("預設").Value = False ''------------數字為0隱藏----------------------------------------------------------------------------------------------- If IsDBNull(報價明細表_dgv.Rows(i).Cells(表頭(6)).Value) Then 報價明細表_dgv.Rows(i).Cells(表頭(6)).Style.ForeColor = 報價明細表_dgv.Rows(i).Cells(表頭(6)).Style.BackColor Else If 報價明細表_dgv.Rows(i).Cells(表頭(6)).Value = 0 Then 報價明細表_dgv.Rows(i).Cells(表頭(6)).Style.ForeColor = 報價明細表_dgv.Rows(i).Cells(表頭(6)).Style.BackColor Else If 深色風格 = False Then 報價明細表_dgv.Rows(i).Cells(表頭(6)).Style.ForeColor = Color.Black Else 報價明細表_dgv.Rows(i).Cells(表頭(6)).Style.ForeColor = Color.White End If End If End If If IsDBNull(報價明細表_dgv.Rows(i).Cells(表頭(7)).Value) Then 報價明細表_dgv.Rows(i).Cells(表頭(7)).Style.ForeColor = 報價明細表_dgv.Rows(i).Cells(表頭(7)).Style.BackColor Else If 報價明細表_dgv.Rows(i).Cells(表頭(7)).Value = 0 Then 報價明細表_dgv.Rows(i).Cells(表頭(7)).Style.ForeColor = 報價明細表_dgv.Rows(i).Cells(表頭(7)).Style.BackColor Else If 深色風格 = False Then 報價明細表_dgv.Rows(i).Cells(表頭(7)).Style.ForeColor = Color.Black Else 報價明細表_dgv.Rows(i).Cells(表頭(7)).Style.ForeColor = Color.White End If End If End If If IsDBNull(報價明細表_dgv.Rows(i).Cells(表頭(8)).Value) Then 報價明細表_dgv.Rows(i).Cells(表頭(8)).Style.ForeColor = 報價明細表_dgv.Rows(i).Cells(表頭(8)).Style.BackColor Else If 深色風格 = False Then If 報價明細表_dgv.Rows(i).Cells(表頭(8)).Value = 0 Then 報價明細表_dgv.Rows(i).Cells(表頭(8)).Style.ForeColor = 報價明細表_dgv.Rows(i).Cells(表頭(8)).Style.BackColor ElseIf 報價明細表_dgv.Rows(i).Cells(表頭(8)).Value > 0 Then 報價明細表_dgv.Rows(i).Cells(表頭(8)).Style.ForeColor = Color.Blue ElseIf 報價明細表_dgv.Rows(i).Cells(表頭(8)).Value < 0 Then 報價明細表_dgv.Rows(i).Cells(表頭(8)).Style.ForeColor = Color.Red End If Else If 報價明細表_dgv.Rows(i).Cells(表頭(8)).Value = 0 Then 報價明細表_dgv.Rows(i).Cells(表頭(8)).Style.ForeColor = 報價明細表_dgv.Rows(i).Cells(表頭(8)).Style.BackColor ElseIf 報價明細表_dgv.Rows(i).Cells(表頭(8)).Value > 0 Then 報價明細表_dgv.Rows(i).Cells(表頭(8)).Style.ForeColor = Color.LightBlue ElseIf 報價明細表_dgv.Rows(i).Cells(表頭(8)).Value < 0 Then 報價明細表_dgv.Rows(i).Cells(表頭(8)).Style.ForeColor = Color.LightPink End If End If End If Next End Sub Private Sub 甲方條件下拉清單讀取() SQL合約條件讀取() : 合約編號1_cb.Items.Clear() : 合約編號1_cb.Items.Add("") : While (dr.Read()) : 合約編號1_cb.Items.Add(dr("約號甲方")) : End While : conn.Close() End Sub Private Sub 執行主管下拉清單讀取() SQL執行主管下拉() : 工程執行主管_cb.Items.Clear() : 工程執行主管_cb.Items.Add("") : While (dr.Read()) : 工程執行主管_cb.Items.Add(dr("姓名")) : End While : conn.Close() End Sub Private Sub 語言轉換讀取() If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If Me.Text = 系統語言字典("H001-133-" & 語言) : ToolTip1.ToolTipTitle = 系統語言字典("G000-108-" & 語言) : Label7.Text = 系統語言字典("H104-106-" & 語言) Label11.Text = 系統語言字典("H110-118-" & 語言) : 工程執行主管_lb.Text = 系統語言字典("H101-109-" & 語言) : Label2.Text = 系統語言字典("G000-156-" & 語言) Label372.Text = 系統語言字典("H112-100-" & 語言) : Label375.Text = 系統語言字典("G000-215-" & 語言) : Label378.Text = 系統語言字典("G000-216-" & 語言) Label1.Text = 系統語言字典("G000-157-" & 語言) : Label414.Text = 系統語言字典("H109-100-" & 語言) : Label5.Text = 系統語言字典("H110-121-" & 語言) Label4.Text = 系統語言字典("H110-122-" & 語言) : Label3.Text = 系統語言字典("H110-120-" & 語言) : Label6.Text = 系統語言字典("H110-124-" & 語言) Label9.Text = 系統語言字典("H110-123-" & 語言) : Label12.Text = 系統語言字典("H110-125-" & 語言) : 已驗收_ch.Text = 系統語言字典("H904-111-" & 語言) Label8.Text = 系統語言字典("H902-117-" & 語言) : 表頭(1) = 系統語言字典("H501-152-" & 語言) : 表頭(2) = 系統語言字典("H112-118-" & 語言) 表頭(3) = 系統語言字典("H110-122-" & 語言) : 表頭(4) = 系統語言字典("G000-157-" & 語言) : 表頭(5) = 系統語言字典("H110-129-" & 語言) 表頭(6) = 系統語言字典("H506-167-" & 語言) : 表頭(7) = 系統語言字典("H109-105-" & 語言) : 表頭(8) = 系統語言字典("H109-106-" & 語言) 詳細資料2_ch.Text = 系統語言字典("H211-100-" & 語言) End Sub Private Sub 列印_bt_MouseEnter(sender As Object, e As EventArgs) Handles 列印_bt.MouseEnter ToolTip1.SetToolTip(Me.列印_bt, 系統語言字典("G000-114-" & 語言)) End Sub Private Sub 修改存檔_bt_MouseEnter(sender As Object, e As EventArgs) Handles 修改存檔_bt.MouseEnter ToolTip1.SetToolTip(Me.修改存檔_bt, 系統語言字典("G000-110-" & 語言)) End Sub Private Sub 解鎖_bt_MouseEnter(sender As Object, e As EventArgs) Handles 解鎖_bt.MouseEnter ToolTip1.SetToolTip(Me.解鎖_bt, 系統語言字典("H109-103-" & 語言)) End Sub Private Sub 驗收完成_bt_MouseEnter(sender As Object, e As EventArgs) Handles 驗收完成_bt.MouseEnter ToolTip1.SetToolTip(Me.驗收完成_bt, 系統語言字典("H110-100-" & 語言)) End Sub Private Sub 查詢_bt_MouseEnter(sender As Object, e As EventArgs) Handles 查詢_bt.MouseEnter ToolTip1.SetToolTip(Me.查詢_bt, 系統語言字典("G000-113-" & 語言)) End Sub Private Sub 縮放2_bt_MouseEnter(sender As Object, e As EventArgs) Handles 縮放2_bt.MouseEnter ToolTip1.SetToolTip(Me.縮放2_bt, 系統語言字典("G000-198-" & 語言)) End Sub Private Sub 合約驗收單_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True 風格() : H(109) = True : 介面 = "H109" : 語言轉換讀取() : Panel1.SendToBack() : 顯示說明(999, True) SQL_合約控制表_工程主管預設() : 甲方條件下拉清單讀取() : 執行主管下拉清單讀取() : Set_合約清單() : 合約驗收單_Siz() If 系統分區控制 = True Then : 驗收完成_bt.BackgroundImage = My.Resources.list_accept : 修改存檔_bt.Visible = True : 解鎖_bt.Visible = True ElseIf 系統分區控制 = False Then : 驗收完成_bt.BackgroundImage = My.Resources.SAVER : 修改存檔_bt.Visible = False : 解鎖_bt.Visible = False : End If If 系統分區控制 = True And CInt(登入人級別) <= 5 Then : 解鎖_bt.Enabled = True : Else : 解鎖_bt.Enabled = False : End If End Sub Private Sub 合約驗收單_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown If 待辦進入 <> "" Then : lastFoundRowIndex = -1 : lastFoundColIndex = -1 關鍵字搜尋_tb.Text = 待辦進入 : 查詢DGV中的關鍵字_自動(合約_dgv, 關鍵字搜尋_tb) : 選擇項 = lastFoundRowIndex : 合約資料選擇() lastFoundRowIndex = -1 : lastFoundColIndex = -1 : 關鍵字搜尋_tb.Text = "" : 待辦進入 = "" End If End Sub Private Sub 合約驗收單_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed MyMod.虛擬桌面開啟() End Sub Private Sub 合約驗收單_Siz() MyMod.清單字體大小調整() 合約_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value) 報價明細表_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value) End Sub Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True End Sub Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True End Sub Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click 介面 = "H109" : 語言轉換讀取() End Sub Private Sub 合約_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 合約_dgv.CellClick If e.RowIndex = -1 Then : Else : 選擇項 = e.RowIndex : 合約資料選擇() : End If End Sub Private Sub 合約資料選擇() If 放大 = True Then : 縮放2_bt.PerformClick() : End If 客戶名稱_tb.Text = 合約_dgv("客戶名稱", 選擇項).Value.ToString : 合約編號_tb.Text = 合約_dgv(表頭(1), 選擇項).Value.ToString 工程名稱_中_tb.Text = 合約_dgv(表頭(2), 選擇項).Value.ToString : 工程名稱_英_tb.Text = 合約_dgv("工程名稱_英", 選擇項).Value.ToString 立約日期_dtp.Value = 合約_dgv("立約日期", 選擇項).Value.ToString : 合約工期_nud.Value = 合約_dgv("工期", 選擇項).Value.ToString 已驗收_ch.Checked = 合約_dgv(表頭(5), 選擇項).Value : 保固_cb.Text = 合約_dgv("保固期限", 選擇項).Value.ToString If 系統分區控制 = True Then : 備註_tb.Text = 合約_dgv("驗收備註", 選擇項).Value.ToString Else : 備註_tb.Text = 合約_dgv("工地驗收備註", 選擇項).Value.ToString : End If If 合約_dgv("驗收開始日期", 選擇項).Value.ToString = "" Then : 驗收日期_dtp.Value = Today() : 存檔 = False Else : 驗收日期_dtp.Value = 合約_dgv("驗收開始日期", 選擇項).Value.ToString : 存檔 = True : End If If 合約_dgv("驗收完成日期", 選擇項).Value.ToString = "" Then : 驗收完成_dtp.Value = Today() : Else 驗收完成_dtp.Value = 合約_dgv("驗收完成日期", 選擇項).Value.ToString End If 工程天數_nud.Value = DateDiff("d", 立約日期_dtp.Value, 驗收日期_dtp.Value) : 日期差異_nud.Value = 合約工期_nud.Value - 工程天數_nud.Value 啟動運算 = False : PA = 合約編號_tb.Text : Set_合約報價明細表() : 啟動運算 = True If IsDBNull(合約_dgv(表頭(5), 選擇項).Value) = True Then 立約日期_dtp.Enabled = True : 驗收日期_dtp.Enabled = True : 驗收完成_dtp.Enabled = True : 合約工期_nud.Enabled = True 工程天數_nud.Enabled = True : 日期差異_nud.Enabled = True : 保固_cb.Enabled = True Else If 合約_dgv(表頭(5), 選擇項).Value = True Then 立約日期_dtp.Enabled = False : 驗收日期_dtp.Enabled = False : 驗收完成_dtp.Enabled = False : 合約工期_nud.Enabled = False 工程天數_nud.Enabled = False : 日期差異_nud.Enabled = False : 保固_cb.Enabled = False Else 立約日期_dtp.Enabled = True : 驗收日期_dtp.Enabled = True : 驗收完成_dtp.Enabled = True : 合約工期_nud.Enabled = True 工程天數_nud.Enabled = True : 日期差異_nud.Enabled = True : 保固_cb.Enabled = True End If End If End Sub Private Sub 報價明細表_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 報價明細表_dgv.CellEndEdit If 啟動運算 = True Then For i As Integer = 0 To 報價明細表_dgv.Rows.Count - 1 If IsDBNull(報價明細表_dgv.Rows(i).Cells(表頭(7)).Value) Then 報價明細表_dgv.Rows(i).Cells(表頭(7)).Style.ForeColor = 報價明細表_dgv.Rows(i).Cells(表頭(7)).Style.BackColor Else If 報價明細表_dgv.Rows(i).Cells(表頭(7)).Value = 0 Then 報價明細表_dgv.Rows(i).Cells(表頭(7)).Style.ForeColor = 報價明細表_dgv.Rows(i).Cells(表頭(7)).Style.BackColor Else If 深色風格 = False Then 報價明細表_dgv.Rows(i).Cells(表頭(7)).Style.ForeColor = Color.Black Else 報價明細表_dgv.Rows(i).Cells(表頭(7)).Style.ForeColor = Color.White End If End If End If If IsDBNull(報價明細表_dgv.Rows(i).Cells(表頭(8)).Value) Then 報價明細表_dgv.Rows(i).Cells(表頭(8)).Style.ForeColor = 報價明細表_dgv.Rows(i).Cells(表頭(8)).Style.BackColor Else If 深色風格 = False Then If 報價明細表_dgv.Rows(i).Cells(表頭(8)).Value = 0 Then : 報價明細表_dgv.Rows(i).Cells(表頭(8)).Style.ForeColor = 報價明細表_dgv.Rows(i).Cells(表頭(8)).Style.BackColor ElseIf 報價明細表_dgv.Rows(i).Cells(表頭(8)).Value > 0 Then 報價明細表_dgv.Rows(i).Cells(表頭(8)).Style.ForeColor = Color.Blue ElseIf 報價明細表_dgv.Rows(i).Cells(表頭(8)).Value < 0 Then 報價明細表_dgv.Rows(i).Cells(表頭(8)).Style.ForeColor = Color.Red End If Else If 報價明細表_dgv.Rows(i).Cells(表頭(8)).Value = 0 Then 報價明細表_dgv.Rows(i).Cells(表頭(8)).Style.ForeColor = 報價明細表_dgv.Rows(i).Cells(表頭(8)).Style.BackColor ElseIf 報價明細表_dgv.Rows(i).Cells(表頭(8)).Value > 0 Then 報價明細表_dgv.Rows(i).Cells(表頭(8)).Style.ForeColor = Color.LightBlue ElseIf 報價明細表_dgv.Rows(i).Cells(表頭(8)).Value < 0 Then 報價明細表_dgv.Rows(i).Cells(表頭(8)).Style.ForeColor = Color.LightPink End If End If End If 報價明細表_dgv.Rows(i).Cells(表頭(8)).Value = 報價明細表_dgv.Rows(i).Cells(表頭(7)).Value - 報價明細表_dgv.Rows(i).Cells(表頭(6)).Value Next End If End Sub Private Sub 合約編號1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 合約編號1_cb.SelectedIndexChanged PA = 關鍵字搜尋_tb.Text : Set_合約清單() End Sub Private Sub 合約編號1_cb_Click(sender As Object, e As EventArgs) Handles 合約編號1_cb.Click CB選擇清單(合約編號1_cb) End Sub Private Sub 工程期1_ch_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 工程期1_ch.SelectedIndexChanged PA = 關鍵字搜尋_tb.Text : Set_合約清單() End Sub Private Sub 工程執行主管_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 工程執行主管_cb.SelectedIndexChanged PA = 關鍵字搜尋_tb.Text : Set_合約清單() End Sub Private Sub 工程執行主管_cb_Click(sender As Object, e As EventArgs) Handles 工程執行主管_cb.Click CB選擇清單(工程執行主管_cb) End Sub Private Sub 查詢_bt_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click PA = 關鍵字搜尋_tb.Text : Set_合約清單() End Sub Private Sub 立約日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 立約日期_dtp.ValueChanged 工程天數_nud.Value = DateDiff("d", 立約日期_dtp.Value, 驗收日期_dtp.Value) : 日期差異_nud.Value = 合約工期_nud.Value - 工程天數_nud.Value End Sub Private Sub 驗收日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 驗收日期_dtp.ValueChanged 工程天數_nud.Value = DateDiff("d", 立約日期_dtp.Value, 驗收日期_dtp.Value) : 日期差異_nud.Value = 合約工期_nud.Value - 工程天數_nud.Value End Sub Private Sub 合約工期_nud_ValueChanged(sender As Object, e As EventArgs) Handles 合約工期_nud.ValueChanged 日期差異_nud.Value = 合約工期_nud.Value - 工程天數_nud.Value End Sub Private Sub 修改存檔_bt_Click(sender As Object, e As EventArgs) Handles 修改存檔_bt.Click If 報價明細表_dgv.Rows.Count < 1 Then : MGB(系統語言字典("H109-101-" & 語言), 1) : Else PA = 合約編號_tb.Text : SQL_控制表_驗收確認() If dr.Read() Then Dim SS, SS1 As String SS = 系統語言字典("H109-102-" & 語言) : SS1 = 系統語言字典("H110-107-" & 語言) MGB(SS & Strings.Format(驗收日期_dtp.Value, "yyyy/MM/dd") & SS1, 2) If 訊息回應 = "YES" Then : PA1 = Strings.Format(驗收日期_dtp.Value, "yyyy/MM/dd") : PA5 = 合約工期_nud.Value : SQL_控制表_驗收修改1() For i As Integer = 0 To 報價明細表_dgv.Rows.Count - 1 PA9 = 報價明細表_dgv.Rows(i).Cells("流水號").Value.ToString : PA1 = 報價明細表_dgv.Rows(i).Cells(表頭(7)).Value.ToString PA2 = 報價明細表_dgv.Rows(i).Cells("REMARKS").Value.ToString SQL_合約報價明細表_驗收存檔() Next MGB(系統語言字典("H299-128-" & 語言), 1) : PA = "" : Set_合約清單() : 存檔 = True End If End If End If End Sub Private Sub 驗收完成_bt_Click(sender As Object, e As EventArgs) Handles 驗收完成_bt.Click If 合約編號_tb.Text = "" Then : MGB(系統語言字典("H110-102-" & 語言), 1) : Else If 系統分區控制 = True Then If 存檔 = False Then : MGB(系統語言字典("H110-103-" & 語言), 1) : Else If 保固_cb.Text = "" Then : MGB(系統語言字典("H110-104-" & 語言), 1) : Else If 驗收日期_dtp.Value > 驗收完成_dtp.Value Then : MGB(系統語言字典("H110-105-" & 語言), 1) : Else Dim SS, SS1 As String SS = 系統語言字典("H110-106-" & 語言) : SS1 = 系統語言字典("H110-107-" & 語言) MGB(SS & Strings.Format(驗收完成_dtp.Value, "yyyy/MM/dd") & SS1, 2) If 訊息回應 = "YES" Then : 修改存檔_bt.PerformClick() PA = 合約編號_tb.Text : PA1 = Strings.Format(驗收完成_dtp.Value, "yyyy/MM/dd") : PA2 = "1" : PA3 = 備註_tb.Text : PA4 = 保固_cb.Text PA5 = 合約工期_nud.Value : SQL_控制表_驗收修改2() : PA = "" : 存檔 = False MGB(系統語言字典("H110-108-" & 語言), 1) : If 立約日期_dtp.Enabled = True Then : 解鎖_bt.PerformClick() : End If End If End If End If End If Else : PA = 合約編號_tb.Text : PA3 = 備註_tb.Text : SQL_控制表_驗收修改3() : PA = "" : MGB(系統語言字典("H110-109-" & 語言), 1) : End If End If End Sub Private Sub 縮放2_bt_Click(sender As Object, e As EventArgs) Handles 縮放2_bt.Click Dim NX, NY As Integer : NX = 合約_dgv.Size.Width : NY = 合約_dgv.Size.Height If 放大 = True Then 合約_dgv.Size = New System.Drawing.Point(NX - 400, NY) : 放大 = False : 合約_dgv.Columns(表頭(2)).Visible = False Else 合約_dgv.Size = New System.Drawing.Point(NX + 400, NY) : 放大 = True : 合約_dgv.Columns(表頭(2)).Visible = True End If End Sub Private Sub 解鎖_bt_Click(sender As Object, e As EventArgs) Handles 解鎖_bt.Click If 合約編號_tb.Text = "" Then : MGB(系統語言字典("H527-211-" & 語言), 1) : Else If 立約日期_dtp.Enabled = True Then 立約日期_dtp.Enabled = False : 驗收日期_dtp.Enabled = False : 驗收完成_dtp.Enabled = False : 合約工期_nud.Enabled = False 工程天數_nud.Enabled = False : 日期差異_nud.Enabled = False : 保固_cb.Enabled = False Else 立約日期_dtp.Enabled = True : 驗收日期_dtp.Enabled = True : 驗收完成_dtp.Enabled = True : 合約工期_nud.Enabled = True 工程天數_nud.Enabled = True : 日期差異_nud.Enabled = True : 保固_cb.Enabled = True End If End If End Sub Private Sub 詳細資料2_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 詳細資料2_ch.Click If 詳細資料2_ch.Checked = True Then : 詳細資料2_ch.Checked = True : Else : 詳細資料2_ch.Checked = False : End If : Set_合約報價明細表() End Sub Private Sub 保固_cb_Click(sender As Object, e As EventArgs) Handles 保固_cb.Click CB選擇清單(保固_cb) End Sub Private Sub 客戶名稱_tb_Click(sender As Object, e As EventArgs) Handles 客戶名稱_tb.Click CB選擇清單(客戶名稱_tb) End Sub Private Sub 列印_bt_Click(sender As Object, e As EventArgs) Handles 列印_bt.Click PB = "合約驗收單" : 待辦事項連接_兩項.ShowDialog() : 待辦事項連接_兩項.BringToFront() If PB = "A" Then If 報價明細表_dgv.Rows.Count < 1 Then : MGB(系統語言字典("H109-104-" & 語言), 1) : Else Dim 列印 As Boolean : PA = 合約編號_tb.Text : SQL_控制表_驗收確認() If dr.Read() Then If dr("驗收開始日期").ToString = "" Then Dim SS, SS1 As String : SS = 系統語言字典("H109-102-" & 語言) : SS1 = 系統語言字典("H110-107-" & 語言) MGB(SS & Strings.Format(驗收日期_dtp.Value, "yyyy/MM/dd") & SS1, 2) If 訊息回應 = "YES" Then : PA1 = Strings.Format(驗收日期_dtp.Value, "yyyy/MM/dd") : PA5 = 合約工期_nud.Value : SQL_控制表_驗收修改1() 列印 = True : Else : 列印 = False End If Else : 列印 = True : End If End If If 列印 = True Then If 合約編號_tb.Text = "" Then : MGB(系統語言字典("H104-112-" & 語言), 1) : Else xlApp = CType(CreateObject("Excel.Application"), Application) xlApp.Visible = True xlApp.DisplayAlerts = True xlApp.Application.WindowState = xlMaximized xlBook = xlApp.Workbooks.Add '---------------------------------------------------------------------------------------------------------------------- xlSheet = NewMethod(xlBook) : xlApp.Sheets(1).Select : xlApp.Sheets(1).Name = "工程驗收單" xlBook.Activate() : xlSheet.Activate() xlSheet.Cells(2, 1) = "工程驗收單" xlSheet.Cells(3, 1) = "業主名稱 :" & 客戶名稱_tb.Text : xlSheet.Cells(3, 6) = "NO. " & 合約編號_tb.Text xlSheet.Cells(4, 1) = "工程項目 : " & 工程名稱_中_tb.Text & " " & 工程名稱_英_tb.Text : xlSheet.Cells(4, 6) = Strings.Format(驗收日期_dtp.Value, "yyyy/MM/dd") xlSheet.Cells(5, 1) = "ITEM" : xlSheet.Cells(5, 2) = "DESCRIPTION" : xlSheet.Cells(5, 3) = "UNIT" : xlSheet.Cells(5, 4) = "Q'TY" : xlSheet.Cells(5, 7) = "UNIT" xlSheet.Cells(6, 4) = "合約" & vbCrLf & "Contract A" : xlSheet.Cells(6, 5) = "實際" & vbCrLf & "Actual B" : xlSheet.Cells(6, 6) = "差異" & vbCrLf & "Difference C=B-A" For i As Integer = 0 To 報價明細表_dgv.Rows.Count - 1 xlSheet.Cells(7 + i, 1) = 報價明細表_dgv("ITEM", i).Value.ToString : xlSheet.Cells(7 + i, 2) = 報價明細表_dgv("DESCRIPTION", i).Value.ToString xlSheet.Cells(7 + i, 3) = 報價明細表_dgv("UNIT", i).Value.ToString : xlSheet.Cells(7 + i, 7) = 報價明細表_dgv("REMARKS", i).Value.ToString If CInt(報價明細表_dgv(表頭(7), i).Value.ToString) = 0 Then : Else : xlSheet.Cells(7 + i, 5) = 報價明細表_dgv(表頭(7), i).Value.ToString : End If If CInt(報價明細表_dgv(表頭(8), i).Value.ToString) = 0 Then : Else : xlSheet.Cells(7 + i, 6) = 報價明細表_dgv(表頭(8), i).Value.ToString : End If If CInt(報價明細表_dgv(表頭(6), i).Value.ToString) = 0 Then : Else : xlSheet.Cells(7 + i, 4) = 報價明細表_dgv(表頭(6), i).Value.ToString : End If NB1 = i Next xlSheet.Cells(7 + NB1 + 2, 2) = " 甲方代表簽字" : xlSheet.Cells(7 + NB1 + 2, 5) = "承包商簽字" xlSheet.Cells(7 + NB1 + 3, 2) = "Representatives of Party A :" : xlSheet.Cells(7 + NB1 + 3, 5) = "Contracting company signing:" AA(xlApp, xlSheet) If Strings.Left(合約編號_tb.Text, 2) = "HX" Then : CC(xlApp, xlSheet) : Else : DD(xlApp, xlSheet) : End If : FF(xlApp, xlSheet) xlApp.Sheets(2).Delete : xlSheet.PageSetup.PrintArea = "" '-------------轉換成PDF--------------------------------------------------------------------- Dim SERT As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) xlBook.Sheets(1).ExportAsFixedFormat(XlFixedFormatType.xlTypePDF, SERT & "\" & 合約編號_tb.Text & "工程驗收單.pdf", XlFixedFormatQuality.xlQualityStandard, True) '-------------關閉EXCEL--------------------------------------------------------------------- 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() '-------------開啟PDF--------------------------------------------------------------------- Dim pdfFilePath As String = SERT & "\" & 合約編號_tb.Text & "工程驗收單.pdf" If IsChromeInstalled() Then Try Dim chromeProcess As New Process() chromeProcess.StartInfo.FileName = "chrome" chromeProcess.StartInfo.Arguments = """" & pdfFilePath & """" chromeProcess.Start() Catch ex As Exception End Try Else Try System.Diagnostics.Process.Start("""" & pdfFilePath & """") Catch ex As Exception End Try End If MGB(系統語言字典("H508-121-" & 語言), 1) : Set_合約清單() End If End If End If Else If 報價明細表_dgv.Rows.Count < 1 Then : MGB(系統語言字典("H109-104-" & 語言), 1) : Else Dim 列印 As Boolean : PA = 合約編號_tb.Text : SQL_控制表_驗收確認() If dr.Read() Then If dr("驗收開始日期").ToString = "" Then Dim SS, SS1 As String : SS = 系統語言字典("H109-102-" & 語言) : SS1 = 系統語言字典("H110-107-" & 語言) MGB(SS & Strings.Format(驗收日期_dtp.Value, "yyyy/MM/dd") & SS1, 2) If 訊息回應 = "YES" Then : PA1 = Strings.Format(驗收日期_dtp.Value, "yyyy/MM/dd") : PA5 = 合約工期_nud.Value : SQL_控制表_驗收修改1() 列印 = True : Else : 列印 = False End If Else : 列印 = True : End If End If If 列印 = True Then If 合約編號_tb.Text = "" Then : MGB(系統語言字典("H104-112-" & 語言), 1) : Else xlApp = CType(CreateObject("Excel.Application"), Application) xlApp.Visible = True xlApp.DisplayAlerts = True xlApp.Application.WindowState = xlMaximized xlBook = xlApp.Workbooks.Add '---------------------------------------------------------------------------------------------------------------------- xlSheet = NewMethod(xlBook) : xlApp.Sheets(1).Select : xlApp.Sheets(1).Name = "工程驗收單" xlBook.Activate() : xlSheet.Activate() xlSheet.Cells(3, 2) = "工程驗收單" xlSheet.Cells(4, 2) = "Engineering Acceptance Form" xlSheet.Cells(6, 2) = "業主：" : xlSheet.Cells(6, 3) = 客戶名稱_tb.Text xlSheet.Cells(7, 2) = "Client's name ：" : xlSheet.Cells(7, 3) = 客戶名稱_tb.Text xlSheet.Cells(9, 2) = "工 程 名 稱 ：" : xlSheet.Cells(9, 3) = 工程名稱_中_tb.Text xlSheet.Cells(10, 2) = "Project Name：" : xlSheet.Cells(10, 3) = 工程名稱_英_tb.Text xlSheet.Cells(11, 2) = "合 約 編 號 ：" : xlSheet.Cells(11, 3) = 合約編號_tb.Text xlSheet.Cells(12, 2) = "Contract No.：" : xlSheet.Cells(12, 3) = 合約編號_tb.Text xlSheet.Cells(14, 2) = "說明illustrate：" xlSheet.Cells(14, 3) = 工程名稱_中_tb.Text & "已完成100%" xlSheet.Cells(15, 3) = 工程名稱_英_tb.Text & " to complete 100%" xlSheet.Cells(17, 2) = "惠請 尊上同意驗收" xlSheet.Cells(18, 2) = "Your Majesty agrees to accept" xlSheet.Cells(20, 2) = "甲方簽章" xlSheet.Cells(21, 2) = "Party A's signature" xlSheet.Cells(20, 8) = "乙方簽章" xlSheet.Cells(21, 8) = " Party B's signature" GG(xlApp, xlSheet) If Strings.Left(合約編號_tb.Text, 2) = "HX" Then : HH(xlApp, xlSheet) : Else : II(xlApp, xlSheet) : End If FF(xlApp, xlSheet) xlApp.Sheets(2).Delete : xlSheet.PageSetup.PrintArea = "" '-------------轉換成PDF--------------------------------------------------------------------- Dim SERT As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) xlBook.Sheets(1).ExportAsFixedFormat(XlFixedFormatType.xlTypePDF, SERT & "\" & 合約編號_tb.Text & "工程驗收單-S.pdf", XlFixedFormatQuality.xlQualityStandard, True) '-------------關閉EXCEL--------------------------------------------------------------------- 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() '-------------開啟PDF--------------------------------------------------------------------- Dim pdfFilePath As String = SERT & "\" & 合約編號_tb.Text & "工程驗收單-S.pdf" If IsChromeInstalled() Then Try Dim chromeProcess As New Process() chromeProcess.StartInfo.FileName = "chrome" chromeProcess.StartInfo.Arguments = """" & pdfFilePath & """" chromeProcess.Start() Catch ex As Exception End Try Else Try System.Diagnostics.Process.Start("""" & pdfFilePath & """") Catch ex As Exception End Try End If MGB(系統語言字典("H508-121-" & 語言), 1) : Set_合約清單() End If End If End If End If End Sub ' 檢查系統是否已安裝 Google Chrome Private Function IsChromeInstalled() As Boolean Dim key As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall") If key IsNot Nothing Then For Each subkeyName As String In key.GetSubKeyNames() Dim subkey As Microsoft.Win32.RegistryKey = key.OpenSubKey(subkeyName) Dim displayName As Object = subkey.GetValue("DisplayName") If displayName IsNot Nothing AndAlso displayName.ToString().Contains("Google Chrome") Then Return True End If Next End If Return False End Function Private Shared Function NewMethod(xlBook As Workbook) As Worksheet Return CType(xlBook.Worksheets.Add, Worksheet) End Function Private Sub GG(myExcel As Application, xlSheet As Worksheet) myExcel.Columns("B:J").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 myExcel.Range("B3:J3").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 With myExcel.Selection.Font .Name = "微軟正黑體" : .Size = 18 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone End With myExcel.Range("B4:J4").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 With myExcel.Selection.Font .Name = "微軟正黑體" : .Size = 18 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone End With myExcel.Range("C6:J6").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 With myExcel.Selection .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True End With myExcel.Range("C7:J7").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 With myExcel.Selection .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True End With myExcel.Range("C9:J9").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 With myExcel.Selection .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True End With myExcel.Range("C10:J10").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 With myExcel.Selection .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True End With myExcel.Range("C11:J11").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 With myExcel.Selection .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True End With myExcel.Range("C12:J12").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 With myExcel.Selection .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True End With myExcel.Range("C14:J14").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 With myExcel.Selection .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True End With myExcel.Range("C15:J15").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 With myExcel.Selection .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True End With With myExcel.Selection .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True End With myExcel.Rows("15:15").RowHeight = 31.5 myExcel.Range("B17:J17").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 With myExcel.Selection .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True End With myExcel.Range("B18:J18").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 With myExcel.Selection .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True End With myExcel.Range("B20:D20").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 myExcel.Range("B21:D21").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 myExcel.Range("H20:J20").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 myExcel.Range("H21:J21").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 myExcel.Columns("B:B").EntireColumn.AutoFit myExcel.Range("B6").Select() With myExcel.Selection .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False End With myExcel.Range("B7").Select() With myExcel.Selection .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False End With myExcel.Range("B9").Select() With myExcel.Selection .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False End With myExcel.Range("B10").Select() With myExcel.Selection .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False End With myExcel.Range("B11").Select() With myExcel.Selection .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False End With myExcel.Range("B12").Select() With myExcel.Selection .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False End With myExcel.Range("B14").Select() With myExcel.Selection .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False End With myExcel.Rows("2:2").RowHeight = 79.5 myExcel.Columns("A:A").ColumnWidth = 0.54 myExcel.Rows("1:1").RowHeight = 3.75 End Sub Private Sub AA(ByVal myExcel As Application, ByVal xlSheet As Worksheet) xlSheet.Cells.Select() With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With xlSheet.Rows("1:1").Select : myExcel.Selection.RowHeight = 95 xlSheet.Rows("2:2").Select With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 18 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With xlSheet.Rows("3:4").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 = 6 : xlSheet.Columns("D:F").Select : myExcel.Selection.ColumnWidth = 10 xlSheet.Columns("G:G").Select : myExcel.Selection.ColumnWidth = 20 : xlSheet.Columns("C:C").Select : myExcel.Selection.ColumnWidth = 6 xlSheet.Columns("B:B").Select : myExcel.Selection.ColumnWidth = 75 xlSheet.Range("A2:G2").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:E3").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 With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With xlSheet.Range("A4:E4").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 With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With xlSheet.Range("F3:G3").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 With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With xlSheet.Range("F4:G4").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 With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With xlSheet.Range("A5:A6").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("B5:B6").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("C5:C6").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("D5:F5").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("G5:G6").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("D6:F6").Select() With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With xlSheet.Range("B7:B" & 7 + NB1 + 1).Select() With myExcel.Selection : .HorizontalAlignment = xlGeneral : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With xlSheet.Rows("7:" & 7 + NB1 + 1).Select : myExcel.Selection.RowHeight = 25 xlSheet.Range("A5:G" & 7 + NB1 + 1).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 myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : 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 myExcel.ActiveWindow.DisplayGridlines = False xlSheet.Range("E" & 7 + NB1 + 2 & ":G" & 7 + NB1 + 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("E" & 7 + NB1 + 3 & ":G" & 7 + NB1 + 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.Rows(7 + NB1 + 4 & ":" & 7 + NB1 + 4).Select : myExcel.Selection.RowHeight = 70 xlSheet.Range("A" & 7 + NB1 + 2 & ":G" & 7 + NB1 + 4).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 = xlMedium : End With With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone xlSheet.Range("A7:A" & 7 + NB1 + 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 xlSheet.Range("C7:D" & 7 + NB1 + 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 xlSheet.Range("G7:G" & 7 + NB1 + 1).Select() With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With xlSheet.Range("A3:E4").Select() With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : End With xlSheet.Range("B7:B" & 7 + NB1 + 1).Select() With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : End With Dim 攔寬 As Single xlSheet.Rows("3:3").Select : xlSheet.Rows("3:3").EntireRow.AutoFit 攔寬 = xlSheet.Rows("3:3").RowHeight xlSheet.Rows("3:3").Select : myExcel.Selection.RowHeight = 攔寬 + 20 xlSheet.Rows("4:4").Select : xlSheet.Rows("4:4").EntireRow.AutoFit 攔寬 = xlSheet.Rows("4:4").RowHeight xlSheet.Rows("4:4").Select : myExcel.Selection.RowHeight = 攔寬 + 20 xlSheet.Rows("7:" & 7 + NB1 + 1).Select : xlSheet.Rows("7:" & 7 + NB1 + 1).EntireRow.AutoFit For i As Integer = 7 To 7 + NB1 + 1 xlSheet.Rows(i & ":" & i).Select 攔寬 = xlSheet.Rows(i & ":" & i).RowHeight xlSheet.Rows(i & ":" & i).Select : myExcel.Selection.RowHeight = 攔寬 + 20 Next End Sub Private Sub HH(myExcel As Application, xlSheet As Worksheet) Clipboard.SetDataObject(PictureBox1.Image) xlSheet.Range("B1").Select() myExcel.ActiveSheet.Pictures.Paste.Select myExcel.Selection.ShapeRange.Height = 72 myExcel.Selection.ShapeRange.IncrementLeft(3) myExcel.Selection.ShapeRange.IncrementTop(6) End Sub Private Sub II(myExcel As Application, xlSheet As Worksheet) Clipboard.SetDataObject(PictureBox2.Image) xlSheet.Range("B1").Select() myExcel.ActiveSheet.Pictures.Paste.Select myExcel.Selection.ShapeRange.Height = 70 myExcel.Selection.ShapeRange.IncrementLeft(3) myExcel.Selection.ShapeRange.IncrementTop(7) End Sub Private Sub CC(ByVal myExcel As Application, ByVal xlSheet As Worksheet) Clipboard.SetDataObject(PictureBox1.Image) xlSheet.Range("A1").Select() myExcel.ActiveSheet.Pictures.Paste.Select myExcel.Selection.ShapeRange.Height = 93 myExcel.Selection.ShapeRange.IncrementLeft(50) myExcel.Selection.ShapeRange.IncrementTop(0) End Sub Private Sub DD(ByVal myExcel As Application, ByVal xlSheet As Worksheet) Clipboard.SetDataObject(PictureBox2.Image) xlSheet.Range("A1").Select() myExcel.ActiveSheet.Pictures.Paste.Select myExcel.Selection.ShapeRange.Height = 93 myExcel.Selection.ShapeRange.IncrementLeft(50) myExcel.Selection.ShapeRange.IncrementTop(0) End Sub Private Sub FF(ByVal myExcel As Application, ByVal xlSheet As Worksheet) If Strings.Left(合約編號_tb.Text, 2) = "HX" Then myExcel.ActiveSheet.PageSetup.CenterHeaderPicture.Filename = Str01 & "\HXBWLOG.png" Else myExcel.ActiveSheet.PageSetup.CenterHeaderPicture.Filename = Str01 & "\PGSBWLOG.png" End If myExcel.Application.PrintCommunication = False : With myExcel.ActiveSheet.PageSetup : .PrintTitleRows = "$1:$6" : .PrintTitleColumns = "" : End With myExcel.Application.PrintCommunication = True : myExcel.ActiveSheet.PageSetup.PrintArea = "" : myExcel.Application.PrintCommunication = False With myExcel.ActiveSheet.PageSetup : .LeftHeader = "" .CenterHeader = "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "&G" .RightHeader = "" : .LeftFooter = "" : .CenterFooter = "第 &P 頁，共 &N 頁" : .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 : .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 風格() If 深色風格 = False Then Me.BackColor = SystemColors.Control 工程執行主管_lb.ForeColor = Color.FromArgb(192, 0, 0) : Label372.ForeColor = Color.FromArgb(192, 0, 0) : Label375.ForeColor = Color.FromArgb(192, 0, 0) Label378.ForeColor = Color.FromArgb(192, 0, 0) Label1.ForeColor = Color.Green : Label414.ForeColor = Color.Green : Label3.ForeColor = Color.Green : Label4.ForeColor = Color.Green Label6.ForeColor = Color.Green : 已驗收_ch.ForeColor = Color.Green Label5.ForeColor = Color.Blue : Label8.ForeColor = Color.Blue : Label9.ForeColor = Color.Blue : Label12.ForeColor = Color.Blue Label2.ForeColor = Color.Black : Label7.ForeColor = Color.Black : Label11.ForeColor = Color.Black : 詳細資料2_ch.ForeColor = Color.Black Label2.BackColor = SystemColors.Control : Label11.BackColor = SystemColors.Control 合約編號1_cb.BackColor = Color.White : 合約編號1_cb.ForeColor = Color.Blue : 工程執行主管_cb.BackColor = Color.White : 工程執行主管_cb.ForeColor = Color.Blue 保固_cb.BackColor = Color.White : 保固_cb.ForeColor = Color.Blue 關鍵字搜尋_tb.BackColor = Color.White : 關鍵字搜尋_tb.ForeColor = Color.Black : 合約編號_tb.BackColor = Color.White : 合約編號_tb.ForeColor = Color.Black 客戶名稱_tb.BackColor = Color.White : 客戶名稱_tb.ForeColor = Color.Black : 工程名稱_中_tb.BackColor = Color.White : 工程名稱_中_tb.ForeColor = Color.Black 工程名稱_英_tb.BackColor = Color.White : 工程名稱_英_tb.ForeColor = Color.Black : 備註_tb.BackColor = Color.White : 備註_tb.ForeColor = Color.Black 語轉扭_bt.BackColor = Color.White : 語轉扭_bt.ForeColor = Color.Black : 查詢_bt.BackColor = Color.White : 查詢_bt.ForeColor = Color.Black 縮放2_bt.BackColor = Color.White : 縮放2_bt.ForeColor = Color.Black : 列印_bt.BackColor = Color.White : 列印_bt.ForeColor = Color.Black 解鎖_bt.BackColor = Color.White : 解鎖_bt.ForeColor = Color.Black : 修改存檔_bt.BackColor = Color.White : 修改存檔_bt.ForeColor = Color.Black 驗收完成_bt.BackColor = Color.White : 驗收完成_bt.ForeColor = Color.Black 合約_dgv.EnableHeadersVisualStyles = True : 合約_dgv.BackgroundColor = Color.White : 合約_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black 合約_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightPink 合約_dgv.DefaultCellStyle.BackColor = Color.White : 合約_dgv.DefaultCellStyle.ForeColor = Color.Black 報價明細表_dgv.EnableHeadersVisualStyles = True : 報價明細表_dgv.BackgroundColor = Color.White : 報價明細表_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black 報價明細表_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightPink 報價明細表_dgv.DefaultCellStyle.BackColor = Color.White : 報價明細表_dgv.DefaultCellStyle.ForeColor = Color.Black Else Me.BackColor = Color.Black 工程執行主管_lb.ForeColor = Color.LightPink : Label372.ForeColor = Color.LightPink : Label375.ForeColor = Color.LightPink Label378.ForeColor = Color.LightPink Label1.ForeColor = Color.LightGreen : Label414.ForeColor = Color.LightGreen : Label3.ForeColor = Color.LightGreen : Label4.ForeColor = Color.LightGreen Label6.ForeColor = Color.LightGreen : 已驗收_ch.ForeColor = Color.LightGreen Label5.ForeColor = Color.LightBlue : Label8.ForeColor = Color.LightBlue : Label9.ForeColor = Color.LightBlue : Label12.ForeColor = Color.LightBlue Label2.ForeColor = Color.White : Label7.ForeColor = Color.White : Label11.ForeColor = Color.White : 詳細資料2_ch.ForeColor = Color.White Label2.BackColor = Color.Black : Label11.BackColor = Color.Black 合約編號1_cb.BackColor = Color.DimGray : 合約編號1_cb.ForeColor = Color.LightBlue : 工程執行主管_cb.BackColor = Color.DimGray : 工程執行主管_cb.ForeColor = Color.LightBlue 保固_cb.BackColor = Color.DimGray : 保固_cb.ForeColor = Color.LightBlue 關鍵字搜尋_tb.BackColor = Color.DimGray : 關鍵字搜尋_tb.ForeColor = Color.White : 合約編號_tb.BackColor = Color.DimGray : 合約編號_tb.ForeColor = Color.White 客戶名稱_tb.BackColor = Color.DimGray : 客戶名稱_tb.ForeColor = Color.White : 工程名稱_中_tb.BackColor = Color.DimGray : 工程名稱_中_tb.ForeColor = Color.White 工程名稱_英_tb.BackColor = Color.DimGray : 工程名稱_英_tb.ForeColor = Color.White : 備註_tb.BackColor = Color.DimGray : 備註_tb.ForeColor = Color.White 語轉扭_bt.BackColor = Color.DimGray : 語轉扭_bt.ForeColor = Color.White : 查詢_bt.BackColor = Color.DimGray : 查詢_bt.ForeColor = Color.White 縮放2_bt.BackColor = Color.DimGray : 縮放2_bt.ForeColor = Color.White : 列印_bt.BackColor = Color.DimGray : 列印_bt.ForeColor = Color.White 解鎖_bt.BackColor = Color.DimGray : 解鎖_bt.ForeColor = Color.White : 修改存檔_bt.BackColor = Color.DimGray : 修改存檔_bt.ForeColor = Color.White 驗收完成_bt.BackColor = Color.DimGray : 驗收完成_bt.ForeColor = Color.White 合約_dgv.EnableHeadersVisualStyles = False : 合約_dgv.BackgroundColor = Color.DimGray : 合約_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White 合約_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 合約_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray 合約_dgv.DefaultCellStyle.BackColor = Color.Black : 合約_dgv.DefaultCellStyle.ForeColor = Color.White 報價明細表_dgv.EnableHeadersVisualStyles = False : 報價明細表_dgv.BackgroundColor = Color.DimGray : 報價明細表_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White 報價明細表_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 報價明細表_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray 報價明細表_dgv.DefaultCellStyle.BackColor = Color.Black : 報價明細表_dgv.DefaultCellStyle.ForeColor = Color.White End If End Sub End Class