Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Printing selected pages
Message
 
À
18/03/1998 06:33:54
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de rapports & Rapports
Divers
Thread ID:
00085291
Message ID:
00085423
Vues:
30
>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
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform