Excel.ApplicationのActivePrinterによるプリンタの変更に関して

    Private Shared Sub OneMethod()
        Dim xlApp As Excel.Application

        Try
            xlApp = New Excel.Application()
            xlApp.DisplayAlerts = False
            xlApp.Visible = True

            Dim xlBooks As Excel.Workbooks = xlApp.Workbooks

            Try
                Dim xlBook As Excel.Workbook = xlBooks.Open("C:\Hoge.xls")

                Try
                    Dim xlSheets As Excel.Sheets = xlBook.Sheets

                    Try
                        Dim xlSheet As Excel.Worksheet = DirectCast(xlSheets(1), Excel.Worksheet)

                        Try
                            xlSheet.PrintOut(ActivePrinter:="ココにプリンタ名")
                        Finally
                            If Not xlSheet Is Nothing Then
                                System.Runtime.InteropServices.Marshal.ReleaseComObject(xlSheet)
                            End If
                        End Try
                    Finally
                        If Not xlSheets Is Nothing Then
                            System.Runtime.InteropServices.Marshal.ReleaseComObject(xlSheets)
                        End If
                    End Try
                Finally
                    If Not xlBook Is Nothing Then
                        Try
                            xlBook.Close()
                        Finally
                            System.Runtime.InteropServices.Marshal.ReleaseComObject(xlBook)
                        End Try
                    End If
                End Try
            Finally
                If Not xlBooks Is Nothing Then
                    Try
                        xlBooks.Close()
                    Finally
                        System.Runtime.InteropServices.Marshal.ReleaseComObject(xlBooks)
                    End Try
                End If
            End Try
        Finally
            If Not xlApp Is Nothing Then
                Try
                    xlApp.Quit()
                Finally
                    System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)
                End Try
            End If
        End Try
    End Sub