Set Printer To Default Select Distinct st, cnty, system ; FROM Work Into Cursor mygroups Select mygroups Scan This.printcover(mygroups.System) * sleep(10000) Select * From Work ; INTO Cursor mywork; where (System == mygroups.System); AND (st == mygroups.st); AND (cnty == mygroups.cnty); ORDER By st, cnty, System, acct Select mywork Set Relation To (st+cnty) Into tunits Additive Set Relation To System Into bankname Additive Report Form pde1 Noconsole To Printer EndscanWhere the PrintCover method does the call to shellexecute:
Lparameters cSys Local cfile, loException cfile = cSys+[ TX.pdf] Try This.shellexecute(cfile,[T:\AOA\Real Estate - Texas],[print]) Catch To loException Endtry WAIT [Printing AOA ...] WINDOW TIMEOUT 10I have inserted a 10 second delay to try to alleviate a problem where the fox report section gets to the print queue faster than the PDF that should precede it.