GF00-ERP-SYS-LEEHSIEHJUI/GF00-ERP-SYS/03.倉儲管理系統/倉儲對帳表.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.XlPrintLocation
Imports Microsoft.Office.Interop.Excel.XlPageOrientation
Imports Microsoft.Office.Interop.Excel.XlPaperSize
Imports Microsoft.Office.Interop.Excel.XlOrder
Imports Microsoft.Office.Interop.Excel.XlPrintErrors
Imports Microsoft.Office.Interop.Excel
Imports System.IO

Public Class 倉儲對帳表
    ReadOnly ds1 As New DataSet
    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 N2 As Integer

    Private Sub 倉儲對帳表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = ICS_ASMS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        SQL_物料資料庫_類別_下拉清單() : 類別清單_cb.Items.Clear()
        While (dr.Read()) : 類別清單_cb.Items.Add(dr("類別")) : End While : conn.Close()
        選擇供應商_cb.Items.Add("")
        SQL_物料資料庫_供應商_下拉清單()
        While (dr.Read()) : 選擇供應商_cb.Items.Add(dr("公司名")) : End While : conn.Close()
        Set_清單2()
        SQL_讀取公司名稱()
        If dr.Read() Then
            公司名稱.Text = dr("公司名稱")
        End If
    End Sub

    Private Sub Set_清單2()
        明細表_dgv.DataSource = Nothing : ds1.Clear()
        明細表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        明細表_dgv.ColumnHeadersHeight = 25
        明細表_dgv.AllowUserToAddRows = False
        明細表_dgv.RowTemplate.Height = 35
        明細表_dgv.EditMode = DataGridViewEditMode.EditOnEnter
        SQL_倉儲對帳表_明細表清單() : da.Fill(ds1) : 明細表_dgv.DataSource = ds1.Tables(0) : conn.Close()
        明細表_dgv.Columns(3).ReadOnly = True : 明細表_dgv.Columns(4).ReadOnly = True : 明細表_dgv.Columns(5).ReadOnly = True
        明細表_dgv.Columns(8).ReadOnly = True

        明細表_dgv.Columns(0).FillWeight = 60 : 明細表_dgv.Columns(1).FillWeight = 60 : 明細表_dgv.Columns(2).Visible = False : 明細表_dgv.Columns(3).FillWeight = 150
        明細表_dgv.Columns(4).FillWeight = 150 : 明細表_dgv.Columns(5).FillWeight = 40 : 明細表_dgv.Columns(6).FillWeight = 40
        明細表_dgv.Columns(7).FillWeight = 40 : 明細表_dgv.Columns(8).FillWeight = 40 : 明細表_dgv.Columns(9).FillWeight = 150
        明細表_dgv.Columns(10).Visible = False : 明細表_dgv.Columns(11).Visible = False
        明細表_dgv.Columns(7).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(8).DefaultCellStyle.Format = "#,##0"

        Dim NUM1, NUM2, NUM3, NUM4 As Integer
        For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
            明細表_dgv.Rows(i).Cells("總額").Value = 明細表_dgv.Rows(i).Cells("單價").Value * 明細表_dgv.Rows(i).Cells("數量").Value
            If 明細表_dgv.Rows(i).Cells("數量").Value < 0 Then
                NUM1 += 明細表_dgv.Rows(i).Cells("總額").Value
            Else
                NUM2 += 明細表_dgv.Rows(i).Cells("總額").Value
            End If
        Next
        本期銷貨金額_tb.Text = Strings.Format(Val(NUM2), "#,##0")
        本期銷退金額_tb.Text = Strings.Format(Val(-NUM1), "#,##0")
        NUM3 = NUM2 + NUM1
        合計金額_tb.Text = Strings.Format(Val(NUM3), "#,##0")
        NUM4 = NUM3 * 0.05
        If 含稅_ch.Checked = True Then
            稅額_tb.Text = Strings.Format(Val(NUM4), "#,##0")
            金額總計_tb.Text = Strings.Format(Val(NUM3 + NUM4), "#,##0")
        Else
            稅額_tb.Text = "0"
            金額總計_tb.Text = Strings.Format(Val(NUM3), "#,##0")
        End If

    End Sub
    Private Sub 含稅_CheckedChanged(sender As Object, e As EventArgs) Handles 含稅_ch.Click
        含稅_ch.Checked = True : 不含稅_ch.Checked = False
        Dim NUM1, NUM2 As Integer
        NUM1 = 合計金額_tb.Text
        NUM2 = NUM1 * 0.05
        If 含稅_ch.Checked = True Then
            稅額_tb.Text = Strings.Format(Val(NUM2), "#,##0")
            金額總計_tb.Text = Strings.Format(Val(NUM1 + NUM2), "#,##0")
        Else
            稅額_tb.Text = "0"
            金額總計_tb.Text = Strings.Format(Val(NUM1), "#,##0")
        End If

    End Sub
    Private Sub 不含稅_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 不含稅_ch.Click
        含稅_ch.Checked = False : 不含稅_ch.Checked = True
        Dim NUM1, NUM2 As Integer
        NUM1 = 合計金額_tb.Text
        NUM2 = NUM1 * 0.05
        If 含稅_ch.Checked = True Then
            稅額_tb.Text = Strings.Format(Val(NUM2), "#,##0")
            金額總計_tb.Text = Strings.Format(Val(NUM1 + NUM2), "#,##0")
        Else
            稅額_tb.Text = "0"
            金額總計_tb.Text = Strings.Format(Val(NUM1), "#,##0")
        End If

    End Sub
    Private Sub 選擇供應商_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 選擇供應商_cb.SelectedIndexChanged
        Set_清單2()
        If 選擇供應商_cb.Text = "" Then
            供應商編號.Text = "" : 供應商名稱.Text = "" : 地址.Text = "" : 電話.Text = "" : 傳真.Text = ""
        Else
            SQL_倉儲對帳表_供應商資料()
            While (dr.Read())
                供應商編號.Text = dr("編號") : 供應商名稱.Text = dr("名稱") : 地址.Text = dr("地址") : 電話.Text = dr("電話") : 傳真.Text = dr("傳真")
            End While : conn.Close()
        End If
    End Sub
    Private Sub 開始日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 開始日期_dtp.ValueChanged
        Set_清單2() : 開始日期_dtp.CustomFormat = "yyyy/MM/dd"
        開始日期_dtp.Format = DateTimePickerFormat.Custom
    End Sub
    Private Sub 結束日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 結束日期_dtp.ValueChanged
        Set_清單2() : 結束日期_dtp.CustomFormat = "yyyy/MM/dd"
        結束日期_dtp.Format = DateTimePickerFormat.Custom
    End Sub
    Private Sub 當日_bt_Click(sender As Object, e As EventArgs) Handles 當日_bt.Click
        中間日期_dtp.Value = Today
        DTP = Strings.Format(Today(), "yyyy/MM/dd")
        開始日期_dtp.Value = DTP : 結束日期_dtp.Value = DTP
        Set_清單2()
    End Sub
    Private Sub 當月_bt_Click(sender As Object, e As EventArgs) Handles 當月_bt.Click
        中間日期_dtp.Value = Today
        DTP = Strings.Left(Strings.Format(Today(), "yyyy/MM/dd"), 8) & "01"
        開始日期_dtp.Value = DTP : 結束日期_dtp.Value = Today()
        Set_清單2()
    End Sub
    Private Sub 會計月_CheckedChanged(sender As Object, e As EventArgs) Handles 會計月_ch.Click
        會計月_ch.Checked = True : 一般月_ch.Checked = False : 日期格式() : Set_清單2()
    End Sub
    Private Sub 一般月_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 一般月_ch.Click
        會計月_ch.Checked = False : 一般月_ch.Checked = True : 日期格式() : Set_清單2()
    End Sub
    Private Sub 上個月_bt_Click(sender As Object, e As EventArgs) Handles 上個月_bt.Click

        If 會計月_ch.Checked = True Then
            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
            開始日期_dtp.Value = 中間日期_dtp.Value
            結束日期_dtp.Value = 中間日期_dtp.Value
        Else
            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
            開始日期_dtp.Value = 中間日期_dtp.Value
            結束日期_dtp.Value = 中間日期_dtp.Value
        End If : 日期格式() : Set_清單2()
    End Sub
    Private Sub 下個月_bt_Click(sender As Object, e As EventArgs) Handles 下個月_bt.Click

        If 會計月_ch.Checked = True Then
            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(1)
            開始日期_dtp.Value = 中間日期_dtp.Value
            結束日期_dtp.Value = 中間日期_dtp.Value
        Else
            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(1)
            開始日期_dtp.Value = 中間日期_dtp.Value
            結束日期_dtp.Value = 中間日期_dtp.Value
        End If : 日期格式() : Set_清單2()
    End Sub
    Private Sub 日期格式()
        If 會計月_ch.Checked = True Then
            '-------------日期一----------------------------------------------------------------------------------------
            DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
            開始日期_dtp.Value = 結束日期_dtp.Value.AddMonths(-1)
            DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "26" : 開始日期_dtp.Value = DTP
            '-------------日期二----------------------------------------------------------------------------------------
            DTP = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "25" : 結束日期_dtp.Value = DTP
        Else
            開始日期_dtp.Value = 結束日期_dtp.Value
            '-------------日期一----------------------------------------------------------------------------------------
            DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
            '-------------日期二----------------------------------------------------------------------------------------
            DTP = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 結束日期_dtp.Value = DTP
            結束日期_dtp.Value = 結束日期_dtp.Value.AddMonths(1) : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(-1)
        End If
    End Sub
    Private Sub 匯出EXCEL_bt_MouseEnter(sender As Object, e As EventArgs) Handles 匯出EXCEL_bt.MouseEnter
        ToolTip1.SetToolTip(Me.匯出EXCEL_bt, "匯出PDF")
    End Sub
    Private Sub 匯出EXCEL_bt_Click(sender As Object, e As EventArgs) Handles 匯出EXCEL_bt.Click
        xlApp = CType(CreateObject("Excel.Application"), Microsoft.Office.Interop.Excel.Application)
        xlApp.Visible = True
        xlApp.DisplayAlerts = True
        xlApp.Application.WindowState = xlMaximized
        xlBook = xlApp.Workbooks.Add
        xlSheet = NewMethod(xlBook)
        xlBook.Activate()
        xlSheet.Activate()
        Dim m As String
        Dim selectedDate As DateTime = 中間日期_dtp.Value
        Dim y As String = selectedDate.Year.ToString()
        If selectedDate.Month < 10 Then : m = "0" & selectedDate.Month.ToString()
        Else : m = selectedDate.Month.ToString()
        End If


        xlSheet.Cells(1, 1) = 公司名稱.Text & y & "年" & m & "月銷貨明細表"
        xlSheet.Cells(2, 1) = "供應商名稱: " & 供應商名稱.Text
        xlSheet.Cells(2, 4) = "供應商編號: " & 供應商編號.Text
        xlSheet.Cells(3, 1) = "地址: " & 地址.Text
        xlSheet.Cells(4, 1) = "電話: " & 電話.Text
        xlSheet.Cells(4, 4) = "傳真: " & 傳真.Text
        xlSheet.Cells(5, 1) = "項次" : xlSheet.Cells(5, 2) = "車種年份" : xlSheet.Cells(5, 3) = "品名"
        xlSheet.Cells(5, 4) = "廠牌" : xlSheet.Cells(5, 5) = "數量" : xlSheet.Cells(5, 6) = "單價" : xlSheet.Cells(5, 7) = "總額"
        xlSheet.Cells(5, 8) = "備註"
        For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
            xlSheet.Cells(i + 6, 1) = i + 1
            Dim str As String
            Dim cellValue As Object = 明細表_dgv.Rows(i).Cells("車種年份").Value

            If cellValue IsNot Nothing AndAlso IsNumeric(cellValue.ToString()) Then
                ' 如果是數字，則加上 '
                str = "'" & cellValue.ToString()
            Else
                str = 明細表_dgv.Rows(i).Cells("車種年份").Value
            End If

            xlSheet.Cells(i + 6, 2) = str : xlSheet.Cells(i + 6, 3) = 明細表_dgv.Rows(i).Cells("品名").Value
            xlSheet.Cells(i + 6, 4) = 明細表_dgv.Rows(i).Cells("廠牌").Value : xlSheet.Cells(i + 6, 5) = 明細表_dgv.Rows(i).Cells("數量").Value
            Dim value As Double = Convert.ToDouble(明細表_dgv.Rows(i).Cells("單價").Value)
            Dim formattedValue As String = value.ToString("#,##0") : xlSheet.Cells(i + 6, 6) = formattedValue
            Dim value1 As Double = Convert.ToDouble(明細表_dgv.Rows(i).Cells("總額").Value)
            Dim formattedValue1 As String = value1.ToString("#,##0") : xlSheet.Cells(i + 6, 7) = formattedValue1
            xlSheet.Cells(i + 6, 8) = 明細表_dgv.Rows(i).Cells("備註").Value
            N2 = i
        Next i
        xlSheet.Cells(N2 + 7, 4) = "金額合計:" : xlSheet.Cells(N2 + 7, 6) = 合計金額_tb.Text
        xlSheet.Cells(N2 + 8, 4) = "稅        額:" : xlSheet.Cells(N2 + 8, 6) = 稅額_tb.Text
        xlSheet.Cells(N2 + 9, 4) = "金額總計:" : xlSheet.Cells(N2 + 9, 6) = 金額總計_tb.Text
        BB(xlApp, xlSheet)
        xlApp.Sheets(2).Delete : xlSheet.PageSetup.PrintArea = ""
        '----轉成PDF-----
        Dim pdfFolderPath As String = Path.Combine(System.Windows.Forms.Application.StartupPath, "pdf")
        If Not Directory.Exists(pdfFolderPath) Then
            Directory.CreateDirectory(pdfFolderPath)
        End If
        Dim pdfFilePath As String = Path.Combine(pdfFolderPath, 供應商名稱.Text & y & "年" & m & "月-對帳單.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 & "檔案名稱：" & 供應商名稱.Text & y & "年" & m & "月-對帳單.pdf")
        End Try
    End Sub
    Private Sub BB(ByVal myExcel As Microsoft.Office.Interop.Excel.Application, ByVal xlSheet As Microsoft.Office.Interop.Excel.Worksheet)
        xlSheet.Cells.Select()
        With myExcel.Selection.Font
            .Name = "微軟正黑體"
            .Size = 10
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
            .OutlineFont = False
            .Shadow = False
            .Underline = xlUnderlineStyleNone
            .ThemeColor = xlThemeColorLight1
            .TintAndShade = 0
            .ThemeFont = xlThemeFontNone
        End With
        xlSheet.Range("A1:H1").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.Range("A2:H4").Select()
        With myExcel.Selection.Font
            .Name = "微軟正黑體"
            .Size = 12
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
            .OutlineFont = False
            .Shadow = False
            .Underline = xlUnderlineStyleNone
            .ThemeColor = xlThemeColorLight1
            .TintAndShade = 0
            .ThemeFont = xlThemeFontNone
        End With

        xlSheet.Columns("A:A").ColumnWidth = 4.5
        xlSheet.Columns("B:B").ColumnWidth = 22
        xlSheet.Columns("C:C").ColumnWidth = 28
        xlSheet.Columns("D:D").ColumnWidth = 6
        xlSheet.Columns("E:E").ColumnWidth = 4
        xlSheet.Columns("F:F").ColumnWidth = 7
        xlSheet.Columns("G:G").ColumnWidth = 8
        xlSheet.Columns("H:H").ColumnWidth = 14


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

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

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

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

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

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

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

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

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

        xlSheet.Range("D" & N2 + 7 & ":E" & N2 + 7).Select()
        With myExcel.Selection
            .HorizontalAlignment = xlRight
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        myExcel.Selection.Merge

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

        xlSheet.Range("D" & N2 + 8 & ":E" & N2 + 8).Select()
        With myExcel.Selection
            .HorizontalAlignment = xlRight
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        myExcel.Selection.Merge

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

        xlSheet.Range("D" & N2 + 9 & ":E" & N2 + 9).Select()
        With myExcel.Selection
            .HorizontalAlignment = xlRight
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        myExcel.Selection.Merge

        xlSheet.Range("F" & N2 + 9 & ":G" & N2 + 9).Select()
        With myExcel.Selection
            .HorizontalAlignment = xlRight
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        myExcel.Selection.Merge
        myExcel.Application.PrintCommunication = False
        With myExcel.ActiveSheet.PageSetup
            .PrintTitleRows = "$1:$5"
            .PrintTitleColumns = "$A:$H"
        End With
        myExcel.Application.PrintCommunication = True
        myExcel.ActiveSheet.PageSetup.PrintArea = ""
        myExcel.Application.PrintCommunication = False
        With myExcel.ActiveSheet.PageSetup
            .LeftHeader = ""
            .CenterHeader = ""
            .RightHeader = "&D"
            .LeftFooter = ""
            .CenterFooter = "第 &P 頁，共 &N 頁"
            .RightFooter = ""
            .LeftMargin = myExcel.Application.InchesToPoints(0.25)
            .RightMargin = myExcel.Application.InchesToPoints(0.25)
            .TopMargin = myExcel.Application.InchesToPoints(0.75)
            .BottomMargin = myExcel.Application.InchesToPoints(0.75)
            .HeaderMargin = myExcel.Application.InchesToPoints(0.3)
            .FooterMargin = myExcel.Application.InchesToPoints(0.3)
            .PrintHeadings = False
            .PrintGridlines = False
            .CenterHorizontally = False
            .CenterVertically = False
            .Draft = False
            .FirstPageNumber = xlAutomatic
            .BlackAndWhite = False
            .Zoom = 100
            .OddAndEvenPagesHeaderFooter = False
            .DifferentFirstPageHeaderFooter = False
            .ScaleWithDocHeaderFooter = True
            .AlignMarginsHeaderFooter = True
            .EvenPage.LeftHeader.Text = ""
            .EvenPage.CenterHeader.Text = ""
            .EvenPage.RightHeader.Text = ""
            .EvenPage.LeftFooter.Text = ""
            .EvenPage.CenterFooter.Text = ""
            .EvenPage.RightFooter.Text = ""
            .FirstPage.LeftHeader.Text = ""
            .FirstPage.CenterHeader.Text = ""
            .FirstPage.RightHeader.Text = ""
            .FirstPage.LeftFooter.Text = ""
            .FirstPage.CenterFooter.Text = ""
            .FirstPage.RightFooter.Text = ""
        End With
        myExcel.Application.PrintCommunication = True
    End Sub
    Private Shared Function NewMethod(xlBook As Microsoft.Office.Interop.Excel.Workbook) As Microsoft.Office.Interop.Excel.Worksheet
        Return CType(xlBook.Worksheets.Add, Microsoft.Office.Interop.Excel.Worksheet)
    End Function
End Class