ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Comment obtenir le 'page x de y' avant la venue de VFP8.0

	Description
Retour à la liste L'auteur Mike Gagnon Canada Membre Simple # 0000000025 enregistré le 14/10/2004 Gagnon Mike Pointe Cla H9R 3K8 de la société Carver Technologies Inc. Fiche personnelle Note des membres pas de note	Contributions > 03 - FRX : Etat, impression, Report Comment obtenir le 'page x de y' avant la venue de VFP8.0 # 0000000031 ajouté le 25/10/2004 14:08:26 et modifié le 25/10/2004 consulté 7954 fois Niveau initié Version(s) Foxpro : VFP 7.0 VFP 6.0 VFP 5.0 VFP 3.0
	Voici comment obtenir le nombre de page total avec VFP (VFP8.0 intègre une nouvelle variable _PAGETOTAL) Créer un boite texte dans le pieds de l'état et mettez: 'Page ' + ALLTRIM(STR(_PAGENO)) + ' de '+ ALLTRIM(STR(pnPages)) Et vous devez imprimer l'état deux fois (la première fois pour obtenir le nombre de pages totales. Voici le code a utiliser.
	Code source :
	`PRIVATE pnPages LOCAL lcfile lcFile = SYS(3)+".tmp" lnHandle = FCREATE(lcFile) FCLOSE (lnHandle) WAIT WINDOW 'Déterminer le nombre de pages total...' NOWAIT REPORT FORM &cRepName TO FILE (m.lcfile) NOCONSOLE ERASE (m.lcfile) pnpages = _PAGENO WAIT CLEAR REPORT FORM &cRepName TO PRINTER PROMPT PREVIEW RETURN`
	Commentaires
	Aucun commentaire enregistré ...

Les pubs en cours :

Contributions > 03 - FRX : Etat, impression, Report