General information
Category:
Reports & Report designer
>Keith
>
>Your reply is missing from both messages!
>
>Tom
>
>
>>>Suppose I have a process where I am printing
>>>labels via LABEL FORM xxx NEXT 1000000. As each
>>>label is printed the record is marked as having
>>>been printed. I am uncomfortable with leaving
>>the
>>>success of this entire proces to fate. I need
>>>some reliable means of allowing the user to
>press
>>>a key and exit from this process while insuring
>>>that the records that have been printed are
>>>properly marked.
>>>
>>>If the user simply turns off the printer, some
>of
>>>the records that have been marked will not
>>>actually have been printed because they were
>lost
>>>in the print buffer.
>>>
>>>I have function which returns the empty string
>>>attached to one of the lines of my label which
>>>marks each record. I could also use this to
>>>capture a keypress by the user. The most
>natural
>>>key is the ESC key but I have some difficulty
>>with
>>>that key CRASHING the system.
>>>
>>>I normally deal with the ESC key in my systems
>in
>>>this manner: ON KEY LABEL ESC *
>>> set escape off
>>>
>>>Any rock-solid tried & true methods anyone would
>>>like to share ?
Can't help with buffer loss when printer is turned off, but the following code gives a way of escape that is helpful in keeping the user from panicking and switching off the printer:
PRIVATE m.lnStep,m.llAbort
FOR m.lnStep=1 TO 100000
LABEL FORM xxx NEXT 1
REPLACE printed WITH .T.
SKIP IIF(EOF(),0,1)
=INKEY(.001)
IF LASTKEY()=27
SET LIBRARY TO SYS(2004)+"foxtools.fll" ADDITIVE
m.llAbort=MsgBox("Abort printing?",;
"Escape key pressed....",548)
RELEASE LIBRARY SYS(2004)+"foxtools.fll"
IF m.llAbort
m.lnStep=100000
ENDIF
ENDIF
ENDFOR
Hope this can help!
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only