Formatage conditionnel d'un rapport

Lors de l'impressoin d'un rapport, lorsque je modifie comme ci-dessous
- soit la taille de la police,
- soit le caractère "bold",
- soit le type de police,
en fonction de la valeur d'un champ.

la 1ère ligne de la section ( mais pas les suivantes) est tronquée.
J'ai essayé avec plusieurs imprimantes et une impression en PDF,
j'obtiens toujours le même problème.

Remarque:
j'utilise Access 2002


Private Sub Pop4_Header_Print(Cancel As Integer, PrintCount As
Integer)
Dim i As Byte
If Th4(1).Value = "A" Then 'si attribut
For i = 0 To 2
Th4(i).ForeColor = RGB(0, 0, 255)
Th4(i).FontSize = 10 ' ne fonctionne pas car à
l'impression
la 1ère ligne de la section est
tronquée
Next i
Else
For i = 0 To 2
Th4(i).ForeColor = RGB(0, 0, 0)
Th4(i).FontSize = 9 '
Next i
End If
End Sub

Salut,

Lors de l'impressoin d'un rapport, lorsque je modifie comme ci-dessous
- soit la taille de la police,
- soit le caractère "bold",
- soit le type de police,
en fonction de la valeur d'un champ.

la 1ère ligne de la section ( mais pas les suivantes) est tronquée.
J'ai essayé avec plusieurs imprimantes et une impression en PDF,
j'obtiens toujours le même problème.

Remarque:
j'utilise Access 2002


Private Sub Pop4_Header_Print(Cancel As Integer, PrintCount As
Integer)
Dim i As Byte
If Th4(1).Value = "A" Then 'si attribut
For i = 0 To 2
Th4(i).ForeColor = RGB(0, 0, 255)
Th4(i).FontSize = 10 ' ne fonctionne pas car à
l'impression
la 1ère ligne de la section est
tronquée
Next i
Else
For i = 0 To 2
Th4(i).ForeColor = RGB(0, 0, 0)
Th4(i).FontSize = 9 '
Next i
End If
End Sub

Est ce que les propriétés "CanGrow" et "CanShrink"
de la zone de texte sont à True ?

Oui: ceux de la section et ceux de la zone de texte. Je précise que le
problème ne survient qu'avec la première ligne de la section, les
autres ne sont pas tronquées. La zone à imprimer est un champ Memo.