Imprimir documentos PDF desde excel

11/09/2005 - 03:39 por Eduardo HO | Informe spam

Hola a Todos
Tengo el siguiente problema, espero me puedan ayudar a resolverlo:
Necesito imprimir desde Excel una serie de documentos en PDF, no se si
exista alguna instrucción para mandar a imprimir los documentos (Estos ya
estan creados en PDF en un determinado directorio) uno por uno desde Excel.
Tengo resuelto la forma de ubicar y determinar los nombres de los
documentos, me falta saber la instruccion para imprimir un documento externo
en PDF, gracias.

Siga el debate

3 respuestas

Tengo una respuesta

Preguntas similare

Leer las respuestas

#1 Héctor Miguel

11/09/2005 - 09:31 | Informe spam

hola, Eduardo !

... desde Excel una serie de... PDF... alguna instruccion para mandar a imprimir los documentos [...]

por ejemplo...
en un modulo de codigo 'normal' ==Sub Imprimir_Archivo_PDF()
Dim Reader As String, Archivo_PDF As String
Reader = "pon aqui la ruta y\sub-carpetas donde tienes el ejecutable\acrord32.exe"
Archivo_PDF = "pon aqui la ruta y\sub-carpetas donde tienes\el archivo.pdf"
Shell Reader & " /p /h " & Archivo_PDF
Application.SendKeys "%{f4}", False
End Sub

si vas a ejecutar una serie de impresiones [seguramente] deberas poner como ultima instruccion el 'sendkeys'
saludos,
hector.

Responder a este mensaje

#2 Eduardo HO

11/09/2005 - 17:51 | Informe spam

Muchas gracias Hector, nuevamente me ayudaste a resolver mi problema, te lo
agradezco mucho. Vivo en México si andas por aqui me gustaria conocerte,
saludos.
Eduardo

"Héctor Miguel" escribió:

hola, Eduardo !

> ... desde Excel una serie de... PDF... alguna instruccion para mandar a imprimir los documentos [...]

por ejemplo...
en un modulo de codigo 'normal' ==> Sub Imprimir_Archivo_PDF()
Dim Reader As String, Archivo_PDF As String
Reader = "pon aqui la ruta y\sub-carpetas donde tienes el ejecutable\acrord32.exe"
Archivo_PDF = "pon aqui la ruta y\sub-carpetas donde tienes\el archivo.pdf"
Shell Reader & " /p /h " & Archivo_PDF
Application.SendKeys "%{f4}", False
End Sub

si vas a ejecutar una serie de impresiones [seguramente] deberas poner como ultima instruccion el 'sendkeys'
saludos,
hector.

Responder a este mensaje

#3 Eduardo HO

13/09/2005 - 07:20 | Informe spam

Gracias Manuel, tambien lo voy s probar.

"Manuel Romero" escribió:

> hola, Eduardo !
>
>> ... desde Excel una serie de... PDF... alguna instruccion para mandar a
>> imprimir los documentos [...]
>
> por ejemplo...
> en un modulo de codigo 'normal' ==> > Sub Imprimir_Archivo_PDF()
> Dim Reader As String, Archivo_PDF As String
> Reader = "pon aqui la ruta y\sub-carpetas donde tienes el
> ejecutable\acrord32.exe"
> Archivo_PDF = "pon aqui la ruta y\sub-carpetas donde tienes\el archivo.pdf"
> Shell Reader & " /p /h " & Archivo_PDF
> Application.SendKeys "%{f4}", False
> End Sub
>
> si vas a ejecutar una serie de impresiones [seguramente] deberas poner como
> ultima instruccion el 'sendkeys'
> saludos,
> hector.

Otra forma de hacerlo es con la API ShellExecute enviando el comando
print en lugar de open

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida