Example 6: Convert a WordPerfect document into PDF - ASP Copy
Configure WordPerfect like recommended below:
type dcomcnfg in the command prompt and press Enter;
find and select WordPerfect.Script 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 WordPerfect.Script->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
39
40
41
42 | <%
Dim docToConvert : docToConvert="c:\users\public\test.wpd"
Dim objWordPerfect
Set objWordPerfect = Server.CreateObject("WordPerfect.PerfectScript")
objWordPerfect.AppMaximize
objWordPerfect.Backup 0
objWordPerfect.BackupOriginalDoc 0
objWordPerfect.PerfectExpert 0
Dim DC : Set DC = Server.CreateObject("Neevia.docCreator")
objWordPerfect.FileOpen docToConvert
DC.doSleep(100)
DC.setParameter "documentOutputFormat", "PDF"
DC.setParameter "documentOutputName", "testWP_ASP"
DC.setParameter "documentOutputFolder", "c:\users\public\"
Dim RVal : RVal = DC.startPrinting
If (RVal <> 0) Then
Response.Write "Error while calling StartPrinting method!!!"
Response.End
End If
objWordPerfect.PrintTo docToConvert, DC.newPrinterName
RVal = DC.create ' Create output document
If (RVal <> 0) Then Response.Write "Error while creating document!!!"
objWordPerfect.CloseNoSave 0
objWordPerfect.Quit
RVal = DC.stopPrinting
If (RVal <> 0) Then Response.Write "Error while calling StopPrinting method!!!"
Set objWordPerfect=Nothing
Set DC=Nothing
Response.Write "Done converting!!!"
%>
|
