Imprimer Word invisible

Pour imprimer un document Word en arrière plan, donc sans voir apparaitre l'application, on peut utiliser la fonction suivante.

On placera cette fonction dans un module général.

Public Function fnPrintHide(sFichier As String)
    '
    ' Syntaxe :
    '
    '  fnPrintHide ("C:\Mes documents\Toto.doc")
    '
    On Error GoTo errPrintHide
    Dim oApp As Object
    Set oApp = CreateObject("Word.Application")
    '
    With oApp
        .Visible = False
        .Documents.Open FileName:=sFichier
        .PrintOut False
        .ActiveDocument.Close
        .Quit
    End With
    '
    Set oApp = Nothing
    '
exitPrintHide:
    Exit Function

errPrintHide:
    Resume exitPrintHide

End Function