Ver Mensaje Individual
  #2  
Antiguo 18-11-2010
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 19.439
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Por favor, utiliza TAG's cuando añadas código delphi.

En cuanto a la duda, es un código antiguo (y me temo que no funcionará con todas las versiones de Word), pero yo usaba algo similar a esto:

Código Delphi [-]
   ...
    if( VarIsEmpty( WinWord ) ) then begin
      WinWord := CreateOleObject('Word.Basic');
      ...
      WinWord.FileOpen(FFileName);
      ...
      // combinar corrrespondencia (esto no te hace falta)
      WinWord.MailMergeToDoc;
      ...
      // imprimir
      WinWord.FilePrint(,,,,,,,Self._FCopias);
      WinWord.FileCloseAll(2);
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita