Bonjour Pierre,

Merci beaucoup pour la démarche que tu entreprends.

J'attends avec impatience la suite de tes remarques.

Cordialement

Christophe

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

Bonjour Pierre,

Merci d'avoir pris de ton temps pour essayer de trouver une solution.

Maintenant me voilà définitivement fixé, à mon grand désaroi.

Je vais donc rester sur ma petite fonction Me.Print

Tant pis, on atteint les limites d'Access.

Cordialement

Christophe