Visio and Tiff to PDF

I’m currently working on a project that requires the automatic rendering of files to PDF, MS Office files work ok but there’s a problem with Visio and Tiff files  so I wrote this simple console app in VB.NET.

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.

Advertisement