problema con word

[Rabata]

hola a todos.

Deseo de manera transparente para el usuario abrir un documento,meter un texto en el pie de pagina y luego imprimirlo y salir sin guardarlo.

El código q tengo hecho por ahora es el siguiente:

try
word := GetActiveOleObject('Word.Application');
except
word := CreateOleObject('Word.Application');
end;

try

worddoc:=word.Documents.open('d:/1.doc');
worddoc.select;

word.ActiveWindow.ActivePane.View.SeekView := wdSeekCurrentPageFooter;

wordselection:=word.selection;

wordselection.Typetext('eeeeee');


word.print(NumCopies:='1'); //AKI ME FALLA

finally
WORD.FILECLOSE(2); //Y tODAS ESTAS TAMBIEN
WORD.FILEEXIT;
WORD:=UnAssigned;
end;

Supongo que me faltan muchas líneas, si alguien pudiera ayudarme les estaría muy agradecido.

Gracias.

[Rabata]

asi queda el codigo
try
word := GetActiveOleObject('Word.Application');
except
word := CreateOleObject('Word.Application');
end;

try
worddoc:=word.Documents.open('d:/1.doc');
worddoc.select;
word.ActiveWindow.ActivePane.View.SeekView := wdSeekCurrentPageFooter;
wordselection:=word.selection;
wordselection.Typetext('eeeeee');
word.printout;
finally
worddoc.close(False);
word.quit;
end;
Y FUNCIONA¡¡¡¡¡

[jachguate]

Hola Rabata.

Me alegra que tu codigo haya funcionado, y que hayas decidido compartirlo con nosotros. Solo quiero recomendarte el uso de las etiquetas [ code ] o [ delphi ] para encerrar trozos de código sin perder la indentación, o incluso, resaltando la sintaxis (en el caso de la segunda etiqueta).

Si queres aprender como usarlas, seguí el link en mi firma. Podrias editar tu mensaje para hacer la prueba

Hasta luego.