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

   Sub WordConverter()

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

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

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

      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