Print Microsoft Visio Drawing to Image Using Visual Basic.NET

Universal Document Converter is virtual printer software that saves any document you print as an image file. Below is a source code example that can help you to accomplish your task with Universal Document Converter. Please let us know if you cannot find the solution you need.

' Microsoft Visio 2000 or above and Universal Document Converter should
' be installed on your PC and Microsoft Visio should be activated.

Private Sub PrintVisioDrawing(strFilePath As String)

' Define constants
  Const visOpenRW = &H20
  Const visOpenDontList = &H8
  Const visPrintAll = 0

' Run Microsoft Visio as COM-server
  On Error Resume Next
  Dim App As Object
  Dim Drawing As Object

  App = CreateObject("Visio.Application")
  App.Visible = False

' Open drawing from file
  Drawing = App.Documents.OpenEx(strFilePath, _
                                           visOpenRW And visOpenDontList)

  If Drawing = Not Nothing Then

  ' Change Drawing preferences for scaling it to page
    Drawing.PrintCenteredH = True
    Drawing.PrintCenteredV = True
    Drawing.PrintFitOnPages = True

  ' Print drawing
    Drawing.Printer = "Universal Document Converter"
    Drawing.PrintOut(visPrintAll)

  ' Close drawing
    Drawing.Saved = True
    Drawing.Close()
    Drawing = Nothing

  End If

  ' Close Microsoft Visio
  Call App.Quit()
  App = Nothing

End Sub