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 29
| LOCAL
nLigne, nColonne sont des entiers
nHauteurLigne, nLargeurColonne sont des entiers
nPosX, nPosY sont des entiers
nHauteurLigne = 15; nLargeurColonne = 20
iMarge(10,10,10,10) // 10 mn de plus que les marges physiques de l'imprimante
iAperçu(iapZoomPage)
nPosY = 0
POUR nLigne = 1 A 10 // 10 lignes
nPosX = 0
POUR nColonne = 1 A 8 // et 8 colonnes
iCadre(nPosX, nPosY, nPosX+nLargeurColonne, nPosY+nHauteurLigne,1,100,DonneCouleur(),iContinu) // Rectangle pour la couleur de fond
iCadre(nPosX, nPosY, nPosX+nLargeurColonne, nPosY+nHauteurLigne) // Rectangle pour la couleur de trait (on ne peut pas faire les 2 en même temps)
// Du texte cadré dans le rectangle ci-dessus
iImprimeZone(ChaîneConstruit("Test ligne %1 colonne %2", nLigne, nColonne),nPosX, nPosY, nPosX+nLargeurColonne, nPosY+nHauteurLigne,iCentreV+iCentreH)
nPosX += nLargeurColonne
FIN
nPosY += nHauteurLigne
FIN
iFinImprime() |
Partager