Cita:
Iniciado por 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
--------------------------------------------------
Con respecto a este código, pretendo hacer lo mismo solo que me marca un mensaje que dice "No se ha definido el tipo definido por el usuario", en la línea:
Dim objWord As New Word.Application,
me padrian decir que esta pasando y como resolver este problema.
Graicas.