Visual Basic - Imprimir documento de word

Hola a todos:

Me gustaría saber si vb permite la posibilidad de imprimir un documento de word y como se haría.

Me vendría genial para una aplicación que estoy desarrollando.

Gracias por vuestra colaboración.

Encontre hace tiempo en internet este código que para mis aplicaciones me sirve:

Private Sub cmdImprimir_Click()

Dim WrdObj As Object
Dim Resultado As Long
Dim strucFName As OFSTRUCT
Dim Fichero As String

Fichero = cmdImprimir.Caption
On Error GoTo TrataErrorX

Screen.MousePointer = vbHourglass
' Comprobar que el fichero Command Exista...
Resultado = OpenFile("C:\My_Document.Doc", strucFName, OF_EXIST)
If Resultado = -1 Then
MsgBox " El fichero : '" & Fichero & "' no se ha encontrado" & Chr$(13) & "Debe indicar una localizacion o fichero correcto.", vbExclamation
End
End If
Set WrdObj = GetObject(, "Word.application")
'Set WrdObj = GetObject(, "Word.application")
WrdObj.Visible = False

WrdObj.Documents.Open FileName:="C:\My_Document.Doc" ' Se abre el documentos
WrdObj.Documents("C:\My_Document.Doc").Activate ' Lo 'activamos'
WrdObj.ActiveDocument.PrintOut ' Se imprime
Screen.MousePointer = vbDefault

On Error GoTo 0
Exit Sub

TrataErrorX:
If Err = 429 Then
Set WrdObj = CreateObject("word.application")
Resume Next
Else
MsgBox "Se ha producido un error no controlado , Err = " & Err & Chr(13) & "Descripcion : " & Err.Description
Set WrdObj = Nothing
Screen.MousePointer = vbDefault
End
End If

End Sub

¡OJO!, tienes que agregar la referencia de Microsoft Word. Menu Proyecto + Referencias

Saludos

Muchas gracias por la información.

Saludos.

De nada. Suerte y hasta otro dia.

q buena