Imprimir en Word

[roman]

Yo no entiendo qué es lo que preguntas. Por un lado parece que tienes dudas de como imprimir. Pues bien, usa Document.PrintOut. Pero por otro lado parece que tú problema está con los reemplazos ya que enfatizas mucho en ello.

// Saludos

[Carliviris]

No roman, mi problema no esta con los reemplazos. Los menciono mucho para que vean de que tipo de impresion es que estoy hablando. Pero probare eso que me has dado y te doy la respuesta enseguida.

[Carliviris]

me da este error cuando intento usar el document.printout:

Código Delphi [-]
---------------------------
Debugger Exception Notification
---------------------------
Project contratos.exe raised exception class EOleError with message 'Method 'PrintOut' not supported by automation object'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------

Aqui les presento la parte del codigo donde utilizo el printout:

Código Delphi [-]
function TwinMain.CONTRATO_StringReplace(ADocument: TFileName; Sender: TObject): Boolean;
const
  wdFindContinue = 1;
  wdReplaceOne = 1;
  wdReplaceAll = 2;
  wdDoNotSaveChanges = 0;
var
 i           : integer;
 Flags       : TWordReplaceFlags;
begin

  Result := False;
  Flags  := [wrfReplaceAll];

  { Chequea si el archivo existe }
  if not FileExists(ADocument) then
   begin
    ShowMessage('El documento especificado no existe');
    Exit;
  end;

  { Creando el Objeto Ole }
  try
    WordApp := CreateOLEObject('Word.Application');
  except
    on E: Exception do
    begin
      E.Message := 'Microsoft Word no esta habilitado';
      raise;
    end;
  end;

  Contrato_SearchString;

  try
  { Ocultar Microsoft Word }
   WordApp.Visible := true;
    { Abrir el documento }
   WordApp.Documents.Open(ADocument);

   { Inicializacion de los parametros}
    for i:= 1 to 28 do
     begin
       //Para desplegar el desglose_inicial//
       if i = 27 then
        Desg_Inicial_Cont;

       if ((i <> 28) and (i <> 27)) then
        begin
         WordApp.Selection.Find.ClearFormatting;
         WordApp.Selection.Find.Text := SearchStr[i];
         WordApp.Selection.Find.Replacement.Text := ReplaceStr[i];
         WordApp.Selection.Find.Forward := True;
         WordApp.Selection.Find.Wrap := wdFindContinue;
         WordApp.Selection.Find.Format := False;
         WordApp.Selection.Find.MatchCase := wrfMatchCase in Flags;
         WordApp.Selection.Find.MatchWholeWord := False;
         WordApp.Selection.Find.MatchWildcards := wrfMatchWildcards in Flags;
         WordApp.Selection.Find.MatchSoundsLike := False;
         WordApp.Selection.Find.MatchAllWordForms := False;

         { Perform the search}
         if wrfReplaceAll in Flags then
           WordApp.Selection.Find.Execute(Replace := wdReplaceAll)
         else
           WordApp.Selection.Find.Execute(Replace := wdReplaceOne);
       end
       else
        begin
            //Para desglose_cuotas//
           DesgloseCuotas;
        end;
     end;
     finally
      WordApp.Documents.PrintOut;

[roman]

Debe aplicarse al objeto Document, no sé si funcione también para el objeto Application.

Como yo lo he usado es así:

Código Delphi [-]
var
  WordApp, Document: OleVariant;

...

Document := WordApp.Documents.Open(ADocument);

...

Document.PrintOut(false);

Document.Close;
WordApp.Quit;

Si no le pasas el parámtro false a PrintOut o le pasas true, te puede causar problemas porque la sentencia PrintOut termina antes de terminar la impresión, se manera que se cierra el documento antes de terminar. El false indica que PrintOut no regrese sino hasta que termine la impresión.

// Saludos

[Carliviris]

Ey, hice unos ajustes con las lineas de codigo que me paso roman y todo salio excelente.

Lo que cambie fue lo siguiente:
Yo tenia:

Código Delphi [-]
WordApp.Documents.Open(ADocument);

Y cambie por:

Código Delphi [-]
Document := WordApp.Documents.Open(ADocument);

mandando a imprimir:

Código Delphi [-]
...

Document.PrintOut(false);

[Carliviris]

ahh, gracias a todos por ayudar

[Casimiro Noteví]

Hola Waldo, debes crear un nuevo hilo con tu pregunta porque es algo distinto a lo que se inició el hilo, o sea, que no estás aportando nada a la resolución de este tema, sino que estás haciendo una pregunta nueva. Recuerda nuestra guía de estilo, gracias.