>LOCAL lcRxCaption,llFirst,lcPharmacy,lcPhone > >llFirst = .T. >Thisform.mousepointer = 11 >Thisform.m_Actions(2) >ThisForm.txtStatus.value = "Printing Patient Medical Reports..." > >SELECT rx >SET FILTER TO (marked = .T.) > >GO top > >IF NOT EOF() > This.Parent.Parent.txtStatus.SetFocus && To remove focus from the grid, so the report will print correctly > SELECT rx > REPORT FORM RxPMR NOCONSOLE TO PRINTER PREVIEW > Thisform.grdProfile.SetFocus && Set focus back to grid >ELSE > MESSAGEBOX("There are no Rx's selected to print the Patient Medical Report" + CHR(13) + ; > "(To select a Rx, check it)",64,"Cannot Print PMR(s)") >ENDIF >Thisform.mousepointer = 0 >ThisForm.txtStatus.value = "" > >* Reset grid >SELECT rx >IF Thisform.p_ViewType = 1 > SET FILTER TO INLIST(status,0,1,5) >ELSE > SET FILTER TO >ENDIF >GO TOP IN rx >ThisForm.grdProfile.Refresh() >Thisform.m_Actions(1) > >>