imprimir word desde macro de excel

hola a todos esto me lo encontre en otro foro de programación y se me hize interesante es sobre como imprimir un documento de word en una macro de excel aqui les dejo el codigo saludos

usuario: Hola a todos, quisiera que alguien me dijera como podria imprimir un documento de word desde una macro de excel. He visto en el tablon una respuesta a abrir word, pero no se como hacer imprimir el archivo abierto. Gracias de antemano. Un saludo

Experto: Con el método PrintOut puedes hacer esto, aquí va un ejemplo :
Sub imprime()
Dim WordApp As Object Set WordApp = CreateObject("Word.Application")

'Nombre del archivo que se abrirá WordApp.Documents.Open "C:Documents and SettingsprodilloMis documentosPaul,s Mail.doc"
WordApp.Visible = True
'Imprimir el archivo
WordApp.PrintOut

WordApp.Quit Set WordApp = Nothing
End Sub

Espero que te sea de utilidad, saludos. (Si necesitas otras cosas acerca de Macros visita mi página en construcción www.excelworker.virtuabyte.cl)

fuente:http://www.todoexpertos.com/categorias/tecnologia-e-internet/software-y-aplicaciones/microsoft-excel/respuestas/961529/imprimir-word-desde-macro-de-excel