HSKIN-MIS-SYS-LEEHSIEHJUI/GRAMS-SYS/06、總務管理/文件.vb

Option Strict Off
Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle
Imports Microsoft.Office.Interop.Excel.Constants
Imports Microsoft.Office.Interop.Excel.XlBordersIndex
Imports Microsoft.Office.Interop.Excel.XlLineStyle
Imports Microsoft.Office.Interop.Excel.XlBorderWeight
Imports Microsoft.Office.Interop.Excel.XlThemeFont
Imports Microsoft.Office.Interop.Excel.XlThemeColor
Imports Microsoft.Office.Interop.Excel.XlWindowState
Imports Microsoft.Office.Interop.Excel
Imports System.IO
Imports Telerik.Windows.Documents.Fixed
Imports System.Text.RegularExpressions
Imports Telerik.WinControls.VirtualKeyboard
Public Class 文件
    Dim xlApp As Microsoft.Office.Interop.Excel.Application
    Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
    Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
    Dim 位置1 As String : Dim 已處理字串 As String
    Dim N2 As Integer : Dim N3 As Integer
    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet
    Private Sub 文件_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'Me.MdiParent = GRAMS_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        conn.Close()
        已核准的營運成本收支單_rb.Checked = True
        作廢的營運成本收支單_rb.Checked = False
        Set_清單1() : Set_清單3()
        刪除_bt.Enabled = False : 儲存_bt.Enabled = False : 作廢_bt.Enabled = False : 列印_bt.Enabled = False : 發行_bt.Enabled = False : 指定人員_bt.Enabled = False
    End Sub
    Private Sub Set_清單3()
        Dim ds As New DataSet
        人員1_dgv.DataSource = Nothing : ds.Clear()
        人員1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        人員1_dgv.ColumnHeadersHeight = 25
        人員1_dgv.AllowUserToAddRows = False
        SQL_通用_人員清單()
        da.Fill(ds) : 人員1_dgv.DataSource = ds.Tables(0) : conn.Close()
        Dim chkColumn As New DataGridViewCheckBoxColumn()
    End Sub
    Private Sub Set_清單1()
        控制表_dgv.DataSource = Nothing : ds1.Clear()
        控制表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        控制表_dgv.ColumnHeadersHeight = 25
        控制表_dgv.AllowUserToAddRows = False
        控制表_dgv.RowTemplate.Height = 30
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
        If 作廢的營運成本收支單_rb.Checked = True And 已核准的營運成本收支單_rb.Checked = False And 已發行的營運成本收支單_rb.Checked = False Then
            SQL_通用_控制表清單1()
        ElseIf 作廢的營運成本收支單_rb.Checked = False And 已核准的營運成本收支單_rb.Checked = True And 已發行的營運成本收支單_rb.Checked = False Then
            SQL_通用_控制表清單()
        ElseIf 作廢的營運成本收支單_rb.Checked = False And 已核准的營運成本收支單_rb.Checked = False And 已發行的營運成本收支單_rb.Checked = True Then
            SQL_通用_控制表清單2()
        End If
        da.Fill(ds1) : 控制表_dgv.DataSource = ds1.Tables(0) : conn.Close()
        控制表_dgv.Columns(0).FillWeight = 20 : 控制表_dgv.Columns(1).FillWeight = 60 : 控制表_dgv.Columns(2).Visible = False
        控制表_dgv.Columns(3).Visible = False : 控制表_dgv.Columns(4).Visible = False : 控制表_dgv.Columns(5).Visible = False
        控制表_dgv.Columns(6).Visible = False : 控制表_dgv.Columns(7).Visible = False : 控制表_dgv.Columns(8).FillWeight = 20
        控制表_dgv.Columns(9).Visible = False
    End Sub
    Private Sub Set_清單2()
        人員_dgv.DataSource = Nothing : ds2.Clear()
        人員_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        人員_dgv.ColumnHeadersHeight = 25
        人員_dgv.AllowUserToAddRows = False
        人員_dgv.RowTemplate.Height = 50

        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
        SQL_通用_明細表讀取()
        da.Fill(ds2) : 人員_dgv.DataSource = ds2.Tables(0) : conn.Close()
        人員_dgv.Columns(0).Visible = False : 人員_dgv.Columns(1).FillWeight = 20 : 人員_dgv.Columns(2).Visible = False
        人員_dgv.Columns(3).Visible = False : 人員_dgv.Columns(4).FillWeight = 50 : 人員_dgv.Columns(5).FillWeight = 30
        Dim imgColumn As DataGridViewImageColumn = TryCast(人員_dgv.Columns("圖片"), DataGridViewImageColumn)
        If imgColumn IsNot Nothing Then
            imgColumn.ImageLayout = DataGridViewImageCellLayout.Zoom
        End If
        Dim transparentImage As New Bitmap(50, 50) ' Adjust size as needed
        Using g As Graphics = Graphics.FromImage(transparentImage)
            g.Clear(Color.Transparent)
        End Using
        For i As Integer = 0 To 人員_dgv.Rows.Count - 1
            If 人員_dgv.Rows(i).Cells("圖片資料庫").Value.ToString <> "" And 人員_dgv.Rows(i).Cells("圖片流水號").Value.ToString <> "" Then
                圖片庫 = 人員_dgv.Rows(i).Cells("圖片資料庫").Value.ToString
                SQL_連線字串_圖片資料庫()
                PA2 = 人員_dgv.Rows(i).Cells("圖片流水號").Value.ToString
                SQL_簽名圖()
                While dr.Read() = True
                    Dim unused As Byte() = New Byte(-1) {} : Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
                    Dim oStream As New MemoryStream(bytes) : 人員_dgv.Rows(i).Cells("圖片").Value = Bitmap.FromStream(oStream)
                End While : conn.Close()
            Else
                ' Set empty value if no image is available
                人員_dgv.Rows(i).Cells("圖片").Value = transparentImage
            End If

        Next

    End Sub
    Private Sub 控制表_dgv_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 控制表_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            單號_tb.Text = 控制表_dgv(2, e.RowIndex).Value.ToString
            Dim dateString As String = 控制表_dgv(0, e.RowIndex).Value.ToString
            Dim dateParts() As String = dateString.Split("/"c)
            Dim year As Integer = Integer.Parse(dateParts(0)) + 1911 ' 將民國年轉換為西元年
            Dim month As Integer = Integer.Parse(dateParts(1))
            Dim day As Integer = Integer.Parse(dateParts(2))
            Dim dateTime As New DateTime(year, month, day)
            選擇日期_dtp.Value = dateTime
            選擇日期_dtp.CustomFormat = "yyyy/MM/dd"
            選擇日期_dtp.Format = DateTimePickerFormat.Custom
            檔案名稱_tb.Text = 控制表_dgv(1, e.RowIndex).Value.ToString
            主旨_tb.Text = 控制表_dgv(3, e.RowIndex).Value.ToString
            說明_tb.Text = 控制表_dgv(4, e.RowIndex).Value.ToString
            開單人_tb.Text = 控制表_dgv("開單人", e.RowIndex).Value.ToString
            全選_cb.Checked = 控制表_dgv("全選", e.RowIndex).Value
            PA57 = 單號_tb.Text
            Set_清單2()
            If (全選_cb.Checked = True) Then
                For I As Integer = 0 To 人員1_dgv.Rows.Count - 1
                    Dim skip As Boolean = False ' 用于标记是否跳过当前外层循环
                    For II As Integer = 0 To 人員_dgv.Rows.Count - 1
                        If 人員1_dgv.Rows(I).Cells("姓名").Value.ToString() = 人員_dgv.Rows(II).Cells("姓名").Value.ToString() Then
                            skip = True ' 标记跳过当前外层循环
                            Exit For ' 跳出内层循环
                        End If
                    Next

                    If skip Then
                        Continue For ' 跳过当前外层循环的当前迭代
                    End If
                    PA58 = 人員1_dgv.Rows(I).Cells("姓名").Value.ToString()
                    SQL_通用_明細表新增()
                Next
                Set_清單2()
            End If
            刪除_bt.Enabled = True : 儲存_bt.Enabled = True : 作廢_bt.Enabled = True : 列印_bt.Enabled = True : 發行_bt.Enabled = True : 指定人員_bt.Enabled = True
        End If
    End Sub
    Private Sub 查詢_tb_Click(sender As Object, e As EventArgs) Handles 查詢_tb.Click
        PA56 = InputBox("請輸入要查詢的單號資料。") : Set_清單1() : PA56 = ""
    End Sub
    Private Sub 檔案名稱_tb_KeyPress(sender As Object, e As KeyPressEventArgs) Handles 檔案名稱_tb.KeyPress
        ' 允许字母、数字和空格，禁止其他字符
        If Not Char.IsLetterOrDigit(e.KeyChar) AndAlso Not Char.IsWhiteSpace(e.KeyChar) Then
            e.Handled = True
        End If
    End Sub
    Private Sub 新增_bt_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
        單號_tb.Text = "" : 檔案名稱_tb.Text = "" : 主旨_tb.Text = "" : 說明_tb.Text = "" : 開單人_tb.Text = gUserName
        Dim NUM1 As Integer
        Dim dat1 As String
        Dim selectedDate As DateTime = 選擇日期_dtp.Value
        Dim taiwanYear As Integer = selectedDate.Year - 1911
        Dim str As String = String.Format("{0}{1:00}{2:00}", taiwanYear, selectedDate.Month, selectedDate.Day)
        PA1 = String.Format("{0}/{1:00}/{2:00}", taiwanYear, selectedDate.Month, selectedDate.Day)

        SQL_通用_查詢第一筆單號()
        If dr.Read() Then : 單號_tb.Text = dr("流水號").ToString : Else : 單號_tb.Text = str & "00" : End If

        dat1 = 單號_tb.Text.Substring(0, 7)
        If dat1 <> str Then : NUM1 = 1 : Else : NUM1 = Double.Parse(單號_tb.Text.Substring(7, 2)) + 1 : End If

        If NUM1 < 10 Then : 單號_tb.Text = str & "0" & NUM1
        ElseIf NUM1 > 9 Then : 單號_tb.Text = str & NUM1
        End If

        PA = 單號_tb.Text
        SQL_通用_新增一筆公函控制表() : conn.Close()

        PA57 = "" : Set_清單2()
        刪除_bt.Enabled = True : 儲存_bt.Enabled = True : 作廢_bt.Enabled = True : 列印_bt.Enabled = True : 發行_bt.Enabled = True : 指定人員_bt.Enabled = True
        'ComboBox1.SelectedIndex = 2
        'ComboBox2.SelectedIndex = 3
        'ComboBox3.SelectedIndex = 7
        'ComboBox4.SelectedIndex = 8
    End Sub
    Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
        PA57 = 單號_tb.Text : SQL_通用_明細表刪除()
        SQL_通用_控制表刪除(單號_tb.Text) : conn.Close() : MsgBox("刪除成功!!")
        單號_tb.Text = "" : 檔案名稱_tb.Text = "" : 主旨_tb.Text = "" : 說明_tb.Text = "" : 開單人_tb.Text = ""
        Set_清單1() : Set_清單2()
        刪除_bt.Enabled = False : 儲存_bt.Enabled = False : 作廢_bt.Enabled = False : 列印_bt.Enabled = False : 發行_bt.Enabled = False : 指定人員_bt.Enabled = False
    End Sub

    Private Sub 儲存_bt_Click(sender As Object, e As EventArgs) Handles 儲存_bt.Click
        PA57 = 單號_tb.Text
        If (全選_cb.Checked = True) Then
            If 人員1_dgv.Rows.Count < 1 Then
                For I As Integer = 0 To 人員1_dgv.Rows.Count - 1
                    PA58 = 人員1_dgv.Rows(I).Cells("姓名").Value.ToString()
                    SQL_通用_明細表新增()
                Next
            Else
                For I As Integer = 0 To 人員1_dgv.Rows.Count - 1
                    Dim skip As Boolean = False ' 用于标记是否跳过当前外层循环

                    For II As Integer = 0 To 人員_dgv.Rows.Count - 1
                        If 人員1_dgv.Rows(I).Cells("姓名").Value.ToString() = 人員_dgv.Rows(II).Cells("姓名").Value.ToString() Then
                            skip = True ' 标记跳过当前外层循环
                            Exit For ' 跳出内层循环
                        End If
                    Next

                    If skip Then
                        Continue For ' 跳过当前外层循环的当前迭代
                    End If

                    PA58 = 人員1_dgv.Rows(I).Cells("姓名").Value.ToString()
                    SQL_通用_明細表新增()
                Next
            End If

        End If
        SQL_通用_控制表修改(檔案名稱_tb.Text, 主旨_tb.Text, 說明_tb.Text, 單號_tb.Text, 全選_cb.Checked) : conn.Close() : MsgBox("儲存成功!!") : Set_清單1() : Set_清單2()

        'If 開單人_tb.Text = gUserName Or 登入人級別 = "00" Then
        '    SQL_通用_控制表修改(檔案名稱_tb.Text, 主旨_tb.Text, 說明_rtb.Text, 單號_tb.Text) : conn.Close() : MsgBox("儲存成功!!") : Set_清單1()
        '    If 登入人級別 <> "00" Then
        '        刪除_bt.Enabled = True : 儲存_bt.Enabled = True : 作廢_bt.Enabled = True : 列印_bt.Enabled = True : 新增_bt.Enabled = True
        '    End If
        'Else
        '    MsgBox("請確認開單人是否為本人")
        'End If
    End Sub
    Private Sub 發行_bt_Click(sender As Object, e As EventArgs) Handles 發行_bt.Click
        SQL_通用_控制表發行(單號_tb.Text) : conn.Close() : MsgBox("發行成功!!") : Set_清單1()

    End Sub

    Private Sub 作廢_bt_Click(sender As Object, e As EventArgs) Handles 作廢_bt.Click
        SQL_通用_控制表作廢(單號_tb.Text) : conn.Close() : MsgBox("作廢成功!!") : Set_清單1()

    End Sub

    Private Sub 編輯人員_bt_Click(sender As Object, e As EventArgs) Handles 指定人員_bt.Click
        全選_cb.Checked = False
        PA57 = 單號_tb.Text : 選擇人員.ShowDialog() : Set_清單2()
    End Sub

    Private Sub 作廢的營運成本收支單_rb_CheckedChanged(sender As Object, e As EventArgs) Handles 作廢的營運成本收支單_rb.Click
        作廢的營運成本收支單_rb.Checked = True : 已核准的營運成本收支單_rb.Checked = False : 已發行的營運成本收支單_rb.Checked = False
        Set_清單1()
    End Sub
    Private Sub 已核准的營運成本收支單_rb_CheckedChanged(sender As Object, e As EventArgs) Handles 已核准的營運成本收支單_rb.Click
        作廢的營運成本收支單_rb.Checked = False : 已核准的營運成本收支單_rb.Checked = True : 已發行的營運成本收支單_rb.Checked = False
        Set_清單1()
    End Sub
    Private Sub 已發行的營運成本收支單_rb_CheckedChanged(sender As Object, e As EventArgs) Handles 已發行的營運成本收支單_rb.Click
        作廢的營運成本收支單_rb.Checked = False : 已核准的營運成本收支單_rb.Checked = False : 已發行的營運成本收支單_rb.Checked = True
        Set_清單1()
    End Sub
    Private Sub 查詢_tb_MouseEnter(sender As Object, e As EventArgs) Handles 查詢_tb.MouseEnter
        ToolTip1.SetToolTip(Me.查詢_tb, "關鍵字搜尋")
    End Sub
    Private Sub 新增_bt_MouseEnter(sender As Object, e As EventArgs) Handles 新增_bt.MouseEnter
        ToolTip1.SetToolTip(Me.新增_bt, "新增")
    End Sub
    Private Sub 確認新增_bt_MouseEnter(sender As Object, e As EventArgs) Handles 儲存_bt.MouseEnter
        ToolTip1.SetToolTip(Me.儲存_bt, "儲存")
    End Sub
    Private Sub 發行_bt_MouseEnter(sender As Object, e As EventArgs) Handles 發行_bt.MouseEnter
        ToolTip1.SetToolTip(Me.發行_bt, "發行")
    End Sub
    Private Sub 修改_bt_MouseEnter(sender As Object, e As EventArgs) Handles 作廢_bt.MouseEnter
        ToolTip1.SetToolTip(Me.作廢_bt, "作廢")
    End Sub
    Private Sub 刪除_bt_MouseEnter(sender As Object, e As EventArgs) Handles 刪除_bt.MouseEnter
        ToolTip1.SetToolTip(Me.刪除_bt, "刪除")
    End Sub
    Private Sub 匯出EXCEL_bt_MouseEnter(sender As Object, e As EventArgs) Handles 列印_bt.MouseEnter
        ToolTip1.SetToolTip(Me.列印_bt, "匯出PDF")
    End Sub
    Private Sub 字體_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 字體_NUD.ValueChanged
        主旨_tb.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
        說明_tb.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
    End Sub
    Private Sub 列印_bt_Click(sender As Object, e As EventArgs) Handles 列印_bt.Click
        'If 登入人級別 <> "00" Then
        '    刪除_bt.Enabled = False : 儲存_bt.Enabled = False : 作廢_bt.Enabled = True : 列印_bt.Enabled = True : 新增_bt.Enabled = True
        'End If
        Set_清單1()
        xlApp = CType(CreateObject("Excel.Application"), Microsoft.Office.Interop.Excel.Application) : xlApp.Visible = True : xlApp.DisplayAlerts = True
        xlApp.Application.WindowState = xlMaximized : xlBook = xlApp.Workbooks.Add : xlSheet = NewMethod(xlBook) : xlBook.Activate() : xlSheet.Activate()

        xlSheet.Cells(1, 1) = "黃柏翰皮膚科診所"
        xlSheet.Cells(2, 1) = 主旨_tb.Text
        Dim largeText As String = 說明_tb.Text

        ' 使用正则表达式去除多余的换行符
        Dim cleanedText As String = Regex.Replace(largeText, "(\r\n|\r|\n)+", vbCrLf)

        ' 现在根据换行符拆分文本
        Dim lines() As String = cleanedText.Split(New String() {vbCrLf}, StringSplitOptions.None)

        For i As Integer = 0 To lines.Count - 1
            字串處理(lines(i))
            lines(i) = 已處理字串
        Next

        For i = 0 To Lines.Count - 1
            xlSheet.Cells(3 + i, 1) = lines(i)
            N2 = i + 3
        Next

        BB(xlApp, xlSheet)
        xlApp.Sheets(2).Delete : xlSheet.PageSetup.PrintArea = ""
        Dim pdfFolderPath As String = Path.Combine(System.Windows.Forms.Application.StartupPath, "pdf")
        If Not Directory.Exists(pdfFolderPath) Then
            Directory.CreateDirectory(pdfFolderPath)
        End If
        Dim pdfFilePath As String = Path.Combine(pdfFolderPath, 檔案名稱_tb.Text & ".pdf")
        xlBook.Sheets(1).ExportAsFixedFormat(XlFixedFormatType.xlTypePDF, pdfFilePath, XlFixedFormatQuality.xlQualityStandard, True)
        xlApp.Cells.Select() : xlApp.Application.WindowState = xlMinimized : xlBook.Close(False)
        Runtime.InteropServices.Marshal.ReleaseComObject(xlSheet)
        Runtime.InteropServices.Marshal.ReleaseComObject(xlBook)
        Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)
        xlApp.Quit() : xlSheet = Nothing : xlBook = Nothing : xlApp = Nothing : GC.Collect()
        Try
            Dim chromePath As String = "C:\Program Files\Google\Chrome\Application\chrome.exe"
            If System.IO.File.Exists(chromePath) Then
                Dim process As New Process()
                process.StartInfo.FileName = "chrome"
                process.StartInfo.Arguments = """" & pdfFilePath & """"
                process.Start()
            Else : Dim edgePath As String = "C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe"
                If System.IO.File.Exists(edgePath) Then
                    Dim process As New Process()
                    process.StartInfo.FileName = "msedge"
                    process.StartInfo.Arguments = """" & pdfFilePath & """"
                    process.Start()
                Else
                    Process.Start(pdfFilePath)
                End If
            End If
        Catch ex As Exception
            MsgBox("以存檔至桌面 。" & vbCrLf & "檔案名稱：" & 檔案名稱_tb.Text & ".pdf")
        End Try
    End Sub
    Public Sub 字串處理(ByVal 說明1 As String)
        Dim 前面空白數量 As Integer = 0
        While Strings.Right(說明1, 1) = " " : 說明1 = 說明1.Substring(0, 說明1.Length - 1) : End While
        While 說明1.StartsWith(" ") : 說明1 = 說明1.Substring(1) : 前面空白數量 += 1 : End While
        If 說明1.Contains("    ") Then
            Dim 空白數量() As String = 說明1.Split(" ") : Dim 中間空白數量 As Integer = 1
            For j As Integer = 0 To 空白數量.Length - 1 : If 空白數量(j) = "" Then : 中間空白數量 += 1 : End If : Next
            Dim 要去除的空白數量 As Integer = 中間空白數量 \ 2 : Dim 已去除的數量 As Integer = 0 : Dim 除2字串 As String = ""
            For i As Integer = 0 To 空白數量.Length - 1
                If 空白數量(i) = "" Then : If 已去除的數量 < 要去除的空白數量 Then : 已去除的數量 += 1 : Else : 除2字串 &= " " : End If : Else : 除2字串 &= 空白數量(i) : End If
            Next : 說明1 = 除2字串
        End If
        If 前面空白數量 > 0 Then : Dim 要增加的空白數量 As Integer = 前面空白數量 \ 2 : For i As Integer = 0 To 要增加的空白數量 - 1 : 說明1 = " " & 說明1 : Next : End If
        已處理字串 = 說明1
    End Sub
    Private Shared Function NewMethod(xlBook As Microsoft.Office.Interop.Excel.Workbook) As Microsoft.Office.Interop.Excel.Worksheet
        Return CType(xlBook.Worksheets.Add, Microsoft.Office.Interop.Excel.Worksheet)
    End Function
    Private Sub BB(ByVal myExcel As Microsoft.Office.Interop.Excel.Application, ByVal xlSheet As Microsoft.Office.Interop.Excel.Worksheet)
        xlSheet.Activate() ' 激活工作表
        myExcel.ActiveWindow.View = XlWindowView.xlPageLayoutView

        myExcel.Application.PrintCommunication = False
        With myExcel.ActiveSheet.PageSetup
            .PrintTitleRows = ""
            .PrintTitleColumns = ""
        End With
        myExcel.Application.PrintCommunication = True
        myExcel.ActiveSheet.PageSetup.PrintArea = ""
        myExcel.Application.PrintCommunication = False
        With myExcel.ActiveSheet.PageSetup
            .LeftHeader = ""
            .CenterHeader = ""
            .RightHeader = ""
            .LeftFooter = ""
            .CenterFooter = ""
            .RightFooter = ""
            .LeftMargin = myExcel.Application.InchesToPoints(0.7)
            .RightMargin = myExcel.Application.InchesToPoints(0.7)
            .TopMargin = myExcel.Application.InchesToPoints(0.3)
            .BottomMargin = myExcel.Application.InchesToPoints(0.3)
            .HeaderMargin = myExcel.Application.InchesToPoints(0.3)
            .FooterMargin = myExcel.Application.InchesToPoints(0.3)
            .PrintHeadings = False
            .PrintGridlines = False
            .CenterHorizontally = True
            .CenterVertically = False
            .Draft = False
            .FirstPageNumber = xlAutomatic
            .BlackAndWhite = False
            .Zoom = False
            .FitToPagesWide = 0
            .FitToPagesTall = 0
            .OddAndEvenPagesHeaderFooter = False
            .DifferentFirstPageHeaderFooter = False
            .ScaleWithDocHeaderFooter = True
            .AlignMarginsHeaderFooter = True
            .EvenPage.LeftHeader.Text = ""
            .EvenPage.CenterHeader.Text = ""
            .EvenPage.RightHeader.Text = ""
            .EvenPage.LeftFooter.Text = ""
            .EvenPage.CenterFooter.Text = ""
            .EvenPage.RightFooter.Text = ""
            .FirstPage.LeftHeader.Text = ""
            .FirstPage.CenterHeader.Text = ""
            .FirstPage.RightHeader.Text = ""
            .FirstPage.LeftFooter.Text = ""
            .FirstPage.CenterFooter.Text = ""
            .FirstPage.RightFooter.Text = ""
        End With
        myExcel.Application.PrintCommunication = True
        xlSheet.Cells.Select()
        With myExcel.Selection.Font
            .Name = "微軟正黑體"
            .Size = 14
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
            .OutlineFont = False
            .Shadow = False
            .Underline = xlUnderlineStyleNone
            .ThemeColor = xlThemeColorLight1
            .TintAndShade = 0
            .ThemeFont = xlThemeFontNone
        End With
        xlSheet.Columns("A:A").ColumnWidth = 80

        xlSheet.Columns("A:A").Select
        With myExcel.Selection
            .HorizontalAlignment = xlGeneral
            .VerticalAlignment = xlCenter
            .WrapText = True
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With

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

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

        With myExcel.Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .WrapText = True
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        With myExcel.Selection.Font
            .Name = "微軟正黑體"
            .Size = 18
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
            .OutlineFont = False
            .Shadow = False
            .Underline = xlUnderlineStyleNone
            .ThemeColor = xlThemeColorLight1
            .TintAndShade = 0
            .ThemeFont = xlThemeFontNone
            .Bold = True
        End With
        xlSheet.Rows("1:1").EntireRow.AutoFit
        xlSheet.Rows(1).RowHeight = xlSheet.Rows(1).RowHeight + 5
        xlSheet.Rows("2:2").EntireRow.AutoFit
        xlSheet.Rows(2).RowHeight = xlSheet.Rows(1).RowHeight + 5
        For i = 3 To N2
            xlSheet.Rows(i & ":" & i).Select
            xlSheet.Rows(i & ":" & i).EntireRow.AutoFit
            If xlSheet.Rows(i).RowHeight + 5 > 409 Then
                xlSheet.Rows(i).RowHeight = 409
            Else
                xlSheet.Rows(i).RowHeight = xlSheet.Rows(i).RowHeight + 5
            End If

        Next
    End Sub


End Class