Jack,
It fires off ok (corel wp 8) but the print button is still being disabled. Here's what my code looks like:

IF TYPE('WPPATH')='U' .or. type('MACROPATH')='U'
DO READINI WITH "PATHS.INI"
ENDIF
wppath=allt(wppath)
macropath=allt(macropath)
macropath = iif(right(macropath,1) = '\', macropath, macropath + '\')
IF right(WPPATH,1)<>"\"
WPPATH=WPPATH+'\'

IF .NOT. FILE(WPPATH+'WPWIN8.EXE') &&CALL UP COREL WORDPERFECT 8
*IF .NOT. FILE(WPPATH+'WPWIN.EXE')
=MessageBox("Can not locate WPWIN. Check PATHS.INI",0,"WP not found")
Thisform.release
return
ENDIF
ENDIF
=ddeSetOption('safety',.f.)
=ddeSetOption('timeout',5000)
THIS.WPCHAN = DDEINITIATE("WPWIN8_MACROS","COMMANDS")
*This.WpChan = DDEInitiate('WPWIN60_macros',"commands")
IF This.WpChan < 0
run_com=wppath+'wpwin8.exe :'
*run_com=wppath+'wpwin.exe :'
* WAIT WIND 'WORD PERFECT COMMAND: '+ALLT(run_com) TIMEOUT .75
run /n7 &run_com
This.WpChan=-1
i=1
*Wait for the WP program to load into memory
do while this.WpChan=-1 .and. i<11
THIS.WPCHAN = DDEINITIATE("WPWIN8_MACROS","COMMANDS")
rvalue = DDEExecute(this.wpchan, 'FileOpen(Filename:"'+ wpfile+ '"; Format:WordPerfect_CompoundFile!)')
rvalue = DDEExecute(this.wpchan, 'PrintSettings (Action: Update!; SettingName: Default!)')
rvalue = DDEExecute(this.wpchan, 'PrintCopies (NumberOfCopies: 2)')
rvalue = DDEExecute(this.wpchan, 'Print()')
rvalue = DDEExecute(this.wpchan, 'CloseNoSave(Verify:No!)')
rvalue = DDEExecute(this.wpchan, 'ExitWordPerfect()')
*This.WpChan = DDEInitiate('WPWIN60_macros',"commands")
i=i+1
enddo
endif
If this.WPChan < 0
=MessageBox("Unable to load WordPerfect for Windows",0,"WP not found")
endif