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

 987449 visiteurs

 2 visiteurs en ligne

Recherche
 
Fermer

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 5078 fois