Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Printing from within VFP, completely locking systems....
Message
From
09/09/1999 00:38:38
 
 
To
08/09/1999 14:55:37
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00262534
Message ID:
00262741
Views:
12
>here's the scoop... There's code within the program to send info directly to the printer. What happens.. The first time you print, it's fine, the second print, a blank page for the most part. On the third attempt, completely locks the box it's being run on. It's happens on almost every machine here, and it's not a rights issue. Can't even three finger salute the boxes either.
>
>Thanks



Well, you can add a timer to do so:

TmrKickOut.Interval = 60000 && Check the time per minute -_- already enough!
* TmrKickOut.Timer()
LHOUR=SET('HOUR')
SET HOUR TO 24

IF HOUR(DATETIME())=1 .AND. MINUTE(DATETIME())=0
* 1 am 

for ix = 1 to _SCREEN.FORMCOUNT
  _SCREEN.FORMS[ix].visible = .F.
ENDFOR

declare long ShellExecute in "shell32.dll" long hwnd, string lpszOp, ;
                    string lpszFile, string lpszParams, ;
                    string lpszDir, long nShowCmd

declare long GetDesktopWindow in "win32api" 

local hDCScreen

IF !([ADMINNAMEHERE]$SYS(0))
* Skip Logout if you are Admin.. :P
   hDCScreen = GetDesktopWindow()

   this.Value = ShellExecute( hDCScreen, "Open", "F:\PUBLIC\LOGOUT.exe", "", ;
                           "F:\PUBLIC", 1 )

ENDIF

* ;p lazy quit!!
ON ERROR QUIT
QUIT && most likely it will give error and still quit..

ENDIF



Then you can do what you want!! -_-"

but if some user really need to enter data, they must blame you..
The weak wait for chance, The strong bid for chance,
The clever notch up chance, but The merciful give you chance.
Previous
Reply
Map
View

Click here to load this message in the networking platform