>I have a UDF to print an Order sheet. When the user chooses to print the UDF is done twice to print two copies. Sometimes a couple of users have problems. The first copy prints fine but the second one stops near the end, always at the last item of the order. If the paper is removed from the printer, when the printer is used next the rest of the order sheet information that was not printed the previous time prints before the new print job. I tried switching printers but that doesn't solve the problem. It seems like some kind of memory problem though because sometimes the print job is printed quite sporadically - a few lines will print, then a pause, then a few more lines will print, maybe another pause and then some more lines print. The application is written in Foxpro/Lan 2.0 and used in a multi user environment. Any suggestions? Thanks.
It has been quite a while since I worked with Foxpro/Lan 2.0, but the following coding was developed as "clean up" coding for customers transitioning from MSDOS versions to Windows versions:

DO CASE

CASE ALLTRIM( UPPER( SET( "DEVICE" ) ) ) <> "PRINT"

=ringbell( ;
CHR(13) + CHR(13) + ;
"SET( 'DEVICE' ) = " + SET( "DEVICE" ) + CHR(13) + ;
"NO CHANGE TO DEVICE SETTING MADE", ;
10 ) && Ringbell() is UDF which does '?chr(7)' and then 'Wait window' with message

CASE _WINDOWS .OR. _MAC

SET DEVICE TO SCREEN
SET PRINTER OFF
SET PRINTER TO && October, 1993 critical for _WINDOWS
SET CONSOLE ON && 4/6/94 allow bell to sound after printing

CASE _DOS

EJECT
SET DEVICE TO SCREEN
SET PRINTER OFF
SET CONSOLE ON && 4/6/94 allow bell to sound after printing

OTHERWISE

=bdplatform() && UDF that does a 'Wait window' then 'Quit'

ENDCASE