Suponiendo que ya has ejecutado el metodo PirntOut del objecto ActiveDocument, solo tienes que hacer lo siguiente:
ActiveDocument.close (0)
quit (0)
Te detallo un ejemplo
Dim wdApp As Word.Application
Set wdApp = New Word.Application
Dim I As Integer
With wdApp
.Visible = False
.Documents.Open Filename:="Documento.doc"
.Options.PrintBackground = False
.ActiveDocument.PrintOut
.ActiveDocument.Close (0)
.Quit (0)
End With
Con este codigo y sustituyendo Documento.doc en el metodo Documents.Open, te funcionará perfectamente.
Si tienes algún problema, ponte en contacto conmigo
Un saludo..
jlmartinez@arenal2000.es
