>How can I Print only selected pages for example from 3 to 10 in Visual FoxPro 3.0. In FoxPro I can use REPORT FORM .... [RANGE nStartPage [, nEndPage]]. How can I do somthing like this in 3.0
>
Here's a code snippet for doing something similar
LPARAMETERS nButton, nShift, nXCoord, nYCoord
IF nButton <> 2
Return
ENDIF
IF ThisForm.Prt_ssn <= 0 OR EMPTY(ThisForm.Prt_ssn) OR EMPTY(ThisForm.Prt_periodend)
=MESSAGEBOX("No Employee Selected or No Ending date Selected!")
RETURN
ENDIF
LOCAL np_ssn,perend
np_ssn = Thisform.prt_ssn
perend = ThisForm.prt_periodend
IF MessageBox("Press OK to confirm TimeSheet PRINTOUT of "+ALLTRIM(Str(np_ssn))+" and " +ALLTRIM(DTOC(perend)),MB_YESNO+MB_ICONQUESTION, "TimeSheet PRINTOUT") = IDYES
REPORT FORM timerecs FOR (timerecs.ssn = np_ssn) and (timerecs.periodend = perend) NOCONSOLE TO PRINTER PROMPT
ThisForm.Show()
LOCATE FOR lv_timerecs.periodend = perend WHILE !EOF()
IF FOUND() AND !EOF()
GOTO RECNO()
ELSE
GOTO BOTTOM
ENDIF
ThisForm.Xgrd1.Column1.txtSSN.Click()
ENDIF
Nebraska Dept of Revenue