Neevia Technology Sites:   www.neevia.com  |  docuPub.com  |  www.neeviaPDF.com
:: Home :: Products :: Technical Support :: About Us :: Contact Us
Technical support > Neevia docCreator code samples
Example 3: Convert a MS Excel document into PDF from ASP  Print Example 

Configure MS Excel like recommended below:
  • type dcomcnfg in the command prompt and press Enter;
  • find and select Microsoft Excel Application 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 Excel Application->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;

  • <%
    
       Dim docToConvert : docToConvert="d:\test.xls"
    
       Dim DC : Set  DC = Server.CreateObject("Neevia.docCreator")
    
       Dim tempFile : tempFile= DC.getParameter("TempDir") & DC.GUID & ".ps"
    
       DC.setParameter "DocumentOutputFormat", "PDF"
       DC.setParameter "DocumentOutputName", "testXLS_ASP"
       DC.setParameter "DocumentOutputFolder", "d:\"
    
       Dim MSExcel : Set MSExcel = Server.CreateObject("Excel.Application")
       MSExcel.DisplayAlerts = False
    
       Dim XLDoc : Set XLDoc = MSExcel.Workbooks.Open(docToConvert, 0, True)
    
       XLDoc.Activate
       XLDoc.PrintOut ,,, False, "Neevia docCreator", True, 0, tempFile
       XLDoc.Saved = True
       XLDoc.Close
       MSExcel.Quit
       Set MSExcel = Nothing
    
       DC.setInputDocument tempFile 
    
       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 converting !!!"
       End If
    
    %>



    Copyright © 1999-2016 Neevia Technology. All Rights Reserved. Home | Products | Technical Support | About Us | Contact Us