Universal Document Converter
Product Overview
Developer Solutions
Support Service
About fCoder SIA

      Site search

      Popular conversions
PDF to JPG converter
Convert Word to PDF
Convert PDF to TIFF
Autocad to PDF converter
Convert Word to JPG
Powerpoint to PDF converter
Printing to PDF
Convert Excel to PDF
Convert DJVU to PDF
Convert Web Page to PDF

      Video tutorials
Show tutorial

Main page>Developer Solutions>Examples>Visual Basic.NET>Word Documents to PDF

Converting Word Documents to PDF for Visual Basic.NET

' 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 document
  Call WordDoc.Close()
  WordDoc = Nothing
' Close Microsoft Word
  Call WordApp.Quit()
  WordApp = Nothing
End Sub

© fCoder SIA About fCoder SIA | Privacy Policy | Site Map