Messages

Te digo de nuevo con la version 8.5 o la 10 de cristal no tienes que hacer tantas cosas porque el trae eso ya configurado para exportar a .pdf

Saludos...

Gracias, pero lo se... Entiende, debo exportarlo en .doc y despues hacer desde otra pc la conversión, pero eso lo hará otro usuario... Sino creeme que ya lo hubiese resuelto... Nuevamente gracias...

[Adobe Acrobat Distiller 5.0]

Ok, expondre acá lo que hice para resolver mi problema. De manera tal que puedan ayudarse aquellos que buscan una solución al problema que yo tuve.

Inicialmente deben bajarse esta aplicación: Adobe Acrobat Distiller 5.0

Luego de instalar dicha aplicación accesamos a Inicio -> Impresoras y Faxes.

Seleccionamos la impresora Acrobat Distiller, le damos click secundario -> Propiedades.

Luego hacemos click en Preferencias de Impresión y seleccionamos la pestaña llamada Adobe PDF Settings.

Esta Opción tiene que aparecer TILDALA o SELECCIONADA: Do not send fonts to Distiller.

Pues tenemos que DESTILDARLA.

Aceptamos y listo.

Luego, aca les dejo el codigo fuente usado...

Esto en un Módulo Bas:

Code (vb) Select Expand


Option Explicit

Function DOC2PDF(sDocFile, sPDFFile)
On Error GoTo err:
Dim FSO

Dim objWord
Dim objWordDoc
Dim objWordDocs
Dim sPrevPrinter  As String
Dim objDistiller
Dim sTempFile, sFolder

Set objDistiller = CreateObject("PDFDistiller.PDFDistiller")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set objWord = CreateObject("Word.Application")
Set objWordDocs = objWord.Documents

sTempFile = App.Path & "\Temp"
sDocFile = FSO.GetAbsolutePathName(sDocFile)
sFolder = FSO.GetParentFolderName(sDocFile)

If Len(sPDFFile) = 0 Then
  sPDFFile = FSO.GetBaseName(sDocFile) + ".pdf"
End If

If Len(FSO.GetParentFolderName(sPDFFile)) = 0 Then
  sPDFFile = sFolder + "\" + sPDFFile
End If

sPrevPrinter = objWord.ActivePrinter

objWord.ActivePrinter = "Acrobat Distiller"

Set objWordDoc = objWordDocs.Open(sDocFile)

objWord.ActiveDocument.PrintOut False, , , sTempFile
objWordDoc.Close
objWord.ActivePrinter = sPrevPrinter
objWord.Quit
Set objWord = Nothing

objDistiller.FileToPDF sTempFile, sPDFFile, "Print"
Set objDistiller = Nothing
FSO.DeleteFile (sTempFile)

Set FSO = Nothing
MsgBox "Conversión exitosa", vbInformation, "Atención"
Exit Function

err:
MsgBox err.Description, vbExclamation
End Function

Public Function CambiarImpresora(Nombre As String) As Boolean
Dim Impresora As Printer

For Each Impresora In Printers
    If UCase(Impresora.DeviceName) = UCase(Nombre) Then
        Set Printer = Impresora
        CambiarImpresora = True
    End If
Next
CambiarImpresora = False
End Function



En un formulario agregamos un Botón llamado: Command1
Codigo del Form:

Code (vb) Select Expand


Option Explicit
Private Sub Command1_Click()
Dim ImpresoraPredeterminada As String
ImpresoraPredeterminada = Printer.DeviceName
CambiarImpresora ("Acrobat Distiller")
Call DOC2PDF(App.Path & "\A.doc", App.Path & "\A.pdf")
CambiarImpresora Printer.DeviceName
End Sub

Private Sub Form_Load()
Command1.Caption = "Convertir a PDF"
End Sub



Aquí adjunto el SOURCE

Donde esta? use el buscador y no lo vi... Podrias pasarme el link?

Bueno es mi primer post acá en php, la verdad pocos conocimientos tengo en ese lenguaje. Lo que quiero es lo siguiente. Tengo una cantidad de directorios, supongamos 10directorios y en ese mismo lugar me gustaria tener un archivo php para luego usarlo desde visual basic y poder saber que cuales directorios tengo... Espero haberme explicado y que alguien pueda ayudarme gracias...

esta es la sección de programación en vb. Quieres hacerlo en vb ?

Si la respuesta es no, hay decenas de programas para eso. Incluso word 2007 lleva un plug-in (hay que bajarlo aparte) para lo mismo.

jajaja... Obvio... 

No había visto tu número de mensajes, pensé en novato sección equivocada, jeje.

Pues si no vas a programar un parsing de un tipo de archivo y generador del otro tipo, no te quedará más remedio que recurrir a terceros: hay controles active x dll's para convertir a pdf, los de skysoft tienen, igual hasta hay alguno gratuito.

Gracias por tú sinceridad. Jajaja... Bueno susana gracias por tu respuesta mi linda... La verdad no me quedo otra que recurrir a terceros, cuando termine de armar lo que necesito posteo un ejemplo para que otra persona lo utilice y le sea funcional... Un abrazo.

perdon pero no leiste el link que te pasaron? ahi hay un link a otra pagina, mygnet algo asi, y ahi esta un codigo muy interesante para los pdfs..

chee miren bien lo que les pasan

http://www.mygnet.net/it/descargas/codigos/active_dll_para_generar_pdfs.1280.zip

saludos

Hola coco, gracias por responder... Pues si vi ese ejemplo, solo q todos los intentos que he echo han sido en vano... Ninguno ha resuelto mi duda... Pues no necesito escribir sobre un pdf, eso puedo hacerlo... Lo que necesito es convertir un archivo .doc en .pdf

Saludos

Nada, todos los intentos en vano...   

Ok, el archivo lo exporto desde un reporte de crystal, usando el objeto CrystalReport, lo que pasa es q este objeto no me deja exportarlo a pdf directamente. Puedo exportarlo a html, .doc, .rtf, excel, txt. Pero a pdf no. Por esa razón, pues exporto el archivo a alguno de esos que coloco alli, y luego con alguna clase, no se, pues lo llevo a pdf.

esta es la sección de programación en vb. Quieres hacerlo en vb ?

Si la respuesta es no, hay decenas de programas para eso. Incluso word 2007 lleva un plug-in (hay que bajarlo aparte) para lo mismo.

jajaja... Obvio... 

Buenas, pues mi duda es si alguien sabe como puedo hacer para tomar un archivo .doc y convertirlo en .pdf

Agradezco el aporte.