hola amigos hace algun tiempo un miembro de este foro, publico este codigo que segun ella funciona pero otro miembro de este foro no lo pudo probar ya que le faltaba una referncia de visual basic 6.0 pregunto el donde la podia encontrar que incluso descargo Adobe Distiller pero tampoco podia ejecutarlo.
y una de las respuesta fue esta.....
en el editor de vb debes ir a herramientas, referencias, y marcar adobe distiller
y listo
pero la respuesta del usuario en problema fue la siguente:
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
bueno yo tambien la e buscado y no e podido encontrarla le mande correos privados a todos lo que participaron en la solucion a este problema pero Amelia la creadora del codigo (creo) entro por unica vez y confio que las otras personas puedan ayudarme..
el convertir un fichero de word a Pdf tiene que ser solo por Visual basic 6.0.
el codigo que envio Amelia es el siguente:
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
pero para que el codigo funcione pide la referencia adobe distiller
Ojala alguien pueda ayudarme de antemano Gracias
AT:
Manuel Arce
