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