Recherche
Recherche
Les mémos
Je débute...
Visites

 998933 visiteurs

 2 visiteurs en ligne

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


 


Catégorie : Les mémos - Automation
Page lue 5208 fois