.DOC to .PDF in VBA
Posted on 2003-11-05
I have Acrobat 5.0 installed so I have access to Acrobat Distiller(acrodist.exe) and other Acrobat components.
This is what I use today:
Dim oConverter As ACRODISTXLib.PdfDistiller
Call LoadDoc(OriginalPath & FileItem.Name) ' Opens word document
Call SetMark 'Sets a watermark on the .doc
'this will printout the .doc to a postscript file (.ps)
ActiveDocument.PrintOut False, False, , sPSfile, , , , , , , True
oConverter.FileToPDF sPSfile, sPDFfile, "" 'converts the .ps file to .pdf
Kill sPSfile ' delete the temporary .ps file
This method is very slow and there seems to be an extra step that is not needed(printout as .ps could conver the .doc file directly I suppose).
And I'm having trouble on some computers with the printout (ActiveDocument.PrintOut ) no matter what postscript printer I use some computers give me a message to check printer settings bla bla..).
Is there a better/faster/safer method to do this without involving third party apps or using hundreds of rows of code ?