Module Module1

Sub Main(ByVal args As String())
OpenFileWithAcrobat(args(0), args(1))
End Sub

Private Sub OpenFileWithAcrobat(ByVal InputFile As String, ByVal OutPutFile As String)
Dim AcroAVDoc As Object
Dim AcroPDDoc As Object
Dim b As Boolean

AcroAVDoc = CreateObject(“AcroExch.AVDoc”)
b = AcroAVDoc.Open(InputFile, “Temp”)

If AcroAVDoc.IsValid Then
AcroPDDoc = AcroAVDoc.GetPDDoc()
AcroPDDoc.SetInfo(“Title”, “”)

If AcroPDDoc.Save(1 Or 4 Or 32, OutPutFile) <> True Then
Debug.Print(“Error”)
End If

AcroPDDoc.Close()
End If

AcroAVDoc.Close(0)
AcroPDDoc = Nothing
AcroAVDoc = Nothing

End Sub

End Module

The app uses Acrobat Proffessional 9 and takes as its parameters the path of the file to be rendered to PDF format and the path of where the file should be saved to.  eg. renderer.exe “c:\temp\file.tif” “c:\temp\file.pdf”

It works really well as it maintains page sizes and orientation.  It will needs some error handling adding before it goes into production, but for now it works ok.

Twitter
Friend Feed
Facebook
Google Profile
LinkedIn
Google Reader