![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
![]() 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. |
|
|
![]() |
|