Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Printing selected pages
Message
 
To
18/03/1998 06:33:54
General information
Forum:
Visual FoxPro
Category:
Reports & Report designer
Miscellaneous
Thread ID:
00085291
Message ID:
00085423
Views:
26
>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
Previous
Reply
Map
View

Click here to load this message in the networking platform