Acrobat Distiller: Convertir fichero word en pdf

[ameliagonzalez]

Hola a todos, esta es la primera vez que utilizo este foro y espero poder colaborar.

Por ahora os voy a pedir ayuda, he escrito un código para convertir un fichero word en pdf, este es el código:

----------------------------------------
Private Sub cmbConvertWordtoPdf_Click()
Dim Origen As String
Dim Destino As String

On Error GoTo ControlErrores

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.Path = ""
acrobat.FileToPDF PSFileName, PDFFileName, ""

objWord.Quit False

Exit Sub

ControlErrores:
MsgBox Err.Description
objWord.Quit False

End Sub
----------------------------------------

Al ejecutar me aparece el siguiente mensaje que genera word:

"When you create a PostScript file you have to send the host fonts,
Please, go to the Printer Properties, "Adove Pdf Settings" page
and turn OFF the option "Do not send fonds to Distiller".

El mensaje es claro y lo que hago es abrir el archivo word (c:\Documento.doc), abro el cuadro de diálogo de impresión, desmarco la pestaña "Do not send fonds to Distiller", acepto y guardo de nuevo el documento.

El problema es que cuando cierro el documento una vez guardados los cambios y luego vuelvo a abrirlo la pestaña "Do not send fonds to Distiller" sigue marcada. No se guardan los cambios de configuración de impresión.

Si alguno de vosotros puede ayudarme lo agradecería mucho porque me estoy volviendo loca.

Muchas gracias de antemano y saludos cordiales,
Amelia González