在VB.NET中调用EXCEL，修改EXCEL中的打印机，请问该如何处理。

在VB.NET中调用EXCEL，修改EXCEL中的打印机，请问该如何处理。
主要是为了修改EXCEL中的打印机，现不知道该如何实现。
现有程序如下：
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim w_xls As Object = Nothing
        Dim i As Integer
        Dim excelName As String = ""
        Dim saveName As String = ""
        Dim searchPort As String = ""
        Dim searchPrinter As String = ""

        Try
            excelName = "D:\abc.xlt"
            saveName = "D:\abc" & Format(Now, "yyMMddhhmmss") & ".xls"

            w_xls = CreateObject("Excel.Application")

            w_xls.workbooks.open(FileName:=excelName)

            w_xls.Sheets(1).Select()

            w_xls.cells(1, 1) = “aaa”

            w_xls.cells(1, 1).Select()

            '用纸设定
            w_xls.ActiveSheet.PageSetup.PaperSize = xlPaperA4

            w_xls.Visible = False
            w_xls.ScreenUpdating = True

            w_xls.ActiveWorkbook.SaveAs(FileName:=saveName, CreateBackup:=False)

   '打印机设定
            w_xls.activeprinter = ???????????????

            w_xls.ActiveWorkbook.PrintOut()

            w_xls.Quit()

            w_xls = Nothing

        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "test")
        End Try

    End Sub
--------------------编程问答-------------------- 就是面板上列出的打印机的名称,选一个试试

补充：.NET技术 ,  VB.NET