* calling =printscr() * add this code (from the author) to your function library ********************************* * Print the current window function printscr() DECLARE INTEGER GetDesktopWindow IN Win32api DECLARE INTEGER PrintWindow IN DibApi32 ; INTEGER HWnd, ; INTEGER fPrintArea, ; INTEGER fPrintOpt, ; INTEGER wxScale, ; INTEGER wyScale, ; STRING @ szJobName LOCAL nRetVal,cJobName && title you want to show when printing cJobName = 'Patient Database' && or whatever - this could be passed in as a parameter, also. nRetVal = PrintWindow(GetDesktopWindow(),1,1,0,0,@cJobName) IF nRetVal != 0 IF nRetVal != 6 && 6 = User canceled printing MESSAGEBOX("Unable to print the window" + chr(10) + ; "See System Administrator " + STR(nRetVal),48, ; "Patient Database") ENDIF ENDIF RETURN