Como automatizar la impresion directa de documentos combinado

16/10/2007 - 20:42 por Santa Fe | Informe spam
Hola a todos

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
 

Leer las respuestas

#1 Tux
17/10/2007 - 22:26 | Informe spam
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

Preguntas similares