HX-PGS-ERP-SYS
/
Calculator-SYS-LEEHSIEHJUI
보기 4
좋아요 0
포크 0
코드 이슈 0 풀 리퀘스트 0 릴리즈 0 위키 Activity
설명 없음
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
7 커밋
1 브렌치
트리: dfcdd8ea19
브랜치 태그
${ item.name }
Create branch ${ searchTerm }
from 'dfcdd8ea19'
${ noResults }
Calculator-SYS-LEEHSIEHJUI/Calculator-SYS/07、採購系統管理/採購單歷史檔案.vb

採購單歷史檔案.vb 102KB
히스토리 Raw

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093 
  1. Option Strict Off

  2. Imports System.IO

  3. Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle

  4. Imports Microsoft.Office.Interop.Excel.Constants

  5. Imports Microsoft.Office.Interop.Excel.XlBordersIndex

  6. Imports Microsoft.Office.Interop.Excel.XlLineStyle

  7. Imports Microsoft.Office.Interop.Excel.XlBorderWeight

  8. Imports Microsoft.Office.Interop.Excel.XlThemeFont

  9. Imports Microsoft.Office.Interop.Excel.XlThemeColor

  10. Imports Microsoft.Office.Interop.Excel.XlWindowState

  11. Imports Microsoft.Office.Interop.Excel

  12. Public Class 採購單歷史檔案

  13.     ReadOnly ds8 As New DataSet : Dim xlApp As Application : Dim xlBook As Workbook : Dim xlSheet As Worksheet

  14.     Dim N1, N2 As Integer : Dim 新項次 As String : Dim NUM1 As Integer : Private ReadOnly 對話框(7) As String : Dim 物料規格 As String

  15.     'ReadOnly QRCODE As DotNetBarcode = New DotNetBarcode

  16.     Private Sub Set_清單()

  17.         Dim ds As New DataSet : 明細_dgv.DataSource = Nothing : ds.Clear()

  18.         明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  19.         明細_dgv.ColumnHeadersHeight = 25

  20.         明細_dgv.AllowUserToAddRows = False

  21.         If 小間距1_ch.Checked = False And 中間距1_ch.Checked = False And 大間距1_ch.Checked = True Then : 明細_dgv.RowTemplate.Height = 75

  22.         ElseIf 小間距1_ch.Checked = False And 中間距1_ch.Checked = True And 大間距1_ch.Checked = False Then : 明細_dgv.RowTemplate.Height = 45

  23.         ElseIf 小間距1_ch.Checked = True And 中間距1_ch.Checked = False And 大間距1_ch.Checked = False Then : 明細_dgv.RowTemplate.Height = 25 : End If

  24. 

  25.         SQL_建築物料採購單一覽表_明細()

  26.         da.Fill(ds) : 明細_dgv.DataSource = ds.Tables(0) : conn.Close()

  27. 

  28.         明細_dgv.Columns(0).Visible = False : 明細_dgv.Columns(1).FillWeight = 80 : 明細_dgv.Columns(2).FillWeight = 80 : 明細_dgv.Columns(3).FillWeight = 250

  29.         明細_dgv.Columns(4).FillWeight = 245 : 明細_dgv.Columns(5).FillWeight = 80 : 明細_dgv.Columns(6).FillWeight = 80 : 明細_dgv.Columns(7).FillWeight = 80

  30.         明細_dgv.Columns(8).FillWeight = 80 : 明細_dgv.Columns(9).Visible = False : 明細_dgv.Columns(10).Visible = False : 明細_dgv.Columns(11).Visible = False

  31.         明細_dgv.Columns(12).Visible = False : 明細_dgv.Columns(13).Visible = False : 明細_dgv.Columns(14).Visible = False : 明細_dgv.Columns(15).Visible = False

  32.         明細_dgv.Columns(16).Visible = False : 明細_dgv.Columns(17).Visible = False : 明細_dgv.Columns(18).Visible = False : 明細_dgv.Columns(19).Visible = False

  33.         明細_dgv.Columns(20).Visible = False : 明細_dgv.Columns(21).Visible = False : 明細_dgv.Columns(22).Visible = False : 明細_dgv.Columns(23).Visible = False

  34.         明細_dgv.Columns(24).Visible = False : 明細_dgv.Columns(25).FillWeight = 80

  35.         明細_dgv.Columns(6).DefaultCellStyle.Format = "#,##0" : 明細_dgv.Columns(7).DefaultCellStyle.Format = "#,##0" : 明細_dgv.Columns(8).DefaultCellStyle.Format = "#,##0"

  36.         明細_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

  37.         明細_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

  38.         明細_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  39.         明細_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  40.         If 低網速模式 = False Then

  41.             明細_dgv.Columns("Image").FillWeight = 80 : 明細_dgv.Columns("Image").Visible = True

  42.             Dim mycol As DataGridViewImageColumn = 明細_dgv.Columns("Image")

  43.             mycol.ImageLayout = DataGridViewImageCellLayout.Zoom

  44.         Else

  45.             If 明細_dgv.Columns.Count = 27 Then

  46.                 明細_dgv.Columns("Image").Visible = False

  47.             End If

  48.         End If

  49.         新項次 = "00"

  50.         For i As Integer = 0 To 明細_dgv.Rows.Count - 1

  51.             NUM1 = Double.Parse(新項次) + 1

  52.             If NUM1 < 10 Then : 新項次 = "0" & NUM1

  53.             ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1

  54.             End If

  55.             明細_dgv.Rows(i).Cells(表頭(2)).Value = 新項次

  56. 

  57. 

  58.             '-------------------------規格合併呈現----------------------------------------------------------------------------------------------------------------------------------------

  59. 

  60.             If i = 0 Then

  61.                 PA3 = 明細_dgv.Rows(i).Cells("規格庫抬頭指定").Value

  62.                 SQL_規格庫抬頭讀取()

  63.                 If dr.Read() Then

  64.                     AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8")

  65.                 End If

  66.                 conn.Close()

  67.             Else

  68.                 If 明細_dgv.Rows(i).Cells("規格庫抬頭指定").Value.ToString <> 明細_dgv.Rows(i - 1).Cells("規格庫抬頭指定").Value.ToString Then

  69.                     AAA1 = "" : AAA2 = "" : AAA3 = "" : AAA4 = "" : AAA5 = "" : AAA6 = "" : AAA7 = "" : AAA8 = ""   ' 不同的抬頭入資料前，先清除

  70.                     PA3 = 明細_dgv.Rows(i).Cells("規格庫抬頭指定").Value

  71.                     SQL_規格庫抬頭讀取()

  72.                     If dr.Read() Then

  73.                         AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8")

  74.                     End If

  75.                     conn.Close()

  76.                 End If

  77.             End If

  78.             Dim ZA1, ZA2, ZA3, ZA4, ZA5, ZA6, ZA7, ZA8 As String : 物料規格 = ""

  79.             If 詳細資料2_ch.Checked = True Then

  80.                 If 明細_dgv.Rows(i).Cells(表頭(13)).Value.ToString <> "" Then

  81.                     ZA1 = AAA1 & "=" & 明細_dgv.Rows(i).Cells(表頭(13)).Value.ToString : 物料規格 = ZA1 : End If

  82.                 If 明細_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then : ZA2 = AAA2 & "=" & 明細_dgv.Rows(i).Cells("A2").Value

  83.                     If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + "、" + ZA2 : End If : End If

  84.                 If 明細_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then : ZA3 = AAA3 & "=" & 明細_dgv.Rows(i).Cells("A3").Value

  85.                     If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + "、" + ZA3 : End If : End If

  86.                 If 明細_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then : ZA4 = AAA4 & "=" & 明細_dgv.Rows(i).Cells("A4").Value

  87.                     If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + "、" + ZA4 : End If : End If

  88.                 If 明細_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then : ZA5 = AAA5 & "=" & 明細_dgv.Rows(i).Cells("A5").Value

  89.                     If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + "、" + ZA5 : End If : End If

  90.                 If 明細_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then : ZA6 = AAA6 & "=" & 明細_dgv.Rows(i).Cells("A6").Value

  91.                     If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + "、" + ZA6 : End If : End If

  92.                 If 明細_dgv.Rows(i).Cells("A7").Value.ToString <> "" Then : ZA7 = AAA7 & "=" & 明細_dgv.Rows(i).Cells("A7").Value

  93.                     If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + "、" + ZA7 : End If : End If

  94.                 If 明細_dgv.Rows(i).Cells("A8").Value.ToString <> "" Then : ZA8 = AAA8 & "=" & 明細_dgv.Rows(i).Cells("A8").Value

  95.                     If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If

  96.             Else

  97.                 If 明細_dgv.Rows(i).Cells(表頭(13)).Value.ToString <> "" Then : ZA1 = 明細_dgv.Rows(i).Cells(表頭(13)).Value.ToString : 物料規格 = ZA1 : End If

  98.                 If 明細_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then

  99.                     ZA2 = 明細_dgv.Rows(i).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + "、" + ZA2 : End If : End If

  100.                 If 明細_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then

  101.                     ZA3 = 明細_dgv.Rows(i).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + "、" + ZA3 : End If : End If

  102.                 If 明細_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then

  103.                     ZA4 = 明細_dgv.Rows(i).Cells("A4").Value : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + "、" + ZA4 : End If : End If

  104.                 If 明細_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then

  105.                     ZA5 = 明細_dgv.Rows(i).Cells("A5").Value : If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + "、" + ZA5 : End If : End If

  106.                 If 明細_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then

  107.                     ZA6 = 明細_dgv.Rows(i).Cells("A6").Value : If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + "、" + ZA6 : End If : End If

  108.                 If 明細_dgv.Rows(i).Cells("A7").Value.ToString <> "" Then

  109.                     ZA7 = 明細_dgv.Rows(i).Cells("A7").Value : If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + "、" + ZA7 : End If : End If

  110.                 If 明細_dgv.Rows(i).Cells("A8").Value.ToString <> "" Then

  111.                     ZA8 = 明細_dgv.Rows(i).Cells("A8").Value : If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If

  112.             End If

  113.             明細_dgv.Rows(i).Cells(表頭(13)).Value = 物料規格

  114.         Next i

  115.         總金額計算() : Set_清單_1()

  116.     End Sub

  117.     Private Sub Set_清單_1()

  118.         Dim ds5 As New DataSet : 明細1_dgv.DataSource = Nothing : ds5.Clear()

  119.         明細1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  120.         明細1_dgv.ColumnHeadersHeight = 40

  121.         明細1_dgv.AllowUserToAddRows = False

  122.         明細1_dgv.RowTemplate.Height = 35

  123. 

  124.         SQL_建築物料採購單一覽表_明細()

  125.         da.Fill(ds5) : 明細1_dgv.DataSource = ds5.Tables(0) : conn.Close()

  126. 

  127.         If 低網速模式 = False Then

  128.             明細1_dgv.Columns("Image").FillWeight = 80 : 明細1_dgv.Columns("Image").Visible = True

  129.             Dim mycol As DataGridViewImageColumn = 明細1_dgv.Columns("Image")

  130.             mycol.ImageLayout = DataGridViewImageCellLayout.Zoom

  131.         Else

  132.             If 明細1_dgv.Columns.Count = 27 Then

  133.                 明細1_dgv.Columns("Image").Visible = False

  134.             End If

  135.         End If

  136.         新項次 = "00"

  137.         For i As Integer = 0 To 明細1_dgv.Rows.Count - 1

  138.             NUM1 = Double.Parse(新項次) + 1

  139.             If NUM1 < 10 Then : 新項次 = "0" & NUM1

  140.             ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1

  141.             End If

  142.             明細1_dgv.Rows(i).Cells(表頭(2)).Value = 新項次

  143.             '-------------------------------------------------------------------------------------------------------------------------

  144.             If i = 0 Then

  145.                 AAA1 = "" : AAA2 = "" : AAA3 = "" : AAA4 = "" : AAA5 = "" : AAA6 = "" : AAA7 = "" : AAA8 = ""

  146.                 PA3 = 明細1_dgv.Rows(i).Cells("規格庫抬頭指定").Value : PA20 = 系統語言_cb.Text

  147.                 SQL_規格庫抬頭讀取_列印用()

  148.                 If dr.Read() Then

  149.                     AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8")

  150.                 End If

  151.                 conn.Close()

  152.             Else

  153.                 If 明細1_dgv.Rows(i).Cells("規格庫抬頭指定").Value.ToString <> 明細1_dgv.Rows(i - 1).Cells("規格庫抬頭指定").Value.ToString Then

  154.                     AAA1 = "" : AAA2 = "" : AAA3 = "" : AAA4 = "" : AAA5 = "" : AAA6 = "" : AAA7 = "" : AAA8 = ""

  155.                     PA3 = 明細1_dgv.Rows(i).Cells("規格庫抬頭指定").Value : PA20 = 系統語言_cb.Text

  156.                     SQL_規格庫抬頭讀取_列印用()

  157.                     If dr.Read() Then

  158.                         AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8")

  159.                     End If

  160.                     conn.Close()

  161.                 End If

  162.             End If

  163.             Dim ZA1, ZA2, ZA3, ZA4, ZA5, ZA6, ZA7, ZA8 As String : 物料規格 = ""

  164.             If 詳細資料2_ch.Checked = True Then

  165.                 If 明細1_dgv.Rows(i).Cells(表頭(13)).Value.ToString <> "" Then

  166.                     ZA1 = AAA1 & "=" & 明細1_dgv.Rows(i).Cells(表頭(13)).Value.ToString : 物料規格 = ZA1 : End If

  167.                 If 明細1_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then : ZA2 = AAA2 & "=" & 明細1_dgv.Rows(i).Cells("A2").Value

  168.                     If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + "、" + ZA2 : End If : End If

  169.                 If 明細1_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then : ZA3 = AAA3 & "=" & 明細1_dgv.Rows(i).Cells("A3").Value

  170.                     If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + "、" + ZA3 : End If : End If

  171.                 If 明細1_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then : ZA4 = AAA4 & "=" & 明細1_dgv.Rows(i).Cells("A4").Value

  172.                     If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + "、" + ZA4 : End If : End If

  173.                 If 明細1_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then : ZA5 = AAA5 & "=" & 明細1_dgv.Rows(i).Cells("A5").Value

  174.                     If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + "、" + ZA5 : End If : End If

  175.                 If 明細1_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then : ZA6 = AAA6 & "=" & 明細1_dgv.Rows(i).Cells("A6").Value

  176.                     If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + "、" + ZA6 : End If : End If

  177.                 If 明細1_dgv.Rows(i).Cells("A7").Value.ToString <> "" Then : ZA7 = AAA7 & "=" & 明細1_dgv.Rows(i).Cells("A7").Value

  178.                     If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + "、" + ZA7 : End If : End If

  179.                 If 明細1_dgv.Rows(i).Cells("A8").Value.ToString <> "" Then : ZA8 = AAA8 & "=" & 明細1_dgv.Rows(i).Cells("A8").Value

  180.                     If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If

  181.             Else

  182.                 If 明細1_dgv.Rows(i).Cells(表頭(13)).Value.ToString <> "" Then : ZA1 = 明細1_dgv.Rows(i).Cells(表頭(13)).Value.ToString : 物料規格 = ZA1 : End If

  183.                 If 明細1_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then

  184.                     ZA2 = 明細1_dgv.Rows(i).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + "、" + ZA2 : End If : End If

  185.                 If 明細1_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then

  186.                     ZA3 = 明細1_dgv.Rows(i).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + "、" + ZA3 : End If : End If

  187.                 If 明細1_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then

  188.                     ZA4 = 明細1_dgv.Rows(i).Cells("A4").Value : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + "、" + ZA4 : End If : End If

  189.                 If 明細1_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then

  190.                     ZA5 = 明細1_dgv.Rows(i).Cells("A5").Value : If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + "、" + ZA5 : End If : End If

  191.                 If 明細1_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then

  192.                     ZA6 = 明細1_dgv.Rows(i).Cells("A6").Value : If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + "、" + ZA6 : End If : End If

  193.                 If 明細1_dgv.Rows(i).Cells("A7").Value.ToString <> "" Then

  194.                     ZA7 = 明細1_dgv.Rows(i).Cells("A7").Value : If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + "、" + ZA7 : End If : End If

  195.                 If 明細1_dgv.Rows(i).Cells("A8").Value.ToString <> "" Then

  196.                     ZA8 = 明細1_dgv.Rows(i).Cells("A8").Value : If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If

  197.             End If

  198.             明細1_dgv.Rows(i).Cells(表頭(13)).Value = 物料規格

  199.         Next i

  200.     End Sub

  201.     Private Sub Set_清單1()

  202.         Dim ds1 As New DataSet : 已核准_dgv.DataSource = Nothing : ds1.Clear()

  203.         已核准_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  204.         已核准_dgv.ColumnHeadersHeight = 40 : 已核准_dgv.RowTemplate.Height = 30

  205.         已核准_dgv.AllowUserToAddRows = False

  206.         If 全部資料_cb.Checked = True Then : SQL_建築物料採購單一覽表_已核准() : Else : SQL_建築物料採購單一覽表_已核准1() : End If

  207.         da.Fill(ds1) : 已核准_dgv.DataSource = ds1.Tables(0) : conn.Close()

  208.         已核准_dgv.Columns(表頭(0)).FillWeight = 40 : 已核准_dgv.Columns(表頭(1)).FillWeight = 40 : 已核准_dgv.Columns(25).FillWeight = 40

  209.         已核准_dgv.Columns(21).FillWeight = 180 : 已核准_dgv.Columns(26).FillWeight = 40 : 已核准_dgv.Columns(27).FillWeight = 40

  210.         已核准_dgv.Columns(22).DefaultCellStyle.Format = "#,##0" : 已核准_dgv.Columns(23).DefaultCellStyle.Format = "#,##0"

  211.         已核准_dgv.Columns(24).DefaultCellStyle.Format = "#,##0"

  212.         已核准_dgv.Columns(22).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  213.         已核准_dgv.Columns(23).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  214.         已核准_dgv.Columns(24).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  215.         已核准_dgv.EditMode = DataGridViewEditMode.EditOnEnter

  216. 

  217.         Dim mycol1 As DataGridViewImageColumn = 已核准_dgv.Columns("Select All") : mycol1.ImageLayout = DataGridViewImageCellLayout.Zoom

  218.         Dim mycol2 As DataGridViewImageColumn = 已核准_dgv.Columns("To DK") : mycol2.ImageLayout = DataGridViewImageCellLayout.Zoom

  219.         Dim mycol3 As DataGridViewImageColumn = 已核准_dgv.Columns("Save") : mycol3.ImageLayout = DataGridViewImageCellLayout.Zoom

  220.         For i As Integer = 0 To 已核准_dgv.Rows.Count - 1

  221.             Dim 折扣, 稅金 As Long : 折扣 = 0 : 稅金 = 0

  222.             已核准_dgv.Rows(i).Cells("Select All").Value = My.Resources.add_1 : 已核准_dgv.Rows(i).Cells("To DK").Value = My.Resources.Money2

  223.             已核准_dgv.Rows(i).Cells("Save").Value = My.Resources.SAVER : 已核准_dgv.Rows(i).Cells(表頭(8)).Value = 0

  224.             If 已核准_dgv.Rows(i).Cells("DISC").Value <> 0 Then : 折扣 = 已核准_dgv.Rows(i).Cells(表頭(7)).Value / 100 * 已核准_dgv.Rows(i).Cells("DISC").Value : End If

  225.             If 已核准_dgv.Rows(i).Cells("PPN").Value <> 0 Then : 稅金 = 已核准_dgv.Rows(i).Cells(表頭(7)).Value / 100 * 已核准_dgv.Rows(i).Cells("PPN").Value : End If

  226.             已核准_dgv.Rows(i).Cells(表頭(7)).Value += (稅金 - 折扣)

  227.         Next

  228.         已核准_dgv.Columns(0).FillWeight = 125

  229.         For i As Integer = 1 To 20 : 已核准_dgv.Columns(i).Visible = False : Next

  230. 

  231.         If 已核准_dgv.Size.Width = 255 Then

  232.             For i As Integer = 21 To 27 : 已核准_dgv.Columns(i).Visible = False : Next

  233.         Else

  234.             For i As Integer = 21 To 27 : 已核准_dgv.Columns(i).Visible = True : Next

  235.         End If

  236.         已核准_dgv.Columns(0).ReadOnly = True : 已核准_dgv.Columns(21).ReadOnly = True : 已核准_dgv.Columns(23).ReadOnly = True : 已核准_dgv.Columns(24).ReadOnly = True

  237.         已核准_dgv.Columns(25).ReadOnly = True : 已核准_dgv.Columns(26).ReadOnly = True : 已核准_dgv.Columns(27).ReadOnly = True : 已核准_dgv.Columns(28).ReadOnly = True

  238.         已核准_dgv.Columns(29).ReadOnly = True

  239.     End Sub

  240.     Private Sub 打開清單()

  241.         If 已核准_dgv.Size.Width = 255 Then

  242.             已核准_dgv.Size = New Size(915, 已核准_dgv.Size.Height)

  243.             For i As Integer = 21 To 27 : 已核准_dgv.Columns(i).Visible = True : Next

  244.         Else

  245.             已核准_dgv.Size = New Size(255, 已核准_dgv.Size.Height)

  246.             For i As Integer = 21 To 27 : 已核准_dgv.Columns(i).Visible = False : Next

  247.         End If

  248.     End Sub

  249.     Private Sub Set_清單2()

  250.         Dim ds2 As New DataSet : 已作廢_dgv.DataSource = Nothing : ds2.Clear()

  251.         已作廢_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  252.         已作廢_dgv.ColumnHeadersHeight = 25

  253.         已作廢_dgv.AllowUserToAddRows = False

  254. 

  255.         SQL_建築物料採購單一覽表_已作廢()

  256.         da.Fill(ds2) : 已作廢_dgv.DataSource = ds2.Tables(0) : conn.Close()

  257. 

  258.         已作廢_dgv.Columns(0).FillWeight = 125 : 已作廢_dgv.Columns(1).Visible = False : 已作廢_dgv.Columns(2).Visible = False : 已作廢_dgv.Columns(3).Visible = False

  259.         已作廢_dgv.Columns(4).Visible = False : 已作廢_dgv.Columns(5).Visible = False : 已作廢_dgv.Columns(6).Visible = False : 已作廢_dgv.Columns(7).Visible = False

  260.         已作廢_dgv.Columns(8).Visible = False : 已作廢_dgv.Columns(9).Visible = False : 已作廢_dgv.Columns(10).Visible = False : 已作廢_dgv.Columns(11).Visible = False

  261.         已作廢_dgv.Columns(12).Visible = False : 已作廢_dgv.Columns(13).Visible = False : 已作廢_dgv.Columns(14).Visible = False : 已作廢_dgv.Columns(15).Visible = False

  262.         已作廢_dgv.Columns(16).Visible = False

  263.     End Sub

  264.     Private Sub ComboBox2下拉表單資料載入()

  265.         SQL_供應商資料表_公司名_下拉用() : 廠商_cb.Items.Clear() : While (dr.Read()) : 廠商_cb.Items.Add(dr("公司名")) : End While : conn.Close()

  266.     End Sub

  267.     Private Sub 總金額計算()

  268.         Dim FFGG As Integer = 0

  269.         總金額_tb.Text = "0"

  270.         For i As Integer = 0 To 明細_dgv.Rows.Count - 1

  271.             明細_dgv.Rows(i).Cells(表頭(27)).Value = 明細_dgv.Rows(i).Cells(表頭(26)).Value * 明細_dgv.Rows(i).Cells(表頭(15)).Value

  272.             FFGG = Val(FFGG) + 明細_dgv.Rows(i).Cells(表頭(27)).Value

  273.         Next i

  274.         折扣金額_tb.Text = Val(折扣比_tb.Text) * FFGG / 100

  275.         If 稅金計算_ch.Checked = True Then

  276.             If 折扣比_tb.Text = "0" Then

  277.                 稅金金額_tb.Text = FFGG * Val(稅金比_tb.Text) / 100

  278.             Else

  279.                 稅金金額_tb.Text = (FFGG - 折扣金額_tb.Text) * Val(稅金比_tb.Text) / 100

  280.             End If

  281.         Else

  282.             稅金金額_tb.Text = "0"

  283.         End If

  284.         總金額_tb.Text = FFGG - Val(折扣金額_tb.Text) + Val(稅金金額_tb.Text)

  285.         折扣金額_tb.Text = Strings.Format(Val(折扣金額_tb.Text), "#,##0") : 稅金金額_tb.Text = Strings.Format(Val(稅金金額_tb.Text), "#,##0")

  286.         總金額_tb.Text = Strings.Format(Val(總金額_tb.Text), "#,##0")

  287.     End Sub

  288.     Private Sub 語言轉換讀取()

  289.         If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If

  290.         一級簽核_lb.Text = 系統語言字典("H208-100-" & 語言) : 二級簽核_lb.Text = 系統語言字典("H208-101-" & 語言) : 已作廢_lb.Text = 系統語言字典("H208-102-" & 語言)

  291.         已核准_lb.Text = 系統語言字典("H208-103-" & 語言) : 表頭(19) = 系統語言字典("H208-104-" & 語言) : 表頭(134) = 系統語言字典("H208-105-" & 語言)

  292.         表頭(27) = 系統語言字典("H208-106-" & 語言) : 表頭(12) = 系統語言字典("H208-107-" & 語言) : 表頭(13) = 系統語言字典("H208-108-" & 語言)

  293.         表頭(14) = 系統語言字典("H208-109-" & 語言) : 表頭(16) = 系統語言字典("H208-110-" & 語言) : 表頭(18) = 系統語言字典("H208-111-" & 語言)

  294.         表頭(26) = 系統語言字典("H208-112-" & 語言) : 表頭(2) = 系統語言字典("H208-113-" & 語言) : 表頭(15) = 系統語言字典("H208-114-" & 語言)

  295.         圖片編碼_lb.Text = 系統語言字典("H208-115-" & 語言) : 對話框(0) = 系統語言字典("H208-116-" & 語言) : 選擇公司_lb.Text = 系統語言字典("H208-117-" & 語言)

  296.         總金額_lb.Text = 系統語言字典("H208-118-" & 語言) : 驗證碼_lb.Text = 系統語言字典("H208-119-" & 語言) : 重新整理_tsm.Text = 系統語言字典("H208-120-" & 語言)

  297.         Me.Text = 系統語言字典("H001-169-" & 語言) : 表頭(0) = 系統語言字典("H206-145-" & 語言) : 表頭(1) = 系統語言字典("H206-146-" & 語言)

  298.         對話框(1) = 系統語言字典("H208-121-" & 語言) : 對話框(2) = 系統語言字典("H208-122-" & 語言) : 對話框(3) = 系統語言字典("H208-123-" & 語言)

  299.         對話框(4) = 系統語言字典("H314-117-" & 語言) : 對話框(5) = 系統語言字典("H314-118-" & 語言) : 對話框(6) = 系統語言字典("H314-119-" & 語言)

  300.         對話框(7) = 系統語言字典("H314-122-" & 語言) : 表頭(8) = 系統語言字典("H314-120-" & 語言) : 表頭(9) = 系統語言字典("H314-121-" & 語言)

  301.         表頭(6) = 系統語言字典("H299-109-" & 語言) : 表頭(7) = 系統語言字典("H304-103-" & 語言)

  302.     End Sub

  303.     Private Sub 採購單歷史檔案_Load(sender As Object, e As EventArgs) Handles MyBase.Load

  304.         Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True

  305.         風格() : H(208) = True : 介面 = "H208" : 語言轉換讀取() : 顯示說明(999, False) : Panel1.SendToBack()

  306.         核對員_tb.Visible = False : 核對日期_tb.Visible = False : 詢價員_tb.Visible = False : 尋價日期_tb.Visible = False

  307.         驗證碼1_tb.Visible = False : 供應商編碼_tb.Visible = False : 系統語言_cb.Text = "Indonesian"

  308. 

  309.         SQL_採購單控制表轉財務金額_歸零() : ComboBox2下拉表單資料載入() : Set_清單1() : Set_清單2()

  310.         MyMod.清單字體大小調整()

  311.         已核准_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)

  312.         明細_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)

  313.     End Sub

  314.     Private Sub 採購單歷史檔案_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged

  315.         MyMod.清單字體大小調整()

  316.         已核准_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)

  317.         明細_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)

  318.     End Sub

  319.     Private Sub 採購單詢價_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed

  320.         H(208) = False : MyMod.虛擬桌面開啟()

  321.     End Sub

  322.     Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click

  323.         介面 = "H208" : 語言轉換讀取()

  324.         Set_清單1() : Set_清單2() : Set_清單()

  325.     End Sub

  326.     Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove

  327.         timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True

  328.     End Sub

  329.     Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress

  330.         timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True

  331.     End Sub

  332.     Dim 已超出 As Boolean

  333.     Private Sub 已核准_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 已核准_dgv.RowPostPaint

  334.         Dim linePen As New Pen(Color.Blue, 2)

  335.         If e.RowIndex = 已核准_dgv.Rows.Count - 1 Then : Exit Sub : Else

  336.             If 已核准_dgv(21, e.RowIndex).Value.ToString <> 已核准_dgv(21, e.RowIndex + 1).Value.ToString Then

  337.                 Dim startX As Integer = IIf(已核准_dgv.RowHeadersVisible, 已核准_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1

  338.                 Dim endX As Integer = startX + 已核准_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 已核准_dgv.HorizontalScrollingOffset

  339.                 e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub

  340.             End If

  341.         End If

  342.     End Sub

  343.     Private Sub 已核准_dgv_CellEnter(sender As Object, e As DataGridViewCellEventArgs) Handles 已核准_dgv.CellEndEdit

  344.         If 已核准_dgv.Rows(e.RowIndex).Cells(22).Value > 已核准_dgv.Rows(e.RowIndex).Cells(24).Value - 已核准_dgv.Rows(e.RowIndex).Cells(23).Value Then

  345.             已核准_dgv.Rows(e.RowIndex).Cells(22).Value = 已核准_dgv.Rows(e.RowIndex).Cells(24).Value - 已核准_dgv.Rows(e.RowIndex).Cells(23).Value

  346.         End If

  347.     End Sub

  348.     Private Sub 已核准_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 已核准_dgv.MouseUp

  349.         If 已核准_dgv.SelectedCells.Count > 0 Then

  350.             If 已核准_dgv.SelectedCells(0).ColumnIndex = 25 Then

  351.                 已核准_dgv.Rows(已核准_dgv.SelectedCells(0).RowIndex).Cells(22).Value =

  352.                     已核准_dgv.Rows(已核准_dgv.SelectedCells(0).RowIndex).Cells(24).Value - 已核准_dgv.Rows(已核准_dgv.SelectedCells(0).RowIndex).Cells(23).Value

  353.             ElseIf 已核准_dgv.SelectedCells(0).ColumnIndex = 26 Then

  354.                 轉財務單.PerformClick()

  355.             ElseIf 已核准_dgv.SelectedCells(0).ColumnIndex = 27 Then

  356.                 If 財物支付單申請_傳票.申請金額_nud.Value <> 0 Then : PA21 = "" : PA22 = "" : PA23 = "" : PA24 = "" : PA25 = "" : PA26 = ""

  357.                     If 財物支付單申請_傳票.支付對象_tb.Text = "" Then : PA21 = 對話框(4) : PA22 = " " & 財物支付單申請_傳票.Label18.Text & " " : PA26 = " " & 對話框(5) & " " : End If

  358.                     If 財物支付單申請_傳票.營行帳號_tb.Text = "" Then : PA21 = 對話框(4) : PA23 = " " & 財物支付單申請_傳票.Label15.Text & " " : PA26 = " " & 對話框(5) & " " : End If

  359.                     If 財物支付單申請_傳票.支付銀行_tb.Text = "" Then : PA21 = 對話框(4) : PA24 = " " & 財物支付單申請_傳票.Label17.Text & " " : PA26 = " " & 對話框(5) & " " : End If

  360.                     If 財物支付單申請_傳票.銀行支行_tb.Text = "" Then : PA21 = 對話框(4) : PA25 = " " & 財物支付單申請_傳票.Label16.Text & " " : PA26 = " " & 對話框(5) & " " : End If

  361.                     MGB(對話框(7) & vbCrLf & PA21 & PA22 & PA23 & PA24 & PA25 & PA26, 2) : 首次開啟 = False

  362.                     If 訊息回應 = "YES" Then

  363.                         財物支付單申請_傳票.開立收支單1_bt.PerformClick()

  364.                         Dim XS As Integer = 0 : Dim SRTG As String = ""

  365.                         Dim currentTime As DateTime = DateTime.Now

  366.                         For i As Integer = 0 To 已核准_dgv.Rows.Count - 1

  367.                             If 已核准_dgv.Rows(i).Cells(22).Value <> 0 Then

  368.                                 If XS < 9 Then : SRTG = "HP" & currentTime.ToString("yyyyMMddHHmmss") & "00" & XS + 1

  369.                                 ElseIf XS < 99 Then : SRTG = "HP" & currentTime.ToString("yyyyMMddHHmmss") & "0" & XS + 1

  370.                                 ElseIf XS < 999 Then : SRTG = "HP" & currentTime.ToString("yyyyMMddHHmmss") & XS + 1 : End If

  371.                                 If XS = 0 Then

  372.                                     SQL2 = "('" & 財物支付單申請_傳票.單號_tb.Text & "', '" & 已核准_dgv.Rows(i).Cells(0).Value.ToString & "', 

  373.                                              '" & 已核准_dgv.Rows(i).Cells(22).Value.ToString & "', '" & SRTG & "')"

  374.                                 Else

  375.                                     SQL2 &= ", ('" & 財物支付單申請_傳票.單號_tb.Text & "', '" & 已核准_dgv.Rows(i).Cells(0).Value.ToString & "', 

  376.                                              '" & 已核准_dgv.Rows(i).Cells(22).Value.ToString & "', '" & SRTG & "')"

  377.                                 End If

  378.                                 PA42 = 已核准_dgv.Rows(i).Cells(22).Value + 已核准_dgv.Rows(i).Cells(23).Value : PA43 = 已核准_dgv.Rows(i).Cells(0).Value.ToString : PA44 = "1"

  379.                                 SQL_採購轉財務金額修改_修改() : XS += 1

  380.                             End If

  381.                         Next : SQL_財務採購關聯表_新增() : Set_清單1() : MGB(對話框(6), 1) : 首次開啟 = False

  382.                     End If : PA21 = "" : PA22 = "" : PA23 = "" : PA24 = "" : PA25 = "" : PA26 = ""

  383.                 End If

  384.             End If

  385.         End If

  386.     End Sub

  387.     Private Sub 明細_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 明細_dgv.MouseUp

  388.         'If 明細_dgv.SelectedCells.Count = 1 Then : 通知訊息 = 明細_dgv.SelectedCells(0).ColumnIndex & "  " & 明細_dgv.SelectedCells(0).RowIndex) : End If

  389.         If 明細_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If

  390.         If 明細_dgv.SelectedCells.Count > 0 Then

  391.             If 明細_dgv.SelectedCells(0).ColumnIndex = 8 Then

  392.                 If 已超出 = False Then

  393.                     Dim x As Double = 0

  394.                     For i As Integer = 0 To 明細_dgv.SelectedCells.Count - 1

  395.                         Dim 變數 As String = "" : Dim 取變數 As String

  396.                         取變數 = 明細_dgv.Rows(明細_dgv.SelectedCells.Item(i).RowIndex).Cells(明細_dgv.SelectedCells.Item(i).ColumnIndex).Value

  397.                         For ii As Integer = 1 To Len(取變數)

  398.                             If ii = 1 Then : 變數 = Strings.Left(取變數, ii) : Else : If Strings.Mid(取變數, ii, 1) <> "," Then : 變數 &= Strings.Mid(取變數, ii, 1) : End If : End If

  399.                         Next : x += Val(變數)

  400.                     Next i : HX_PGS_ERP_SYS.合計_TSSL.Text = "Total : " & Strings.Format(x, "#,##0")

  401.                 Else : HX_PGS_ERP_SYS.合計_TSSL.Text = "Total : " & Strings.Format(0, "#,##0")

  402.                 End If

  403.             Else : 已超出 = True : HX_PGS_ERP_SYS.合計_TSSL.Text = "Total : " & Strings.Format(0, "#,##0")

  404.             End If

  405.         End If

  406.     End Sub

  407.     Private Sub 明細_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 明細_dgv.CellEnter

  408.         總金額_tb.Text = "0"

  409.         For i As Integer = 0 To 明細_dgv.Rows.Count - 1

  410.             明細_dgv.Rows(i).Cells(表頭(27)).Value = 明細_dgv.Rows(i).Cells(表頭(26)).Value * 明細_dgv.Rows(i).Cells(表頭(15)).Value

  411.             總金額_tb.Text = Val(總金額_tb.Text) + 明細_dgv.Rows(i).Cells(表頭(27)).Value

  412.         Next i

  413.         總金額_tb.Text = Strings.Format(Val(總金額_tb.Text), "#,##0")

  414.     End Sub

  415.     Private Sub 明細_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 明細_dgv.CellClick

  416.         If e.RowIndex = -1 Then : Else

  417.             PA1 = 明細_dgv.Rows(e.RowIndex).Cells("群組碼").Value : PA2 = 明細_dgv.Rows(e.RowIndex).Cells("料號原則").Value

  418.             SQL_物料圖庫_圖檔讀取()

  419.             While dr.Read() = True

  420.                 Dim unused As Byte() = New Byte(-1) {}

  421.                 Dim bytes As Byte() = DirectCast(dr.Item("圖檔"), Byte())

  422.                 Dim oStream As New MemoryStream(bytes)

  423.                 物料圖檔_pb.Image = Bitmap.FromStream(oStream)

  424.             End While

  425.             conn.Close() : 物料圖檔_pb.SizeMode = 4

  426.         End If

  427.     End Sub

  428.     Private Sub 已核准_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 已核准_dgv.CellClick

  429.         If e.RowIndex = -1 Then : Else

  430.             採購單號_tb.Text = 已核准_dgv(0, e.RowIndex).Value.ToString : 折扣比_tb.Text = 已核准_dgv(13, e.RowIndex).Value.ToString : 稅金計算_ch.Checked = 已核准_dgv(14, e.RowIndex).Value

  431.             稅金比_tb.Text = 已核准_dgv(15, e.RowIndex).Value.ToString : 核對員_tb.Text = 已核准_dgv(4, e.RowIndex).Value.ToString : 核對日期_tb.Text = 已核准_dgv(5, e.RowIndex).Value.ToString

  432.             詢價員_tb.Text = 已核准_dgv(6, e.RowIndex).Value.ToString : 尋價日期_tb.Text = 已核准_dgv(7, e.RowIndex).Value.ToString : 驗證碼1_tb.Text = 已核准_dgv(11, e.RowIndex).Value.ToString

  433.             審核日期1_tb.Text = 已核准_dgv("一級核准核准日期", e.RowIndex).Value.ToString : 審核日期2_tb.Text = 已核准_dgv("核准日期", e.RowIndex).Value.ToString

  434.             採購人員_tb.Text = 已核准_dgv("採購員", e.RowIndex).Value.ToString : 採購日期_tb.Text = 已核准_dgv("採購日期", e.RowIndex).Value.ToString

  435.             手動號碼_tb.Text = 已核准_dgv("手動號碼", e.RowIndex).Value.ToString

  436.             If Strings.Left(採購單號_tb.Text, 3) = "HXI" Then : 選擇公司_cb.Text = "PT HONG XHE INDUSTRIAL"

  437.             ElseIf Strings.Left(採購單號_tb.Text, 3) = "PGS" Then : 選擇公司_cb.Text = "PT PUNCAK GEMILANG SEMESTA" : End If

  438. 

  439.             供應商編碼_tb.Text = 已核准_dgv(1, e.RowIndex).Value.ToString : conn.Close()

  440.             PA1 = 供應商編碼_tb.Text : SQL_建築物料採購單生成_供應商資料一()

  441.             If dr.Read() Then : 廠商_cb.Text = dr("公司名") : conn.Close() : End If : conn.Close()

  442.             驗證碼_tb.Text = 已核准_dgv(11, e.RowIndex).Value.ToString : 圖片編碼_tb.Text = 已核准_dgv(10, e.RowIndex).Value.ToString

  443.             使用地點_tb.Text = 已核准_dgv(3, e.RowIndex).Value.ToString : 需求日期_dtp.Value = 已核准_dgv(2, e.RowIndex).Value

  444. 

  445.             PA1 = 已核准_dgv("一級核准簽名檔編號", e.RowIndex).Value.ToString : SQL_主管簽名檔管理_圖片流水號()

  446.             簽名檔1_pb.Image = Nothing

  447.             While dr.Read() = True

  448.                 Dim unused As Byte() = New Byte(-1) {}

  449.                 Dim bytes As Byte() = DirectCast(dr.Item("簽名檔圖片"), Byte())

  450.                 Dim oStream As New MemoryStream(bytes)

  451.                 簽名檔1_pb.Image = Bitmap.FromStream(oStream)

  452.             End While

  453.             conn.Close() : 簽名檔1_pb.SizeMode = 4

  454. 

  455.             Set_清單()

  456.             QRCode2_rb.Value = 驗證碼1_tb.Text : QRCode1_rb.Value = 驗證碼1_tb.Text

  457.             QRCode_pb.Image = QRCode1_rb.ExportToImage()

  458.         End If

  459.     End Sub

  460.     Private Sub 已作廢_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 已作廢_dgv.CellClick

  461.         If e.RowIndex = -1 Then : Else

  462.             採購單號_tb.Text = 已作廢_dgv(0, e.RowIndex).Value.ToString : 折扣比_tb.Text = 已作廢_dgv(13, e.RowIndex).Value.ToString : 稅金計算_ch.Checked = 已作廢_dgv(14, e.RowIndex).Value

  463.             稅金比_tb.Text = 已作廢_dgv(15, e.RowIndex).Value.ToString : 核對員_tb.Text = 已作廢_dgv(4, e.RowIndex).Value.ToString : 核對日期_tb.Text = 已作廢_dgv(5, e.RowIndex).Value.ToString

  464.             詢價員_tb.Text = 已作廢_dgv(6, e.RowIndex).Value.ToString : 尋價日期_tb.Text = 已作廢_dgv(7, e.RowIndex).Value.ToString

  465.             If Strings.Left(採購單號_tb.Text, 3) = "HXI" Then : 選擇公司_cb.Text = "PT HONG XHE INDUSTRIAL"

  466.             ElseIf Strings.Left(採購單號_tb.Text, 3) = "PGS" Then : 選擇公司_cb.Text = "PT PUNCAK GEMILANG SEMESTA" : End If

  467.             簽名檔1_pb.Image = Nothing

  468.             供應商編碼_tb.Text = 已作廢_dgv(1, e.RowIndex).Value.ToString : conn.Close()

  469.             PA = 供應商編碼_tb.Text : SQL_建築物料採購單生成_供應商資料一()

  470.             If dr.Read() Then : 廠商_cb.Text = dr("公司名") : conn.Close() : End If : conn.Close()

  471.             驗證碼_tb.Text = 已作廢_dgv(11, e.RowIndex).Value.ToString : 圖片編碼_tb.Text = 已作廢_dgv(10, e.RowIndex).Value.ToString

  472.             使用地點_tb.Text = 已作廢_dgv(3, e.RowIndex).Value.ToString : 需求日期_dtp.Value = 已作廢_dgv(2, e.RowIndex).Value

  473.             Set_清單()

  474.         End If

  475.     End Sub

  476.     Private Sub 廠商_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 廠商_cb.SelectedIndexChanged

  477.         PA1 = 廠商_cb.Text : SQL_建築物料採購單生成_供應商資料二()

  478.         If dr.Read() Then

  479.             供應商編碼_tb.Text = dr("供應商編碼") : 地址_tb.Text = dr("公司地址") : 電話_tb.Text = dr("公司電話1") : 郵件_tb.Text = dr("聯繫人1郵箱") : 傳真_tb.Text = dr("公司傳真1")

  480.         End If

  481.         conn.Close()

  482.     End Sub

  483.     Private Sub 圖片編碼_tb_TextChanged(sender As Object, e As EventArgs) Handles 圖片編碼_tb.TextChanged

  484.         PA1 = 圖片編碼_tb.Text : SQL_主管簽名檔管理_圖片流水號()

  485.         簽名檔2_pb.Image = Nothing

  486.         While dr.Read() = True

  487.             Dim unused As Byte() = New Byte(-1) {}

  488.             Dim bytes As Byte() = DirectCast(dr.Item("簽名檔圖片"), Byte())

  489.             Dim oStream As New MemoryStream(bytes)

  490.             簽名檔2_pb.Image = Bitmap.FromStream(oStream)

  491.         End While

  492.         conn.Close() : 簽名檔2_pb.SizeMode = 4

  493.     End Sub

  494.     Private Sub 小間距1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距1_ch.Click

  495.         小間距1_ch.Checked = True : 中間距1_ch.Checked = False : 大間距1_ch.Checked = False : Set_清單()

  496.     End Sub

  497.     Private Sub 中間距1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距1_ch.Click

  498.         小間距1_ch.Checked = False : 中間距1_ch.Checked = True : 大間距1_ch.Checked = False : Set_清單()

  499.     End Sub

  500.     Private Sub 大間距1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距1_ch.Click

  501.         小間距1_ch.Checked = False : 中間距1_ch.Checked = False : 大間距1_ch.Checked = True : Set_清單()

  502.     End Sub

  503.     Private Sub 物料圖檔_pb_Click(sender As Object, e As EventArgs) Handles 物料圖檔_pb.Click

  504.         If IsNothing(物料圖檔_pb.Image) = False Then : 圖片傳遞 = 物料圖檔_pb.Image : 圖片放大視窗.ShowDialog() : End If

  505.     End Sub

  506.     Private Sub 詳細資料2_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 詳細資料2_ch.Click

  507.         If 詳細資料2_ch.Checked = True Then : 詳細資料2_ch.Checked = True : Else : 詳細資料2_ch.Checked = False : End If : Set_清單()

  508.     End Sub

  509.     Private Sub 選擇公司_cb_Click(sender As Object, e As EventArgs) Handles 選擇公司_cb.Click

  510.         CB選擇清單(選擇公司_cb, 選擇公司_cb.Text)

  511.     End Sub

  512.     Private Sub 廠商_cb_Click(sender As Object, e As EventArgs) Handles 廠商_cb.Click

  513.         CB選擇清單(廠商_cb, 廠商_cb.Text)

  514.     End Sub

  515.     Private Sub 系統語言_cb_Click(sender As Object, e As EventArgs) Handles 系統語言_cb.Click

  516.         CB選擇清單(系統語言_cb, 系統語言_cb.Text)

  517.     End Sub

  518.     Private Sub 打開清單_bt_Click(sender As Object, e As EventArgs) Handles 打開清單_bt.Click

  519.         打開清單()

  520.     End Sub

  521.     Private Sub 轉財務單_Click(sender As Object, e As EventArgs) Handles 轉財務單.Click

  522.         PA25 = 0 : PA26 = 對話框(2) & " " & 廠商_cb.Text & " " & 對話框(3) : 財物支付單申請_傳票.內容_tb.Text = ""

  523.         Dim XA As Integer = 0 : Dim 可以轉 As Boolean = False

  524.         For i As Integer = 0 To 已核准_dgv.Rows.Count - 1

  525.             If 已核准_dgv.Rows(i).Cells(22).Value <> 0 Then : PA25 = CLng(PA25) + 已核准_dgv.Rows(i).Cells(22).Value : 可以轉 = True

  526.                 If XA = 0 Then : PA26 &= 已核准_dgv.Rows(i).Cells(0).Value : Else : PA26 &= "、" & 已核准_dgv.Rows(i).Cells(0).Value : End If : XA += 1

  527.             End If

  528.         Next

  529.         If 可以轉 = True Then

  530.             If 財物支付單申請_傳票.Visible = True Then : Else : 跨部門開啟 = False : 財物支付單申請_傳票.Show() : End If

  531.             If CLng(PA25) < 100000000000000 Then

  532.                 財物支付單申請_傳票.申請金額_nud.Value = PA25 : 財物支付單申請_傳票.內容_tb.Text = PA26 : 財物支付單申請_傳票.編號1_cb.Text = "B-02"

  533.                 財物支付單申請_傳票.編號2_cb.Text = "B-02-01" : 財物支付單申請_傳票.編號3_cb.Text = "B-02-01-02"

  534.                 PA48 = "採購"

  535.             Else : MGB(對話框(1), 1) : 首次開啟 = False : End If

  536.         End If : PA25 = "" : PA26 = "" : 財物支付單申請_傳票.BringToFront()

  537.     End Sub

  538.     Private Sub 全部資料_cb_Click(sender As Object, e As EventArgs) Handles 全部資料_cb.Click

  539.         Set_清單1()

  540.     End Sub

  541. 

  542.     Private Sub 確認列印_bt_Click_1(sender As Object, e As EventArgs) Handles 確認列印_bt.Click

  543.         If 採購人員_tb.Text = "" Then

  544.             SQL_物料採購單_首次列印() : 採購人員_tb.Text = gUserName : 採購日期_tb.Text = Today()

  545.         End If

  546.         Dim ds6 As New DataSet : 請購資料_dgv.DataSource = Nothing : ds6.Clear()

  547.         請購資料_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  548.         請購資料_dgv.ColumnHeadersHeight = 25 : 請購資料_dgv.AllowUserToAddRows = False

  549.         PA38 = 採購單號_tb.Text : SQL_採購資料() : da.Fill(ds6) : 請購資料_dgv.DataSource = ds6.Tables(0) : conn.Close()

  550. 

  551.         xlApp = CType(CreateObject("Excel.Application"), Application) : xlBook = xlApp.Workbooks.Add : xlApp.DisplayAlerts = True : xlBook.Activate()

  552.         xlSheet = NewMethod(xlBook) : xlSheet.Activate() : xlApp.Visible = True : xlApp.Application.WindowState = xlMaximized

  553.         N1 = 0 : N2 = 0

  554.         'xlSheet.Cells(2, 1) = 選擇公司_cb.Text

  555.         xlSheet.Cells(3, 1) = "PURCHASE ORDER"

  556.         xlSheet.Cells(5, 1) = "ORDER TO : " & 廠商_cb.Text : xlSheet.Cells(6, 1) = "ALAMAT   : " & 地址_tb.Text : xlSheet.Cells(7, 1) = "Telp     : " & 電話_tb.Text

  557.         xlSheet.Cells(8, 1) = "Fax      : " & 傳真_tb.Text : xlSheet.Cells(9, 1) = "Email    : " & 郵件_tb.Text

  558.         xlSheet.Cells(10, 1) = "No." : xlSheet.Cells(10, 2) = "Nama produk" : xlSheet.Cells(10, 3) = "Spesifikasi" : xlSheet.Cells(10, 4) = "Komentar" : xlSheet.Cells(10, 5) = "SATUAN"

  559.         xlSheet.Cells(10, 6) = "QTY" : xlSheet.Cells(10, 7) = "UNIT PRICE" : xlSheet.Cells(10, 8) = "TOTAL PRICE"

  560.         xlSheet.Cells(5, 5) = "PO NOMOR 1      : " : xlSheet.Cells(5, 7) = 手動號碼_tb.Text

  561.         xlSheet.Cells(7, 5) = "PO NOMOR 2      : " : xlSheet.Cells(7, 7) = 採購單號_tb.Text

  562.         xlSheet.Cells(8, 5) = "TGL/BLN/THN      : " : xlSheet.Cells(8, 7) = 需求日期_dtp.Value

  563.         xlSheet.Cells(9, 5) = "TEMPAT PEMAKAIAN : " : xlSheet.Cells(9, 7) = 使用地點_tb.Text

  564.         Dim GGHH As Integer = 0

  565.         For i As Integer = 0 To 明細1_dgv.Rows.Count - 1

  566.             xlSheet.Cells(i + 11, 1) = 明細1_dgv.Rows(i).Cells(表頭(2)).Value : xlSheet.Cells(i + 11, 2) = 明細1_dgv.Rows(i).Cells(表頭(12)).Value

  567.             xlSheet.Cells(i + 11, 3) = 明細1_dgv.Rows(i).Cells(表頭(13)).Value : xlSheet.Cells(i + 11, 4) = 明細1_dgv.Rows(i).Cells(表頭(14)).Value

  568.             xlSheet.Cells(i + 11, 5) = 明細1_dgv.Rows(i).Cells(表頭(16)).Value : xlSheet.Cells(i + 11, 6) = 明細1_dgv.Rows(i).Cells(表頭(15)).Value

  569.             xlSheet.Cells(i + 11, 7) = 明細1_dgv.Rows(i).Cells(表頭(26)).Value : xlSheet.Cells(i + 11, 8) = 明細1_dgv.Rows(i).Cells(表頭(27)).Value

  570.             GGHH += 明細1_dgv.Rows(i).Cells(表頭(27)).Value

  571.             N1 = i + 11

  572.         Next i

  573.         xlSheet.Cells(N1 + 2, 7) = "TOTAL :" : xlSheet.Cells(N1 + 2, 8) = GGHH

  574.         xlSheet.Cells(N1 + 3, 7) = "DISC " & 折扣比_tb.Text & "% :" : xlSheet.Cells(N1 + 3, 8) = 折扣金額_tb.Text

  575.         xlSheet.Cells(N1 + 4, 7) = "PPN " & 稅金比_tb.Text & "% :" : xlSheet.Cells(N1 + 4, 8) = 稅金金額_tb.Text

  576.         xlSheet.Cells(N1 + 5, 7) = "GRAND TOTAL :" : xlSheet.Cells(N1 + 5, 8) = 總金額_tb.Text

  577.         xlSheet.Cells(N1 + 6, 1) = "Bagian Pembelian Barang" : xlSheet.Cells(N1 + 8, 1) = 採購人員_tb.Text : xlSheet.Cells(N1 + 9, 1) = 採購日期_tb.Text

  578.         xlSheet.Cells(N1 + 6, 3) = "Direktur Utama" : xlSheet.Cells(N1 + 9, 3) = 審核日期2_tb.Text

  579.         xlSheet.Cells(N1 + 6, 4) = "Bagian Pemeriksa" : xlSheet.Cells(N1 + 9, 4) = 審核日期1_tb.Text

  580.         xlSheet.Cells(N1 + 6, 6) = "Bagian Pengisian Harga" : xlSheet.Cells(N1 + 8, 6) = 詢價員_tb.Text : xlSheet.Cells(N1 + 9, 6) = 尋價日期_tb.Text

  581.         xlSheet.Cells(N1 + 6, 8) = "Asisten Proyek" : xlSheet.Cells(N1 + 8, 8) = 核對員_tb.Text : xlSheet.Cells(N1 + 9, 8) = 核對日期_tb.Text

  582.         For i As Integer = 0 To 請購資料_dgv.Rows.Count - 1

  583.             xlSheet.Cells(i + N1 + 12, 1) = 請購資料_dgv.Rows(i).Cells(0).Value

  584.             If 系統語言 = "繁體中文" Then

  585.                 xlSheet.Cells(i + N1 + 12, 3) = 請購資料_dgv.Rows(i).Cells(2).Value

  586.             Else

  587.                 xlSheet.Cells(i + N1 + 12, 3) = 請購資料_dgv.Rows(i).Cells(1).Value

  588.             End If

  589.             xlSheet.Cells(i + N1 + 12, 8) = 請購資料_dgv.Rows(i).Cells(3).Value : N2 += 1

  590.         Next : AA(xlApp, xlSheet) : DD(xlApp, xlSheet) : EE(xlApp, xlSheet) : CC(xlApp, xlSheet) : FF(xlApp, xlSheet)

  591.         If Strings.Left(採購單號_tb.Text, 2) = "HX" Then : GG(xlApp, xlSheet) : Else : HH(xlApp, xlSheet) : End If

  592.         '-------------轉換成PDF---------------------------------------------------------------------

  593.         Dim SERT As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)

  594.         xlBook.Sheets(1).ExportAsFixedFormat(XlFixedFormatType.xlTypePDF, SERT & "\" & 採購單號_tb.Text & "_PO(採購單).pdf", XlFixedFormatQuality.xlQualityStandard, True)

  595.         '-------------關閉EXCEL---------------------------------------------------------------------

  596.         xlSheet.PageSetup.PrintArea = "" : xlApp.Cells.Select()

  597.         xlApp.Application.WindowState = xlMinimized

  598.         xlBook.Close(False)

  599.         Runtime.InteropServices.Marshal.ReleaseComObject(xlSheet)

  600.         Runtime.InteropServices.Marshal.ReleaseComObject(xlBook)

  601.         Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)

  602.         xlApp.Quit() : xlSheet = Nothing : xlBook = Nothing : xlApp = Nothing : GC.Collect()

  603.         MGB(對話框(0), 1) : 首次開啟 = False

  604.     End Sub

  605.     Private Shared Function NewMethod(xlBook As Workbook) As Worksheet

  606.         Return CType(xlBook.Worksheets.Add, Worksheet)

  607.     End Function

  608.     Private Sub AA(ByVal myExcel As Application, ByVal xlSheet As Worksheet)

  609.         xlSheet.Cells.Select()

  610.         With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 12 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False

  611.             .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

  612. 

  613.         xlSheet.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 6 : xlSheet.Columns("B:B").Select : myExcel.Selection.ColumnWidth = 24

  614.         xlSheet.Columns("C:C").Select : myExcel.Selection.ColumnWidth = 35 : xlSheet.Columns("D:D").Select : myExcel.Selection.ColumnWidth = 20

  615.         xlSheet.Columns("E:E").Select : myExcel.Selection.ColumnWidth = 10 : xlSheet.Columns("F:F").Select : myExcel.Selection.ColumnWidth = 15

  616.         xlSheet.Columns("G:G").Select : myExcel.Selection.ColumnWidth = 15 : xlSheet.Columns("H:H").Select : myExcel.Selection.ColumnWidth = 30

  617. 

  618.         xlSheet.Rows("1:1").Select : myExcel.Selection.RowHeight = 90 : xlSheet.Rows("2:2").Select : myExcel.Selection.RowHeight = 5

  619.         xlSheet.Rows("3:3").Select : myExcel.Selection.RowHeight = 25 : xlSheet.Rows("4:4").Select : myExcel.Selection.RowHeight = 5

  620.         xlSheet.Rows("5:9").Select : myExcel.Selection.RowHeight = 20 : xlSheet.Rows("10:10").Select : myExcel.Selection.RowHeight = 20

  621.         xlSheet.Rows("11:" & N1).Select : myExcel.Selection.RowHeight = 65 : xlSheet.Rows(N1 + 1 & ":" & N1 + 1).Select : myExcel.Selection.RowHeight = 5

  622.         xlSheet.Rows(N1 + 2 & ":" & N1 + 5).Select : myExcel.Selection.RowHeight = 17 : xlSheet.Rows(N1 + 6 & ":" & N1 + 6).Select : myExcel.Selection.RowHeight = 35

  623.         xlSheet.Rows(N1 + 7 & ":" & N1 + 9).Select : myExcel.Selection.RowHeight = 35

  624. 

  625.         xlSheet.Range("A2:H2").Select()

  626.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  627.             .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge

  628.         With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 26 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False

  629.             .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

  630. 

  631.         xlSheet.Range("A3:H3").Select()

  632.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  633.             .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge

  634.         With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 16 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False

  635.             .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

  636. 

  637.         xlSheet.Range("A10:H" & N1).Select()

  638.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  639.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  640.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  641.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  642.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  643.         With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  644.         With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  645. 

  646.         xlSheet.Range("A" & N1 + 2 & ":H" & N1 + 2).Select()

  647.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  648.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  649.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  650.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  651.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  652.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  653.         xlSheet.Range("A" & N1 + 3 & ":H" & N1 + 3).Select()

  654.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  655.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  656.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  657.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  658.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  659.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  660.         xlSheet.Range("A" & N1 + 4 & ":H" & N1 + 4).Select()

  661.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  662.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  663.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  664.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  665.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  666.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  667.         xlSheet.Range("A" & N1 + 5 & ":H" & N1 + 5).Select()

  668.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  669.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  670.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  671.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  672.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  673.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  674. 

  675.         xlSheet.Range("A" & N1 + 6 & ":B" & N1 + 6).Select()

  676.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  677.             .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge

  678.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  679.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  680.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  681.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  682.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  683.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  684. 

  685.         xlSheet.Range("C" & N1 + 6 & ":C" & N1 + 6).Select()

  686.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  687.             .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge

  688.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  689.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  690.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  691.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  692.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  693.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  694. 

  695.         xlSheet.Range("D" & N1 + 6 & ":E" & N1 + 6).Select()

  696.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  697.             .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge

  698.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  699.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  700.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  701.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  702.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  703.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  704. 

  705.         xlSheet.Range("F" & N1 + 6 & ":G" & N1 + 6).Select()

  706.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  707.             .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge

  708.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  709.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  710.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  711.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  712.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  713.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  714. 

  715.         xlSheet.Range("H" & N1 + 6).Select()

  716.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  717.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With

  718.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  719.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  720.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  721.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  722.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  723.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  724. 

  725.         xlSheet.Range("A" & N1 + 7 & ":B" & N1 + 9).Select()

  726.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  727.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  728.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  729.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  730.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  731.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  732.         xlSheet.Range("C" & N1 + 7 & ":C" & N1 + 9).Select()

  733.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  734.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  735.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  736.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  737.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  738.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  739.         xlSheet.Range("D" & N1 + 7 & ":E" & N1 + 9).Select()

  740.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  741.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  742.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  743.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  744.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  745.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  746.         xlSheet.Range("F" & N1 + 7 & ":G" & N1 + 9).Select()

  747.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  748.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  749.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  750.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  751.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  752.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  753.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  754.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With

  755.         xlSheet.Range("H" & N1 + 7 & ":H" & N1 + 9).Select()

  756.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  757.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  758.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  759.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  760.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  761.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  762.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  763.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With

  764. 

  765.         xlSheet.Range("A10:A" & N1).Select()

  766.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  767.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With

  768. 

  769.         xlSheet.Range("B11:D" & N1).Select()

  770.         With myExcel.Selection

  771.             .HorizontalAlignment = xlGeneral : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  772.             .ReadingOrder = xlContext : .MergeCells = False : End With

  773. 

  774.         xlSheet.Range("E11:F" & N1).Select()

  775.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  776.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With

  777. 

  778.         xlSheet.Range("G11:H" & N1).Select() : myExcel.Selection.NumberFormatLocal = "#,##0"

  779.         xlSheet.Range("H" & N1 + 2).Select() : myExcel.Selection.NumberFormatLocal = "#,##0"

  780. 

  781.         xlSheet.Range("H" & N1 + 2 & ":H" & N1 + 5).Select()

  782.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  783.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  784.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  785.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  786.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  787.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone

  788.         With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  789. 

  790.         myExcel.ActiveWindow.DisplayGridlines = False

  791. 

  792.         xlSheet.Range("A3:H3").Select()

  793.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  794.         myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone : myExcel.Selection.Borders(xlEdgeTop).LineStyle = xlNone

  795.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  796.         myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  797. 

  798.         xlSheet.Range("G7:G9").Select()

  799.         With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  800.             .ReadingOrder = xlContext : .MergeCells = False : End With

  801. 

  802.         xlSheet.Range("A10:H" & N1).Select()

  803.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  804.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  805.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  806.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  807.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  808.         With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  809.         With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  810.         xlSheet.Range("A" & N1 + 2 & ":H" & N1 + 5).Select()

  811.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  812.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  813.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  814.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  815.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  816.         With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  817.         xlSheet.Range("A" & N1 + 6 & ":B" & N1 + 9).Select()

  818.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  819.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  820.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  821.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  822.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  823.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone

  824.         xlSheet.Range("C" & N1 + 6 & ":C" & N1 + 9).Select()

  825.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  826.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  827.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  828.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  829.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  830.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone

  831.         xlSheet.Range("D" & N1 + 6 & ":E" & N1 + 9).Select()

  832.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  833.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  834.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  835.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  836.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  837.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone

  838.         xlSheet.Range("F" & N1 + 6 & ":G" & N1 + 9).Select()

  839.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  840.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  841.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  842.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  843.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  844.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone

  845.         xlSheet.Range("H" & N1 + 6 & ":H" & N1 + 9).Select()

  846.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  847.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  848.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  849.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  850.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  851.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone

  852. 

  853.         xlSheet.Rows("5:9").Select

  854.         With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False

  855.             .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

  856. 

  857.         xlSheet.Rows("11:" & N1).Select

  858.         With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False

  859.             .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

  860. 

  861.         xlSheet.Range("A10:H10").Select()

  862.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  863.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  864.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  865.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  866.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  867.         With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  868.         myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  869.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  870.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  871.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  872.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  873.         With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  874.         myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  875.         xlSheet.Range("A11:H" & N1).Select()

  876.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  877.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  878.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  879.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  880.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  881.         With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlHairline : End With

  882.         With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlHairline : End With

  883.         xlSheet.Range("B11:D" & N1).Select()

  884.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  885.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  886.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  887.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  888.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  889.         With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlHairline : End With

  890.         With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlHairline : End With

  891.         xlSheet.Range("F11:F" & N1).Select()

  892.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  893.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  894.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  895.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  896.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  897.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone

  898.         With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlHairline : End With

  899.         xlSheet.Range("H11:H" & N1).Select()

  900.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  901.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  902.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  903.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  904.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  905.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone

  906.         With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlHairline : End With

  907.         xlSheet.Range("A" & N1 + 2 & ":H" & N1 + 5).Select()

  908.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  909.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  910.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  911.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  912.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  913.         With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlHairline : End With

  914.         xlSheet.Range("H" & N1 + 2 & ":H" & N1 + 5).Select()

  915.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  916.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  917.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  918.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  919.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  920.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone

  921.         With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlHairline : End With

  922. 

  923.         xlSheet.Range("G" & N1 + 2 & ":G" & N1 + 5).Select()

  924.         With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False

  925.             .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With

  926. 

  927.         xlSheet.Range("F" & N1 + 8 & ":G" & N1 + 8).Select()

  928.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False

  929.             .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge

  930. 

  931.         xlSheet.Range("F" & N1 + 9 & ":G" & N1 + 9).Select()

  932.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False

  933.             .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge

  934. 

  935.         xlSheet.Range("A" & N1 + 8 & ":B" & N1 + 8).Select()

  936.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False

  937.             .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge

  938. 

  939.         xlSheet.Range("A" & N1 + 9 & ":B" & N1 + 9).Select()

  940.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False

  941.             .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge

  942. 

  943.         xlSheet.Range("C" & N1 + 9).Select()

  944.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False

  945.             .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With

  946. 

  947.         xlSheet.Range("A" & N1 + 11 & ":H" & N1 + N2 + 11).Select()

  948.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  949.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  950.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  951.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  952.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  953.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone

  954.         myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  955. 

  956.         myExcel.Application.PrintCommunication = False

  957.         With myExcel.ActiveSheet.PageSetup : .PrintTitleRows = "$1:$10" : .PrintTitleColumns = "" : End With

  958.         myExcel.Application.PrintCommunication = True : myExcel.ActiveSheet.PageSetup.PrintArea = "" : myExcel.Application.PrintCommunication = False

  959.         With myExcel.ActiveSheet.PageSetup : .LeftHeader = "" : .CenterHeader = "" : .RightHeader = "" : .LeftFooter = "" : .CenterFooter = "第 &P 頁，共 &N 頁" : .RightFooter = ""

  960.             .LeftMargin = myExcel.Application.InchesToPoints(0.236220472440945) : .RightMargin = myExcel.Application.InchesToPoints(0.236220472440945)

  961.             .TopMargin = myExcel.Application.InchesToPoints(0.748031496062992) : .BottomMargin = myExcel.Application.InchesToPoints(0.748031496062992)

  962.             .HeaderMargin = myExcel.Application.InchesToPoints(0.31496062992126) : .FooterMargin = myExcel.Application.InchesToPoints(0.31496062992126)

  963.             .PrintHeadings = False : .PrintGridlines = False : .PrintQuality = 600 : .CenterHorizontally = False : .CenterVertically = False : .Draft = False

  964.             .FirstPageNumber = xlAutomatic : .BlackAndWhite = False : .Zoom = False : .FitToPagesWide = 1 : .FitToPagesTall = False : .OddAndEvenPagesHeaderFooter = False

  965.             .DifferentFirstPageHeaderFooter = False : .ScaleWithDocHeaderFooter = True : .AlignMarginsHeaderFooter = True : .EvenPage.LeftHeader.Text = ""

  966.             .EvenPage.CenterHeader.Text = "" : .EvenPage.RightHeader.Text = "" : .EvenPage.LeftFooter.Text = "" : .EvenPage.CenterFooter.Text = ""

  967.             .EvenPage.RightFooter.Text = "" : .FirstPage.LeftHeader.Text = "" : .FirstPage.CenterHeader.Text = "" : .FirstPage.RightHeader.Text = ""

  968.             .FirstPage.LeftFooter.Text = "" : .FirstPage.CenterFooter.Text = "" : .FirstPage.RightFooter.Text = ""

  969.         End With : myExcel.Application.PrintCommunication = True

  970.     End Sub

  971.     Private Sub CC(ByVal myExcel As Application, ByVal xlSheet As Microsoft.Office.Interop.Excel.Worksheet)

  972.         Clipboard.SetDataObject(簽名檔2_pb.Image)

  973.         xlSheet.Range("C" & N1 + 8).Select()

  974.         myExcel.ActiveSheet.Pictures.Paste.Select

  975.         myExcel.Selection.ShapeRange.Height = 50

  976.         myExcel.Selection.ShapeRange.IncrementLeft(10)

  977.         myExcel.Selection.ShapeRange.IncrementTop(-23)

  978.     End Sub

  979.     Private Sub DD(ByVal myExcel As Application, ByVal xlSheet As Microsoft.Office.Interop.Excel.Worksheet)

  980.         Clipboard.SetDataObject(QRCode_pb.Image)

  981.         xlSheet.Range("H5").Select()

  982.         myExcel.ActiveSheet.Pictures.Paste.Select

  983.         myExcel.Selection.ShapeRange.Height = 90

  984.         myExcel.Selection.ShapeRange.IncrementLeft(70)

  985.         myExcel.Selection.ShapeRange.IncrementTop(1)

  986.     End Sub

  987.     Private Sub EE(ByVal myExcel As Application, ByVal xlSheet As Microsoft.Office.Interop.Excel.Worksheet)

  988.         Clipboard.SetDataObject(簽名檔1_pb.Image)

  989.         xlSheet.Range("D" & N1 + 8).Select()

  990.         myExcel.ActiveSheet.Pictures.Paste.Select

  991.         myExcel.Selection.ShapeRange.Height = 50

  992.         myExcel.Selection.ShapeRange.IncrementLeft(10)

  993.         myExcel.Selection.ShapeRange.IncrementTop(-23)

  994.     End Sub

  995.     Private Sub GG(ByVal myExcel As Microsoft.Office.Interop.Excel.Application, ByVal xlSheet As Worksheet)

  996.         Clipboard.SetDataObject(財物支付單申請_傳票.PictureBox1.Image)

  997.         xlSheet.Range("A1").Select()

  998.         myExcel.ActiveSheet.Pictures.Paste.Select

  999.         myExcel.Selection.ShapeRange.Height = 93

  1000.         myExcel.Selection.ShapeRange.IncrementLeft(50)

  1001.         myExcel.Selection.ShapeRange.IncrementTop(0)

  1002.     End Sub

  1003.     Private Sub HH(ByVal myExcel As Microsoft.Office.Interop.Excel.Application, ByVal xlSheet As Worksheet)

  1004.         Clipboard.SetDataObject(財物支付單申請_傳票.PictureBox2.Image)

  1005.         xlSheet.Range("A1").Select()

  1006.         myExcel.ActiveSheet.Pictures.Paste.Select

  1007.         myExcel.Selection.ShapeRange.Height = 93

  1008.         myExcel.Selection.ShapeRange.IncrementLeft(50)

  1009.         myExcel.Selection.ShapeRange.IncrementTop(0)

  1010.     End Sub

  1011.     Private Sub FF(ByVal myExcel As Application, ByVal xlSheet As Worksheet)

  1012.         myExcel.Application.PrintCommunication = False

  1013.         With myExcel.ActiveSheet.PageSetup : .PrintTitleRows = "$1:$11" : .PrintTitleColumns = "" : End With

  1014.         myExcel.Application.PrintCommunication = True : myExcel.ActiveSheet.PageSetup.PrintArea = "" : myExcel.Application.PrintCommunication = False

  1015.         With myExcel.ActiveSheet.PageSetup : .LeftHeader = "" : .CenterHeader = "" : .RightHeader = "" : .LeftFooter = "" : .CenterFooter = "第 &P 頁，共 &N 頁" : .RightFooter = ""

  1016.             .LeftMargin = myExcel.Application.InchesToPoints(0.236220472440945) : .RightMargin = myExcel.Application.InchesToPoints(0.236220472440945)

  1017.             .TopMargin = myExcel.Application.InchesToPoints(0.748031496062992) : .BottomMargin = myExcel.Application.InchesToPoints(0.748031496062992)

  1018.             .HeaderMargin = myExcel.Application.InchesToPoints(0.31496062992126) : .FooterMargin = myExcel.Application.InchesToPoints(0.31496062992126)

  1019.             .PrintHeadings = False : .PrintGridlines = False : .PrintQuality = 600 : .CenterHorizontally = False : .CenterVertically = False : .Draft = False

  1020.             .FirstPageNumber = xlAutomatic : .BlackAndWhite = False : .Zoom = False : .FitToPagesWide = 1 : .FitToPagesTall = False : .OddAndEvenPagesHeaderFooter = False

  1021.             .DifferentFirstPageHeaderFooter = False : .ScaleWithDocHeaderFooter = True : .AlignMarginsHeaderFooter = True : .EvenPage.LeftHeader.Text = ""

  1022.             .EvenPage.CenterHeader.Text = "" : .EvenPage.RightHeader.Text = "" : .EvenPage.LeftFooter.Text = "" : .EvenPage.CenterFooter.Text = ""

  1023.             .EvenPage.RightFooter.Text = "" : .FirstPage.LeftHeader.Text = "" : .FirstPage.CenterHeader.Text = "" : .FirstPage.RightHeader.Text = ""

  1024.             .FirstPage.LeftFooter.Text = "" : .FirstPage.CenterFooter.Text = "" : .FirstPage.RightFooter.Text = ""

  1025.         End With : myExcel.Application.PrintCommunication = True

  1026.     End Sub

  1027.     '-----------------------------滑鼠右鍵--------------------------------------------------------------------------------------------------------------------------------------

  1028.     Private Sub 重新整理SegarkanToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新整理_tsm.Click

  1029.         Set_清單1() : Set_清單2()

  1030.     End Sub

  1031. 

  1032.     Private Sub 風格()

  1033.         If 深色風格 = False Then

  1034.             Me.BackColor = SystemColors.Control

  1035.             選擇公司_lb.ForeColor = Color.Blue

  1036.             已核准_lb.ForeColor = Color.Black : 一級簽核_lb.ForeColor = Color.Black : 二級簽核_lb.ForeColor = Color.Black : Label1.ForeColor = Color.Black

  1037.             Label2.ForeColor = Color.Black : Label3.ForeColor = Color.Black : Label6.ForeColor = Color.Black : Label12.ForeColor = Color.Black

  1038.             Label11.ForeColor = Color.Black : Label8.ForeColor = Color.Black : Label5.ForeColor = Color.Black : Label7.ForeColor = Color.Black

  1039.             總金額_lb.ForeColor = Color.Black : 詳細資料2_ch.ForeColor = Color.Black : 小間距1_ch.ForeColor = Color.Black : 中間距1_ch.ForeColor = Color.Black

  1040.             大間距1_ch.ForeColor = Color.Black : 稅金計算_ch.ForeColor = Color.Black : Label9.ForeColor = Color.Black

  1041. 

  1042.             語轉扭_bt.BackColor = Color.White : 語轉扭_bt.ForeColor = Color.Black

  1043. 

  1044.             地址_tb.BackColor = Color.White : 地址_tb.ForeColor = Color.Black : 電話_tb.BackColor = Color.White : 電話_tb.ForeColor = Color.Black

  1045.             採購單號_tb.BackColor = Color.White : 採購單號_tb.ForeColor = Color.Black : 折扣比_tb.BackColor = Color.White : 折扣比_tb.ForeColor = Color.Black

  1046.             折扣金額_tb.BackColor = Color.White : 折扣金額_tb.ForeColor = Color.Black : 傳真_tb.BackColor = Color.White : 傳真_tb.ForeColor = Color.Black

  1047.             稅金比_tb.BackColor = Color.White : 稅金比_tb.ForeColor = Color.Black : 稅金金額_tb.BackColor = Color.White : 稅金金額_tb.ForeColor = Color.Black

  1048.             郵件_tb.BackColor = Color.White : 郵件_tb.ForeColor = Color.Black : 使用地點_tb.BackColor = Color.White : 使用地點_tb.ForeColor = Color.Black

  1049.             總金額_tb.BackColor = Color.White : 總金額_tb.ForeColor = Color.Black

  1050. 

  1051.             選擇公司_cb.BackColor = Color.White : 選擇公司_cb.ForeColor = Color.Black : 廠商_cb.BackColor = Color.White : 廠商_cb.ForeColor = Color.Black

  1052.             系統語言_cb.BackColor = Color.White : 系統語言_cb.ForeColor = Color.Black : 手動號碼_tb.BackColor = Color.White : 手動號碼_tb.ForeColor = Color.Black

  1053. 

  1054.             確認列印_bt.BackColor = Color.White

  1055. 

  1056.             已核准_dgv.EnableHeadersVisualStyles = True : 已核准_dgv.BackgroundColor = Color.White : 已核准_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black

  1057.             已核准_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightPink

  1058.             已核准_dgv.DefaultCellStyle.BackColor = Color.White : 已核准_dgv.DefaultCellStyle.ForeColor = Color.Black

  1059.             明細_dgv.EnableHeadersVisualStyles = True : 明細_dgv.BackgroundColor = Color.White : 明細_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black

  1060.             明細_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightBlue

  1061.             明細_dgv.DefaultCellStyle.BackColor = Color.White : 明細_dgv.DefaultCellStyle.ForeColor = Color.Black

  1062.         Else

  1063.             Me.BackColor = Color.Black

  1064.             選擇公司_lb.ForeColor = Color.LightBlue

  1065.             已核准_lb.ForeColor = Color.White : 一級簽核_lb.ForeColor = Color.White : 二級簽核_lb.ForeColor = Color.White : Label1.ForeColor = Color.White

  1066.             Label2.ForeColor = Color.White : Label3.ForeColor = Color.White : Label6.ForeColor = Color.White : Label12.ForeColor = Color.White

  1067.             Label11.ForeColor = Color.White : Label8.ForeColor = Color.White : Label5.ForeColor = Color.White : Label7.ForeColor = Color.White

  1068.             總金額_lb.ForeColor = Color.White : 詳細資料2_ch.ForeColor = Color.White : 小間距1_ch.ForeColor = Color.White : 中間距1_ch.ForeColor = Color.White

  1069.             大間距1_ch.ForeColor = Color.White : 稅金計算_ch.ForeColor = Color.White : Label9.ForeColor = Color.White

  1070. 

  1071.             語轉扭_bt.BackColor = Color.DimGray : 語轉扭_bt.ForeColor = Color.White

  1072. 

  1073.             地址_tb.BackColor = Color.DimGray : 地址_tb.ForeColor = Color.White : 電話_tb.BackColor = Color.DimGray : 電話_tb.ForeColor = Color.White

  1074.             採購單號_tb.BackColor = Color.DimGray : 採購單號_tb.ForeColor = Color.White : 折扣比_tb.BackColor = Color.DimGray : 折扣比_tb.ForeColor = Color.White

  1075.             折扣金額_tb.BackColor = Color.DimGray : 折扣金額_tb.ForeColor = Color.White : 傳真_tb.BackColor = Color.DimGray : 傳真_tb.ForeColor = Color.White

  1076.             稅金比_tb.BackColor = Color.DimGray : 稅金比_tb.ForeColor = Color.White : 稅金金額_tb.BackColor = Color.DimGray : 稅金金額_tb.ForeColor = Color.White

  1077.             郵件_tb.BackColor = Color.DimGray : 郵件_tb.ForeColor = Color.White : 使用地點_tb.BackColor = Color.DimGray : 使用地點_tb.ForeColor = Color.White

  1078.             總金額_tb.BackColor = Color.DimGray : 總金額_tb.ForeColor = Color.White

  1079. 

  1080.             選擇公司_cb.BackColor = Color.DimGray : 選擇公司_cb.ForeColor = Color.White : 廠商_cb.BackColor = Color.DimGray : 廠商_cb.ForeColor = Color.White

  1081.             系統語言_cb.BackColor = Color.DimGray : 系統語言_cb.ForeColor = Color.White : 手動號碼_tb.BackColor = Color.DimGray : 手動號碼_tb.ForeColor = Color.White

  1082. 

  1083.             確認列印_bt.BackColor = Color.DimGray

  1084. 

  1085.             已核准_dgv.EnableHeadersVisualStyles = False : 已核准_dgv.BackgroundColor = Color.DimGray : 已核准_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White

  1086.             已核准_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 已核准_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray

  1087.             已核准_dgv.DefaultCellStyle.BackColor = Color.Black : 已核准_dgv.DefaultCellStyle.ForeColor = Color.White

  1088.             明細_dgv.EnableHeadersVisualStyles = False : 明細_dgv.BackgroundColor = Color.DimGray : 明細_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White

  1089.             明細_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 明細_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray

  1090.             明細_dgv.DefaultCellStyle.BackColor = Color.Black : 明細_dgv.DefaultCellStyle.ForeColor = Color.White

  1091.         End If

  1092.     End Sub

  1093. End Class