Hi these codes can help you. copy it in details properties and on print event or use the attached file:
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)Dim ctl As Control, strText As Variant, strName As String' This routine uses the TextWidth methods to determine the maximum...