Alterar fonte do relatório pelo VBA

É comum o cliente dizer que a fonte do relatório está muito pequena e ele ou outra pessoa não estão conseguindo visualizar de forma satisfatória. Porém para outros clientes o tamanho está perfeito. Para resolver esta questão uma rotina bem simples poderá solucionar esse problema.

Vamos ao código:

01. Crie a função abaixo em um módulo qualquer:

Public Sub AlteraFonte(r As Report, iTam As Integer)
'altera o tamanho da fonte dos relatórios
On Error Resume Next
    Dim i As Integer
    For i = 0 To r.Controls.Count - 1
        If TypeOf r.Controls(i) Is TextBox Then
            r.Controls(i).FontSize = iTam
        End If
        If TypeOf r.Controls(i) Is ComboBox Then
            r.Controls(i).FontSize = iTam
        End If
    Next

End Sub

02. Insira ao formatar da seção detalhes do relatório
' Utilize tamanhos 8, 9, 10 ou 11 no máximo. Se você abrir tamanhos maiores os objetos TextBox e ComboBox podem desfocar as informações ficando muito pequenas.

    Dim iFonte as integer
    iFonte = Forms!VendasCadastro!cmbTamanhoFonte
    Call AlteraFonte(Me, iFonte) 'nome do formulário e tamanho da fonte