Como puedo unir varios PDF en uno desde Access?

[nEk]

Hola!
Cómo puedo unir varios PDF en uno desde Access?
Tengo varios documentos PDF y los quiero unir para formar sólo uno.

Gracias x tu tiempo!

[Kobra]

Para empezar "Access" es un programa de BD no una aplicación para
"modificar" archivos pdf, para unir distintos archivos pdf en uno sólo
tendras que utilizar software específico para ello (Acrobat writer,
Jaws PDF Editor,....)

Saludos.Kobra
GUADARRAMA.Madrid.España

nEk ha escrito:

[nEk]

Se que Access es un programa de bdd... me referia a hacerlo desde código,
aunque se tenga que tener instalado cualquier otro programa (como los que me
indicas). Creo que mediante "postscript"(¿?) se puede hacer. Pero como?

[McPegasus]

Hola nEk,

tendrás que conocer cual es la librería del acrobat que realiza eso ya que
el programa sí lo permite, luego conocer cuales son los métodos y funciones
de esa librería.

No es una consulta corriente, sí interesante, y salvo que como tú no se haya
pelado antes y la tenga hecha y con ganas de compartir, tendrás que ponerte
manos a la obra y usar todo tu ingenio en I+D.

Suerte.

--
Rafael Andrada
www.mcpegasus.es
www.mcpegasus.net

..:: Tu Access, Mi Pasión ::..
[MVP Office System - Access]

"nEk" <n...@discussions.microsoft.com> escribió en el mensaje
news:091A7286-D61B-4452...@microsoft.com...
> Tengo instalado Adobe Acrobat 7.0 Standard

[nEk]

He encontrado algo que sirve... en principio era para dos documentos, tal
como esta sirve para 3 en ese orden. Bueno... ya se puede jugar con ello.
(hacer un bucle, etc)

La libreria que utiliza es: Acropdf.dll
Y la referencia: Adobe Acrobat 7.0 Type Library

Dim AcroPDDoc As CAcroPDDoc
Dim PDDoc As CAcroPDDoc
Dim b As Variant

Set AcroPDDoc = CreateObject("AcroExch.PDDoc")

b = AcroPDDoc.Open("c:\actualitzador\1.pdf")
Dim intAantal1 As Integer
intAantal1 = AcroPDDoc.GetNumPages

Set PDDoc = CreateObject("AcroExch.PDDoc")
b = PDDoc.Open("c:\actualitzador\2.pdf")
Dim intAantal2 As Integer
intAantal2 = PDDoc.GetNumPages

b = AcroPDDoc.InsertPages(intAantal1 - 1, PDDoc, 0, intAantal2, False)

Set PDDoc = CreateObject("AcroExch.PDDoc")
b = PDDoc.Open("c:\actualitzador\3.pdf")
Dim intAantal3 As Integer
intAantal3 = PDDoc.GetNumPages

b = AcroPDDoc.InsertPages(intAantal2, PDDoc, 0, intAantal3, False)

b = AcroPDDoc.Save(1, "c:\actualitzador\perfecte.pdf")

Ya que estamos...
Tengo instalada la impresora ADOBE PDF.
Cómo puedo enviar a imprimir pudiendo seleccionar esta impresora y el
directorio destino del archivo que crea por código?

Gracias!

[CarCar]

Hola:

Comprueba los métodos de ese objeto, supongo que habrá alguno llamado
"Print" o similar. Yo no tengo esa dll.

Saludos,
CarCar

nEk ha escrito: