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 Visual Basic  Print Example 

Sub WordConverter()

   Dim docToConvert : docToConvert="c:\test.doc"
 
   Dim DPSDK : Set DPSDK = CreateObject("docuPrinter.SDK")
   DPSDK.BackupSettings

   DPSDK.DocumentOutputFormat = "PDF"
   DPSDK.DocumentOutputName = "demoDOC"
   DPSDK.DocumentOutputFolder = "c:\"
 
   DPSDK.HideSaveAsWindow = true
   DPSDK.DefaultAction=1
 
   DPSDK.ApplySettings
 
   Dim MSWord : Set MSWord = CreateObject("Word.Application")
   MSWord.DisplayAlerts = False
   On Error Resume Next
 
   Dim NewDoc
   Set NewDoc = MSWord.Documents.Open(docToConvert, False, True)
   If Err<>0 Then
     Set MSWord = Nothing
     Exit Sub
   End If
    
   Dim MSWordDialog : Set MSWordDialog = MSWord.Dialogs(97)
   MSWordDialog.Printer = "docuPrinter"
   MSWordDialog.DoNotSetAsSysDefault = 1
   MSWordDialog.Execute
 
   NewDoc.PrintOut False
 
   NewDoc.Close False
   MSWord.Quit False
   Set MSWord = Nothing
 
   Dim RVal : RVal = DPSDK.Create ' Create output document 

   DPSDK.RestoreSettings
   Set 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