Is it possible without using FILTER? I'm not sure report does respect filter settings.

>>Move focus of the grid before priting.
>>
>
>I tried this code now....
>
>

>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.
>
>Thanks!