Imprimir un documento con Word desde VB:

Con este código, Word no se abre, imprime el documento, se cierra y se libera la memoria.

Private Sub Command1_Click()
Dim AppWord As Word.Application
Dim DocWord As Word.Document

'Asignamos el documento
  Set AppWord = CreateObject("word.application")
  Set DocWord = AppWord.Documents.Open("C:\hola.doc")
'Colocamos el texto en el marcador
  DocWord.Bookmarks("NombreCreador").Select
  AppWord.Selection.TypeText Text:=Text1.Text
'Imprimimos en segundo plano
  AppWord.Documents(1).PrintOut Background
'Comprobamos que Word no sigue imprimiendo
  Do While AppWord.BackgroundPrintingStatus = 1
  Loop
'Cerramos el documento sin guardar cambios
  AppWord.Documents.Close (wdDotNotSaveChanges)
'Liberamos
  Set DocWord = Nothing
'Nos cargamos el objeto creado
  AppWord.Quit
  Set AppWord = Nothing
  End Sub

    Dim WordObj As Object

    Screen.MousePointer = vbHourglass
    Set WordObj = GetObject(, "Word.application")
    WordObj.Visible = False
    
    WordObj.Documents.Open FileName:=" & Nombre_del_fichero.doc   ' Se abre el documento
    WordObj.Documents(Fichero).Activate        ' Lo activamos
    WordObj.ActiveDocument.PrintOut            ' Se imprime

    Screen.MousePointer = vbDefault
    Set WordObj = Nothing