1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
| nNbLignes est un entier
nNbColonnes est un entier
nHauteurLigne est un entier
nX, nY sont des entiers
nLargeurCellule est un entier
tabValeurs est un tableau de 5 chaînes = ["aaaa", "bbbbb", "ccccc", "ddddd", "eeeee"]
iAperçu(iapZoomPage)
nY = 25 // Coordonnée verticale de départ du tableau, correspondant à ma marge haute, par exemple pour imprimer un en-tête au dessus
nHauteurLigne = 10; nNbColonnes = 7; nNbLignes = 35
nLargeurCellule = (iLargeurPage()-10) / nNbColonnes
// Je vais imprimer un tableau {nNbLignes] lignes et [nNbColonnes] colonnes avec des valeurs au hasard que je pioche dans tabValeurs
POUR nLigne = 1 A nNbLignes
nX = 5 // on commence à 5 mm du bord gauche (marge gauche)
POUR nCol = 1 A nNbColonnes
iCadre(nX, nY, nX+nLargeurCellule, nY+nHauteurLigne, 0.2, 0, GrisFoncé)
iImprimeZone(tabValeurs[Hasard(5)], nX, nY, nX+nLargeurCellule, nY+nHauteurLigne,iCentreV+iCentreH)
nX += nLargeurCellule
FIN
nY += nHauteurLigne
SI nY > (iHauteurPage()-nHauteurLigne-10) ALORS // je garde 10mm de marge en bas
iSautePage()
nY = 25
FIN
FIN
iFinImprime() |
Partager