[Resolvido]Colocar usuário no rodapé do relatório

Necessitava de colocar, no rodapé dos relatórios o nome do usuário que estivesse a proceder á emissão dos mesmos.
Acho que já li em qualquer lado, mas não consigo encontrar, alguém podedar uma ajuda ?
Obrigado

Basta inserir este código num modulo novo e salvar;

Option Explicit

Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function CurUser() As String
Dim S As String
Dim cnt As Long
Dim dl As Long
cnt = 199
S = String$(200, 0)
dl = GetUserName(S, cnt)
If dl <> 0 Then CurUser = Left$(S, 25) Else CurUser = "Utilizador não reconhecido..."
End Function


Na caixa de texto que inserir no rodapé do seu relatório, coloque na origem da linha;

=CurUser()

Obrigado Mestre, assunto resolvido
um abraço