>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 >Endscan >>
>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 10 >>I 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.