Acrobat Distiller: Convertir fichero word en pdf

[ameliagonzalez]

Muchas gracias por tu rápida respuesta, tienes toda la razón, he probado tu idea y me ha funcionado muy bien, pero vuelvo a poner el código porque tenía algún fallo y ahora que he podido ejecutarlo bien lo he corregido. Así será de utilidad para alguien más.

Private Sub cmbConvertWordToPdf_Click()
Dim Origen As String
Dim Destino As String

Origen = "c:\Ejemplo.ps"
Destino = "c:\Ejemplo.pdf"

Dim objWord As New Word.Application

objWord.Documents.Open "C:\Documento.doc"

objWord.Options.BackgroundOpen = False
objWord.ActivePrinter = "Adobe pdf"
objWord.PrintOut , , , Origen, , , , , , , True

Dim acrobat As PdfDistiller
Set acrobat = New PdfDistiller
acrobat.FileToPDF Origen, Destino, ""

objWord.Quit False

Exit Sub
End Sub