Hey Gang!

This one is STRANGE!!!!!..........................

When I click on the button to print the Patient Medical Reports, I see in the Preview ALL of the SELECTED (MARKED) Prescriptions...

But...

When I press the Print button in the Preview, it only prints ONE Prescription!!!

Here is the code....

LOCAL lcRxCaption,llFirst,lcPharmacy,lcPhone

llFirst = .T.
Thisform.mousepointer = 11
Thisform.m_Actions(2)
ThisForm.txtStatus.value = "Printing Patient Medical Reports..."
Thisform.Draw

SELECT rx
SET FILTER TO (marked = .T.)

GO top

IF NOT EOF()

Here is where it prints...

	SELECT rx
	REPORT FORM RxPMR NOCONSOLE TO PRINTER PREVIEW 		
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)

The Rx table is filtered by MARKED = .T.

Any ideas? What have I overlooked?

Thanks!!