Imprimir en Word

[jachguate]

Hola.

Por favor, explicame cómo es que haces fallar a la etiqueta delphi, pues he realizado pruebas, incluso con unidades completas de código y ha funcionado de maravilla, tanto al hacer una "vista previa de Mensaje" como al publicar el post.

En concreto, he probado metiendole las unidades:

• SHFolder.pas, 3,762 caracteres, 94 líneas.
• ObjComAuto.pas, 13,828 caracteres, 417 líneas
• OpenGL.pas, 149,688 caracteres, 3,548 líneas: obtuve un mensaje de error indicando que el mayor texto que puede enviarse es de 20,000 caracteres, así que lo reduje a mas o menos esa cantidad y todo funcionó ok.

En todos los casos, como ya dije, ha funcionado perfecto.

[Carliviris]

el mensaje que envie dividido las etiquetas en dos, ese mensaje completo sin dividir fue que me dio el fallo.

aunque antes de publicarlo entraba a vista previa
no se si enviandolo sin entrar a vista previa deja de fallar o si el fallo esta ahi

[Ñuño Martínez]

Empezado por Carliviris

el mensaje que envie dividido las etiquetas en dos, ese mensaje completo sin dividir fue que me dio el fallo.

aunque antes de publicarlo entraba a vista previa
no se si enviandolo sin entrar a vista previa deja de fallar o si el fallo esta ahi

A mi me falla siempre que uso primero "Vista Previa".

[nota] Creo que algún moderador debería dividir este hilo en dos (si se puede): uno para el problema con Word y el otro sobre el supuesto bug en las etiquetas.

[[FGarcia]]

Coincido con Ñuño! A mi tambien me pasa que en la vista previa se ven bien las etiquetas de codigo delphi pero al colocar el mensaje "desaparecen".

Saludos

[Carliviris]

si, lo que pasa es que parece que no estan familiarizados con ese codigo, porque hay muchas formas de hacer replace en word
yo sigo intentando por otro lado y buscando soluciones
si encuentran alguna que podria ser, por favor publiquenla

[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;