Boa noite!!

Tente...

Sub Teste()
    Dim AppWord As Word.Application
    Set AppWord = GetObject("C:Documents and SettingsAlexandreDesktoptesta.doc")
    With AppWord
        .ActiveDocument.PrintOut Background:=False
        .Quit SaveChanges:=False
    End With
    Set AppWord = Nothing
End Sub

Veja mais em:
http://stackoverflow.com/questions/1419 ... opening-it

Alexandre a rotina esta dando um erro.

---------------------------
Microsoft Visual Basic for Applications
---------------------------
Erro de compilação:

O tipo definido pelo usuário não foi definido
---------------------------
OK Help
---------------------------

Ficou Assim:

Sub Teste()
    Dim AppWord As word.Application
    Set AppWord = GetObject("C:UsersUlissesDesktopJoiasMelissFICHA DE ABERTURA e Termo.docx")
    With AppWord
        .ActiveDocument.PrintOut Background:=False
        .Quit SaveChanges:=False
    End With
    Set AppWord = Nothing
End Sub

O que será?

Boa noite!!
Lembre se de que há casos em devemos fazer refência a biblioteca.
Tente assim

Sub Teste()
    Dim WordApp As Object
    Set WordApp = CreateObject("Word.Application")
    OpenWordDoc WordApp, "C:UsersalexandreDownloadsdelete.docx"
    'OpenWordDoc WordApp, para imprimir mais de um arquivo
    WordApp.Quit
    Set WordApp = Nothing
End Sub
 
Public Sub OpenWordDoc(WD As Object, strPath As String)
    WD.Documents.Open (strPath)
    WD.ActiveDocument.PrintOut Background:=False
    WD.ActiveDocument.Close
End Sub

Perfeito Alexandrevba...muito obrigado

Boa noite!!

Obrigado pelo retorno!!

Precisando sabe onde nos encontrar

Att