![]() |
![]() |
![]() |
![]() |
![]() |
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. |
#2
|
|||
|
|||
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¡¡¡¡¡ |
#3
|
||||
|
||||
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. ![]()
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
![]() |
|
|
![]() |
|