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   



L'auteur

Mike Gagnon
Canada Canada
Membre Simple
# 0000000025
enregistré le 14/10/2004

Gagnon Mike
Pte Claire Quebec - Canada
de la société MCRG Software
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é 4940 fois
Niveau initié

Version(s) Foxpro :
VFP 7.0
VFP 6.0
VFP 5.0
VFP 3.0

Description

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é ...

Publicité

Les pubs en cours :

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2019.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3