Neevia Tech sites:   neevia.com   |   neeviaPDF.com   |   docuPub.com
 

Code Samples - Neevia docCreator

Example 4: Convert a PowerPoint document into PDF - ASP Copy 

Configure MS PowerPoint like recommended below:
  • type dcomcnfg in the command prompt and press Enter;
  • find and select Microsoft PowerPoint Presentation in the Applications list, then press the Properties button;
    • Note: If you have Windows 2003\2008 then type dcomcnfg in the command prompt, expand the Component Services group, expand the Computers group, expand the My Computer group, expand the DCOM Config group, find and select the Microsoft PowerPoint Presentation->right mouse click->Properties.
  • click the Identity tab. Check the "This user" checkbox, press Browse and specify the Administrator account;
  • enter and re-enter the Administrator password;
  • click the Security tab. Check the "Use custom access permissions" checkbox, press Edit and add the ASPNET, IUSR_ and IWAM_ user accounts;
    • Note: If you have Windows 2003\2008 also add the "NETWORK SERVICE" user account;
  • check the "Use custom launch permissions" checkbox, press Edit and add the ASPNET, IUSR_ and IWAM_ user accounts;
    • Note: If you have Windows 2003\2008 also add the "NETWORK SERVICE" user account;
  • reboot the computer; 
    •  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
       <%
      Dim documentToConvert : documentToConvert="c:\users\public\test.ppt"

      Dim DC : Set DC = Server.CreateObject("Neevia.docCreator")

      Dim tempFile : tempFile= DC.getParameter("TempDir") & DC.GUID & ".ps"

      DC.setParameter "DocumentOutputFormat", "PDF"
      DC.setParameter "DocumentOutputName", "testPPT_ASP"
      DC.setParameter "DocumentOutputFolder", "c:\users\public\"

      Dim MSPowerPoint 
      Set MSPowerPoint = Server.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="Neevia docCreator"
      PPTDoc.PrintOut 0, 9999, tempFile, 1, 0
      PPTDoc.Close
      MSPowerPoint.Quit
      Set MSPowerPoint = Nothing

      DC.setInputDocument tempFile 

      DC.setParameter "PDFAutoRotatePage", "PageByPage"
      Dim RVal : RVal = DC.create ' Create output document
      DC.FileDelete tempFile

      Set DC = Nothing

      If (RVal <> 0) Then 
        Response.Write "Error while creating document!!!"
      Else
        Response.Write "Done!!!"
      End If
   %>