1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| iParamètre(iOrientation, iOrientation_Paysage)
iAperçu()
iSauteLigne(3)
//Cadre pour le titre
iCadre(15, 15, iLargeurPage() - 15, 40, 2, 15, GrisClair)
iCadreArrondi(40, 20, iLargeurPage() - 40, 35, 2, 2, 10, 100, Blanc)
//Imprime la date du jour
iCréePolice(1, 10, iItalique, "Times New Roman")
iImprime(iPolice(1) + iPosX(iLargeurPage() - 35) + iPosY(18) + DateVersChaîne(DateDuJour()))
//Imprime le titre centré
iCréePolice(1, 18, iGras + iSouligné, "Times New Roman")
iPosX(iLargeurPage()/2 - iLargeurTexte(TitreEtat)/2)
iImprime(iPolice(1) + iPosY(24) + Majuscule(Gauche(TitreEtat, 1)) + Droite(TitreEtat, Taille(TitreEtat) - 1))
........
iFinImprime() |
Partager