Bonjour Pierre, Après 4 mois de recherches infructuteuses sur ce fameux texte incliné, j'ai finalement réalisé ce code. Sub PrintIncline(nRpt As Report) With nRpt 'Format de police .ScaleMode = 1 'Mesure en twips .FontBold = -1 'Texte en gras .ForeColor = vbRed 'Couleur du texte .FontName = "Times New Roman" 'Nom de la police .fontsize = 20 'Taille de la police End With Dim NbreCar As Integer Dim nText As String Dim LargText As Integer, HautText As Integer nText = "MON TEXTE EST INCLINÉ" NbreCar = Len(nText) On_Verifie: 'Nbre de caractères * (taille de police * 10) + largeur de la dernière lettre du texte LargText = NbreCar * (nRpt.fontsize * 10) + nRpt.TextWidth(Right(nText, 1)) HautText = (NbreCar * nRpt.TextHeight(nText)) 'Si la hauteur ou la largeur du texte est plus grande que la hauteur de section If HautText > nRpt.ScaleHeight Or LargText > nRpt.ScaleWidth Then 'On enlève 1 point de taille police nRpt.fontsize = nRpt.fontsize - 1 'Taille de la police GoTo On_Verifie 'On relance le code pour vérifier que le texte rentre dans la section End If nRpt.CurrentX = (nRpt.ScaleWidth - LargText) / 2 'Coordonnées de départ nRpt.CurrentY = (nRpt.ScaleHeight - HautText) / 2 For i = 1 To NbreCar nRpt.Print Mid(nText, i, 1) nRpt.CurrentX = nRpt.CurrentX - nRpt.TextWidth(Mid(nText, i, 1)) + (nRpt.fontsize * 10) Next i End Sub Pour appeler le code : Call PrintIncline(Me) Si tu as une solution, simplement pour incliner la police, je suis preneur. Cordialement Christophe |