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)I can still Preview 3 or more Prescriptions, but only only print ONE Prescription... sigh.