'----------------------------------------------------------------------
' 1) Microsoft Word 97 or above should be installed and activated on your PC.
'
' 2) Universal Document Converter 5.2 or above should be installed, too.
'
' 3) Open your project in Microsoft Visual Basic.NET.
'
' 4) In Visual Basic main menu press "Project->Add Reference...".
'
' 5) In "Add Reference" window go to "COM" tab and double click into
' "Universal Document Converter Type Library".
'----------------------------------------------------------------------Private Sub PrintWordToPDF(ByVal strFilePath As String)
Dim objUDC As UDC.IUDC
Dim itfPrinter As UDC.IUDCPrinter
Dim itfProfile As UDC.IProfile
Dim WordApp As Object
Dim WordDoc As Object
objUDC = New UDC.APIWrapper
itfPrinter = objUDC.Printers("Universal Document Converter")
itfProfile = itfPrinter.Profile
' Use Universal Document Converter API to change settings of converterd document
itfProfile.PageSetup.ResolutionX = 600
itfProfile.PageSetup.ResolutionY = 600
itfProfile.FileFormat.ActualFormat = UDC.FormatID.FMT_PDF
itfProfile.FileFormat.PDF.ColorSpace = UDC.ColorSpaceID.CS_TRUECOLOR
itfProfile.FileFormat.PDF.Multipage = UDC.MultipageModeID.MM_MULTI
itfProfile.OutputLocation.Mode = UDC.LocationModeID.LM_PREDEFINED
itfProfile.OutputLocation.FolderPath = "C:\Out"
itfProfile.OutputLocation.FileName = "&[DocName(0)] -- &[Date(0)] -- &[Time(0)].&[ImageType]"
itfProfile.OutputLocation.OverwriteExistingFile = False' Run Microsoft Word as COM-server
WordApp = CreateObject("Word.Application")
' Open document from file
WordDoc = WordApp.Documents.Open(strFilePath, , 1)
' Print all pages of the document
WordApp.ActivePrinter = "Universal Document Converter"
Call WordApp.PrintOut(False)
' Close the documentCall WordDoc.Close()
WordDoc = Nothing
' Close Microsoft WordCall WordApp.Quit()
WordApp = Nothing
End Sub