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

[nanomartin]

Hola Amelia.. bienvenida!

yo supongo que el tema de la configuración que ahí te pide, no se refiere a la del documento, que no es más que una configuración "temporaria", sino que debes desactivar eso desde el panel de impresoras, es decir, donde quedan las opciones por defecto cada vez que se llame a esa impresora.

Es lo que se me ocurre por el momento... cualquier cosa contanos y te damos "otra" mano

Suerte, salu2

[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

[nanomartin]

Me alegro haber podido ayudar.

Guardá es código... nunca se sabe cuando te lo pueda pedir

jejej.. saludos!

[osv]

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.

[mutant_x]

en el editor de vb debes ir a herramientas, referencias, y marcar adobe distiller
y listo

por cierto que hice todo paso a paso hasta me envio el mismo mensaje de error que a ustedes pero cuando corregí se congelo la aplicacion

[mamogo]

hola compis, he intentado buscar la referencia de destiller pero no la encuentro y he descargado el adobe destiller pero tampoco, alguien me puede ayudar
gracias
salu2