1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50

   Sub WordConverter()

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

      DPSDK.DocumentOutputFormat = "PDF"
      DPSDK.DocumentOutputName = "demoDOC"
      DPSDK.DocumentOutputFolder = "c:\users\public\"
 
      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