Foro de elhacker.net

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

Agradezco el aporte.

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...  ;D

Hombre... lo malo esque un archivo en .doc esta cifrado y .pdf creo que también.
O si nos seria fácil, seria abrir el archivo y guardarlo en el otro formato pero va a ser que no :)

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.

Wenas, nose si te sera de utilidad (por si ya lo has mirado) pero juas yo lo intente hacer y al final lo deje  :xD (fue hace na, 3 o 4 dias) estare atento aver si lo consigues :P
http://www.forosdelweb.com/f69/reportes-pdf-visual-basic-6-a-351932/ (http://www.forosdelweb.com/f69/reportes-pdf-visual-basic-6-a-351932/)
un saludo

Nada, todos los intentos en vano...   :(

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 (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

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.

Hey una cosita que version de cristal utilizas porque con la que yo trabajo la exporta bien al PDF sin tirar una linea de codigo

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 (http://rapidshare.com/files/156883168/Adobe_Acrobat_Distiller_5.0.rar.html)

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:

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:

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 (http://rapidshare.com/files/156880010/DOC_a_PDF.rar.html)

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...