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

   Sub PowerPointConverter()

      Dim documentToConvert : documentToConvert="c:\users\public\test.ppt"
 
      Dim DPSDK : Set DPSDK = CreateObject("docuPrinter.SDK")
      DPSDK.BackupSettings
 
      DPSDK.DocumentOutputFormat = "PDF"
      DPSDK.DocumentOutputName = "demoPPT"
      DPSDK.DocumentOutputFolder = "c:\users\public\"
 
      DPSDK.PDFAutoRotatePage = "PageByPage"
 
      DPSDK.HideSaveAsWindow = true
      DPSDK.DefaultAction=1
 
      DPSDK.ApplySettings
 
      Dim MSPowerPoint 
      Set MSPowerPoint = CreateObject("PowerPoint.Application")
 
      Dim PPTDoc 
      Set 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
      Set MSPowerPoint = 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