Neevia Technology Sites:   www.neevia.com  |  docuPub.com  |  www.neeviaPDF.com
:: Home :: Products :: Technical Support :: About Us :: Contact Us
Technical support > Neevia docuPrinter SDK code samples
Example 2: Convert a MS Word document into PDF from VB.NET  Print Example 

Sub WordConverter()

   Dim docToConvert As String = "c:\test.doc"

   Dim DPSDK As Object = CreateObject("docuPrinter.SDK")

   DPSDK.DocumentOutputFormat = "PDF"
   DPSDK.DocumentOutputName = "demoDOC"
   DPSDK.DocumentOutputFolder = "c:\"

   DPSDK.HideSaveAsWindow = True
   DPSDK.DefaultAction = 1

   DPSDK.ApplySettings()

   Dim MSWord As Object = CreateObject("Word.Application")
   MSWord.DisplayAlerts = False
   On Error Resume Next

   Dim NewDoc As Object
   NewDoc = MSWord.Documents.Open(docToConvert, False, True)
   If Err.Number() <> 0 Then
     MSWord = Nothing
     Exit Sub
   End If

   Dim MSWordDialog As Object = MSWord.Dialogs(97)
   MSWordDialog.Printer = "docuPrinter"
   MSWordDialog.DoNotSetAsSysDefault = 1
   MSWordDialog.Execute()

   NewDoc.PrintOut(False)

   NewDoc.Close(False)
   MSWord.Quit(False)
   MSWord = Nothing

   Dim RVal As Integer = DPSDK.Create ' Create output document
   DPSDK = Nothing

   If (RVal <> 0) Then 
     MsgBox("Error while converting the document!!!")
   Else
     MsgBox("Done converting!!!")
   End If
 
End Sub



Copyright © 1999-2016 Neevia Technology. All Rights Reserved. Home | Products | Technical Support | About Us | Contact Us