Moved..

This blog has now moved to http://blog.martinwsmith.co.uk

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.

Social Media

I’ve been experimenting with various Social Media sites for a little while and I’ve met some interesting people, I even got some help with a presentation I was working on.  I thought I would add some links to my Social Media profiles:

Twitter
Friend Feed
Facebook
Google Profile
LinkedIn
Google Reader

My New Blog

Welcome to my new personal blog, this blog will be a dumping ground for ideas, thoughts, code excerpts, tips, links and anything else that pops into my head.