Macro automatica

07/11/2007 - 22:13 por LUDICO | Informe spam
Estimados Amigos: necesito una macro que se ejecute autimaticamente al
momento de abrir un archivo asi:

abre el archivo - imprime dos copias del documento - sale de word

Gracias por su valiosa ayuda

Preguntas similare

Leer las respuestas

#6 Tux
10/11/2007 - 14:07 | Informe spam
Hola :-)

Hola Monica; nuevamente gracias por tu apoyo; te cuento que copie el codigo
que me enviaste pero al abrir el archivo se debe ejecutar automaticametne la
combinacion (es un solo registro), imprimir dos copias, y salir de Word y no
he logrado esto, te continuare agradeciendo por tu ayuda

Saludos




Bien prueba el siguiente codigo que tienes que poner exactamente en [
Thisdocument ] ya que para que al abrir el archivo te imprima y se
cierre tiene que ir en el modulo de eventos [ ThisDocument ]



'[]


Private Sub Document_Open()

Application.PrintOut FileName:="", _
Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=2

Application.Quit

End Sub

'[]

Prueba y 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
Respuesta Responder a este mensaje
#7 LUDICO
10/11/2007 - 14:39 | Informe spam
Monica: sos un amor mil gracias justo lo que necesitaba...

"Tux" escribió:

Hola :-)

> Hola Monica; nuevamente gracias por tu apoyo; te cuento que copie el codigo
> que me enviaste pero al abrir el archivo se debe ejecutar automaticametne la
> combinacion (es un solo registro), imprimir dos copias, y salir de Word y no
> he logrado esto, te continuare agradeciendo por tu ayuda
>
> Saludos
>

Bien prueba el siguiente codigo que tienes que poner exactamente en [
Thisdocument ] ya que para que al abrir el archivo te imprima y se
cierre tiene que ir en el modulo de eventos [ ThisDocument ]



'[]


Private Sub Document_Open()

Application.PrintOut FileName:="", _
Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=2

Application.Quit

End Sub

'[]

Prueba y 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










Respuesta Responder a este mensaje
#8 Tux
11/11/2007 - 00:34 | Informe spam
LUDICO escribió:
Monica: sos un amor mil gracias justo lo que necesitaba...




:-) gracias a ti ;-) !!

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
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una pregunta AnteriorRespuesta Tengo una respuesta
Search Busqueda sugerida