要使用VBA代码在Access中打印Word文档并关闭它，可以使用以下代码示例：

Sub PrintAndCloseWordDoc()
    Dim objWord As Object
    Dim objDoc As Object
    
    ' 创建Word对象
    Set objWord = CreateObject("Word.Application")
    
    ' 打开Word文档
    Set objDoc = objWord.Documents.Open("C:\路径\至\你的\Word文档.docx")
    
    ' 设置打印参数（可选）
    objWord.ActivePrinter = "打印机名称"
    objWord.PrintOut
    
    ' 关闭Word文档
    objDoc.Close SaveChanges:=False
    
    ' 退出Word应用程序
    objWord.Quit
    
    ' 释放对象引用
    Set objDoc = Nothing
    Set objWord = Nothing
End Sub

在这个示例中，首先创建了一个Word对象，然后使用Documents.Open方法打开指定路径的Word文档。接下来，通过objWord.ActivePrinter属性设置打印机名称（可选），使用objWord.PrintOut方法打印文档。最后，使用objDoc.Close方法关闭文档并使用objWord.Quit方法退出Word应用程序。

请确保将代码中的文件路径和打印机名称替换为你自己的路径和名称。