|
Tengo un sistema donde habro un .doc lo relaciono
con una base de datos e imprimo, anda todo Ok, pero me queda siempre abierto el
Word, y a la segunda ves si no lo cierro manualmente me da error.
El codigo que uso es este, pero no logro saber como
cerrar la aplicacion.
Dim objWord As Word.Application
Dim objDoc As Word.Document Dim aMerge As Word.MailMerge 'Ejecuta Word y lo deja visible Set objWord = New Word.Application objWord.Visible = True objWord.Application.WindowState = wdWindowStateMaximize 'Crea un Nuevo Documento
Set objDoc = objWord.Documents.Open(ArchivoDoc) objDoc.ActiveWindow.WindowState = wdWindowStateMaximize 'Activa el Documento
objDoc.Activate ' Inicializamos la variable con la correspondencia de este documento Set aMerge = objDoc.MailMerge aMerge.OpenDataSource Name:=ArchivoMDB, SQLStatement:=xSql ActiveDocument.Fields.Update If aMerge.Fields.Count >= 1 Then aMerge.Destination = wdSendToNewDocument aMerge.Execute objDoc.Close End If objWord.Application.ActiveDocument.PrintOut 'Destruyo aMerge ' aMerge.DataSource.Close Set aMerge = Nothing 'Destruyo objDoc 'objDoc.Close Set objDoc = Nothing 'Destruyo objWord objWord.Documents.Close 'objWord.ActiveWindow.Close Set objWord = Nothing Alguien me puede decir en donde esta la opcion para
que se vuelva a cerrar word que estoy como loco....
|
- [vbusers] Cuit/Cuil Hernan Aloni
- [vbusers] Cuit/Cuil Jorge Montenegro
- [vbusers] Cuit/Cuil Oscar Onorato \(MUG\)
- [vbusers] Cuit/Cuil Hernan Aloni
- [vbusers] Cuit/Cuil Jorge Montenegro
- [vbusers] Cuit/Cuil Julio.Novomisky.Mug
- [vbusers] Cuit/Cuil Hernan Aloni
- [vbusers] Ingresos Brutos Marcelo Larizzate
- [vbusers] Ingresos Brutos Lucas M. Fabiani Castro
- [vbusers] Problemas con Word... Gualeguay.Net
