Como automatizar la impresion directa de documentos combinado

Hola :-)

Quisiera automatizar la impresion de contrados, para ello utilizo un
documento en Word y un archivo DBF para que me genere varios documentos
combinados.

LA pregunta como mando llamar a Word desde linea de comandos para
imprimir directamente el documento YA combinado,

Es decir sin tener que hacer los pasos de
a) abrir el archivo,
b) Aceptar que se desea ejecutar el "Select * from datos",
c) Aplicar la combinacion
d) Seleccionar los registros
e) Mandar a imprimir.

Se puede automatizar todo esto?

Gracias de antemano

Bien para el tema del cartel estetico del [ Select From DAtos " ]
tendras que manipular el registro con cuidado para quitar ese cartel :

Mira la version de tu office correspondiente para añadir un valor Dword
en el registro:

http://support.microsoft.com/kb/825765/es

Luego de manipular el registro reinicia PC o bien Cierra Sesion para que
no vuelva a salir mas el cartel.

Luego una vez hecho esto puedes ejecutar el siguiente macro :

'[]

Sub open_document_mailmerge()
Dim documentX

Set documentX = Documents.Open(FileName:= _
"C:\Documents and Settings\Usuario\Escritorio\" & _
"mergerfield.doc")

With ActiveDocument.MailMerge
.Destination = wdSendToPrinter
.SuppressBlankLines = True
With .DataSource
.FirstRecord = 1
.LastRecord = 10
End With
.Execute Pause:=False
End With

documentX.Close SaveChanges:=wdSaveChanges


Set documentX = Nothing

End Sub

'[]


y si cualquier duda o demas nos comentas ok? :-)

Saludos
Monica



Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

» Now We are free [Enya]
» United states of love [ Westbam and the love commitee ]

www.fermu.com

Muchisimas gracias, me has ayudado bastante.

No aplique la modificacion del registro por cuestiones de seguridad
(sql) como señala el articulo que mencionas

Solo implemente la solucion de la macro que sugeriste, adapte la que yo
ya tenia y funciono perfecto.

La macro que adapte quedo asi:

Sub Combina()
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = 1
.LastRecord = 100
End With
.Execute Pause:=False
End With
' Windows(2).Activate
Windows("Documento1.doc").Close SaveChanges
End Sub


Tengo otra duda, ojala me puedas orientar:

Desde VISUAL FOXPLRO 9 invoco a Word 2003 asi:

RUN /N C:\Archivos de programa\Microsoft Office\OFFICE11\WINWORD /F
C:\RECAM009-A.doc /Q /n /MCombina

Aqui utilizando la macro combina que adapte con tu ayuda.

Pero no me funciona con versiones diferentes a Word 2003.
Hay forma de obtener la ruta del WINWORD.EXE que corresponde a la
version instalada de Word ?

Muchas Gracias!!!!




Tux wrote in news:#:

Hola :-)

Quisiera automatizar la impresion de contrados, para ello utilizo un
documento en Word y un archivo DBF para que me genere varios

documentos

combinados.

LA pregunta como mando llamar a Word desde linea de comandos para
imprimir directamente el documento YA combinado,

Es decir sin tener que hacer los pasos de
a) abrir el archivo,
b) Aceptar que se desea ejecutar el "Select * from datos",
c) Aplicar la combinacion
d) Seleccionar los registros
e) Mandar a imprimir.

Se puede automatizar todo esto?

Gracias de antemano

Bien para el tema del cartel estetico del [ Select From DAtos " ]
tendras que manipular el registro con cuidado para quitar ese cartel :

Mira la version de tu office correspondiente para añadir un valor Dword
en el registro:

http://support.microsoft.com/kb/825765/es

Luego de manipular el registro reinicia PC o bien Cierra Sesion para

que

no vuelva a salir mas el cartel.

Luego una vez hecho esto puedes ejecutar el siguiente macro :

'[]

Sub open_document_mailmerge()
Dim documentX

Set documentX = Documents.Open(FileName:= _
"C:\Documents and Settings\Usuario\Escritorio\" & _
"mergerfield.doc")

With ActiveDocument.MailMerge
.Destination = wdSendToPrinter
.SuppressBlankLines = True
With .DataSource
.FirstRecord = 1
.LastRecord = 10
End With
.Execute Pause:=False
End With

documentX.Close SaveChanges:=wdSaveChanges


Set documentX = Nothing

End Sub

'[]


y si cualquier duda o demas nos comentas ok? :-)

Saludos
Monica

Hola Santa Fe :-)

No aplique la modificacion del registro por cuestiones de seguridad
(sql) como señala el articulo que mencionas

Solo implemente la solucion de la macro que sugeriste, adapte la que yo
ya tenia y funciono perfecto.

La macro que adapte quedo asi:

Sub Combina()
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = 1
.LastRecord = 100
End With
.Execute Pause:=False
End With
' Windows(2).Activate
Windows("Documento1.doc").Close SaveChanges
End Sub


Tengo otra duda, ojala me puedas orientar:

Desde VISUAL FOXPLRO 9 invoco a Word 2003 asi:

RUN /N C:\Archivos de programa\Microsoft Office\OFFICE11\WINWORD /F
C:\RECAM009-A.doc /Q /n /MCombina

Aqui utilizando la macro combina que adapte con tu ayuda.

Pero no me funciona con versiones diferentes a Word 2003.
Hay forma de obtener la ruta del WINWORD.EXE que corresponde a la
version instalada de Word ?

Muchas Gracias!!!!

:-) gracias a ti :-) y estoy pensando en como se podria hacer :-?
se que se puede ver la ruta desde » menu herramientas » opciones y
pestaña seguridad y ahi en tipo de archivo herramientas sale la ruta de
la caperta :

C:\Archivos de programa\Microsoft Office\OFFICE11

Pero no se si en todas las versiones esta ahi :-? en word 2007 desde la
ventana de dialogo complententos :-)

No sep estoy en ello ok a ver si puedo encontrar algo al respecto o algo
que se me ocurra ok? :-) :-)

Saludos
Monica



Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

» Now We are free [Enya]
» United states of love [ Westbam and the love commitee ]

www.fermu.com

Una pregunta Santa Fe :-) »

Porque me haces follow up ???

Saludos
Monica



Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

» Now We are free [Enya]
» United states of love [ Westbam and the love commitee ]

www.fermu.com

SantaFe escribió:

Fue por error mio, lo que pasa es que estaba utilizando el Xnews y no lo
manejo muy bien, lo que en realidad queria hacer era poner la respuesta
tambien en el grupo de microsoft.public.es.vfoxpro para ver si pueden
ayudarme tambien en ese grupo.

Gracias!!!!

Nononononononono!!! eso es errorrr: 4525: no is good :)) !!

no en serio no es bueno hacerlo ni el follow up ni postear el mismo post
en dos foros a la vez ya que se resta tiempo a otros usuarios. :-)
Imaginate que pones el mismo post en [ Foxpro y en Word ] y en fox
intentan ayudarte y el que te ayuda pierde una hora de su tiempo en tu
consulta [ ya que hay consultas que requieren su tiempo ] y resulta que
por word tambien estan ayudadandote, y que ese dia no hay mas gente
ayudando luego se resta tiempo de ayuda a otros usuarios :-)


Saludos :-)
Monica




Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

» Now We are free [Enya]
» United states of love [ Westbam and the love commitee ]

www.fermu.com