Visual Basic.NET - Imprimir documento word sin dialogo

Imports Microsoft.Office.Interop.Word

Dim wd As Microsoft.Office.Interop.Word.Application

Dim wDoc As Microsoft.Office.Interop.Word.Document

wd = CreateObject("Word.Application")

wDoc = wd.Documents.Add(rutaDeArchivoAImprimir)

 wDoc.PrintOut()

Sub finalizar_procesos()

        Dim p As Process

        For Each p In Process.GetProcesses()

            If Not p Is Nothing Then

                If p.ProcessName = "WINWORD"  Then

                    p.Kill()

                End If

            End If

        Next

    End Sub