Print Microsoft Word Document to Image Using Visual Basic 6.0

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 Word 97 or above and Universal Document Converter
' should be installed on your PC and Microsoft Word should be activated.

Private Sub PrintWordDocument(strFilePath As String)

' Run Microsoft Word as COM-server
  On Error Resume Next
  Dim App As Object
  Dim Doc As Object

  Set App = CreateObject("Word.Application")

' Open document from file
  Err = 0 ' Clear GetLastError() value
  Set Doc = App.Documents.Open(strFilePath, , 1)

  If Err = 0 Then

  ' Print all pages of the document
    App.ActivePrinter = "Universal Document Converter"
    Call App.PrintOut(False)

  ' Close the document
    Call Doc.Close
    Set Doc = Nothing

  End If

' Close Microsoft Word
  Call App.Quit
  Set App = Nothing

End Sub