Buenos días a todos. Tengo el siguiente código:
Código Delphi
[-]
gWord := CreateOLEObject('Word.Application');
gWord.Documents.Add(path);
Documento := gWord.Documents.Item(1);
Documento.Variables.Add('nombre', Edt_empleado.text);
...
Documento.Variables.Add('ciudad', Edt_lugar_incidencia.Text);
Documento.Fields.Update;
documento.Fields.ToggleShowCodes;
Document := gWord.ActiveDocument;
dialogs := gWord.Dialogs.item(88);
dialogs.show;
gWord.ActiveDocument.Close(0);
gWord.Quit(False);
El problema es que si añado la última línea (el .quit), parece ser que el Word se cierra antes de haber impreso. Si no pongo .quit, muestra el dialogo de impresión e imprime, pero se queda abierta la ventana de Word. He probado varios códigos para cerrar el Word, pero todos hacen que reviente, excepto .quit.
Alguna idea?
Gracias a todos.