Ver Mensaje Individual
  #4  
Antiguo 09-01-2013
Avatar de ethangio
ethangio ethangio is offline
Miembro
 
Registrado: jul 2008
Posts: 63
Reputación: 16
ethangio Va por buen camino
Gracias nlsgarcia mira mi codigo es este:

Código Delphi [-]
  (* Creas un objeto Word *)
  Word := CreateOleObject('Word.Application');

  (* Añades un documento basado en la plantilla *)
  Documento := Word.Documents.Open(ExtractFilePath(Application.ExeName)+'Template\agreement.dot');

  (* Asignas valores a los campos *)
  Documento.Variables.Add('nombre_negocio', ' xxxxx ');
  Documento.Variables.Add('direccion_negocio', ' xxxxxx ');
  Documento.Variables.Add('telefono_negocio', ' xxxxxx ');

  Documento.Fields.Update;
  Word.ActiveWindow.View.ShowFieldCodes := false;
  Word.PrintOut(false);
  Word.Visible := false;
  Documento.Close(false);
  Word.Quit;

Las ligas que me envias ya las revisé y solo que no dice nada de imprimir.

Todo esta bien llena las variables de la plantilla, excepto que cuando mando la sentencia Word.PrintOut(false); si imprime bien todo, excepto que imprime en una segunda hoja la informacion del documento.

Cuando digo la informacion del documento me refiero a que imprime:

Nombre de archivo : XXXXXX
Directorio :
Titulo :
Asnto :
Fecha de creacion :
etc.

Como que lo hace en automatico por que si pongo Word.Visible := true; no se ve en el documento.

Gracias por su tiempo. Uso word 2007 y voy a buscar Microsoft MSDN los parámetros de automatización y con respecto a la plantilla esta bien.

Última edición por ethangio fecha: 09-01-2013 a las 06:21:31. Razón: Faltó responder las preguntas de nlsgarcia.
Responder Con Cita