Foro de elhacker.net

Public Sub Imprimiu(Path As String)
    
    Dim AppWord
    Dim DocWord
    
        'Asignar el documento
        Set AppWord = CreateObject("word.application")
        Set DocWord = AppWord.Documents.Open(Path)
        
        'Imprimir en segundo plano
        AppWord.Documents(1).PrintOut
        
        'Comprobar que Word no sigue imprimiendo
        Do While AppWord.BackgroundPrintingStatus = 1
        Loop
        'Cerrar el documento sin guardar cambios
        AppWord.Documents.Close
        'Liberar
        Set DocWord = Nothing
        'Cargamos el objeto creado
        AppWord.Quit
        Set AppWord = Nothing

End Sub