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!