Forcibly terminate execution of an EXE application

[harshad]

I have an exe which generates some word reports. I want to terminate the execution of this exe when i click a cancel button. I am not able to get it working

I have used this sub routine to stop execution

Sub KillPrint()
Set wrd = Nothing
MsgBox "Print Cancelled!"
End
End Sub


I am not able to set the focus on the cancel button when the printing of the data in the word document is started..
I am using the code

frmPrint.setfocus for the same

I need help:
1. To get focus on the Cancel button
2. To get it to kill the execution of the program

[riteshtandon]

use doevents before starting the code, this will enable you to receive events from the command button inbetween.

Ritesh

[si_the_geek]

First thing - your KillPrint sub doesn't make any attempt to close Word, just destroy the link to it. Try this instead:

Sub KillPrint() 
 
On Error Resume Next    
wrd.DisplayAlerts = 0 'do not show Word messages (such as "printing hasn't finished yet")
wrd.Quit False        'Quit word (without saving changes to documents)
 
Set wrd = Nothing 
MsgBox "Print Cancelled!" 
 
End   'There are lots of arguments for not using End - unloading forms would be better.
 
End Sub

And as far as enabling you cancel button goes, riteshtandon was on the right track.. DoEvents is what you need. Just put it into your code in several places, not just at the start - especially within loops and before+after lines of code that take a long time to execute.

[harshad]

Thanx a lot to both of u..

It worked...