home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code1
/
abortprn
/
abortprn.frm
(
.txt
)
next >
Wrap
Visual Basic Form
|
1993-07-26
|
3KB
|
92 lines
frmAbortTest
Print Cancel Demo
Form1%
cmdAbortTest
Exit Test
cmdAbortTest
Abort Print Job
cmdAbortTest
Start Print Job
Command1_Click
NoPrintMan
EndIt
dummyy
Command2_Click
Printer
Command1
VisibleW
Form_Click
Command2
@ Form_LoadH
EndPrn
Caption
form1A
WaitTime0
defineu
AbortDoc
junkX
ErrorHandler
ErrorHandleer+
AbortJob
Functions
exampleP
display
messages
associated
numbers
this]
paste%
Declarations
section
press
click
UserError
PrintCancel
Command3_Click
cmdAbortTest_Click
Index
LineNo
cmdAbortTest
Form_Paint
Screen
Width
Height
frmAbortTest
PageNo>
cmdAbortTest_Click
Start Print Job
Set Shared AbortJob to false, it will bel
reset to true if Abort Job is selected by
user.
Set up a small delay so user can see what
is happening to print job
Inform the user of what's happening
Printing Page:
Line:
Give user a chance to do somethings
Print Job Complete
Abort Print Job
Set up a local error handler to handle the error we are going
to cause shortly.
Call Windows' AbortDoc function in the GDI libary
VB's printer object doesn't know you have aborted
the print job, so when a Printer.EndDoc is issued
VB is going to give you a printer error. Issue
the EndDoc now while you can ignore the error..
Print Job Aborted
AbortJob = True
Exit Test
Exit the sub here so that you don't run into your error handling
routine.
Error handler for VB's printer error.
This is VB's printer error so
ignore it!x
If it's not the printer error
then inform the user of the error
and end program execution
Form_Load
Put form in the middle of the screen
Let'em know what program they are running
Abort Print Job Test
Form_Paint