Search results

This will work for Reports.: Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Dim Ctrl As Control If Len(Me.Text4) >= 12 Then Me.Text4.FontSize = 7 Else Me.Text4.FontSize = 8 End If End Sub