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

   Sub PowerPointConverter()

      Dim documentToConvert As String = "c:\users\public\test.ppt"
      Dim DPSDK As Object = CreateObject("docuPrinter.SDK")

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

      DPSDK.PDFAutoRotatePage = "PageByPage"

      DPSDK.HideSaveAsWindow = True
      DPSDK.DefaultAction = 1

      DPSDK.ApplySettings()
      Dim MSPowerPoint As Object = CreateObject("PowerPoint.Application")

      Dim PPTDoc As Object
      PPTDoc = MSPowerPoint.Presentations.Open(documentToConvert, -1, 0, 0)
      PPTDoc.PrintOptions.PrintInBackground = 0
      PPTDoc.PrintOptions.PrintColorType = 1
      PPTDoc.PrintOptions.ActivePrinter = "docuPrinter"
      PPTDoc.PrintOut(0)
      PPTDoc.Close()
      MSPowerPoint.Quit()
      MSPowerPoint = 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