Ver Mensaje Individual
  #1  
Antiguo 20-12-2010
mak8888 mak8888 is offline
Miembro
 
Registrado: sep 2003
Posts: 40
Reputación: 0
mak8888 Va por buen camino
problema impresión con Word a través de OLE

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);
    // le paso al Word las variables que quiero que "incruste" en el documento
    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.
Responder Con Cita