[Resolvido]Nome do Relatório em Módulo (passar através do chamamento da função)

Bem colegas... confesso que não estou a conseguir...

Relatório: Boleto

Em um relatório, Eventos: Ao Formatar tenho o chamamento da Função

=Barcode([44posicoes])


No Módulo:

'Esta rotina irá buscar, na tabela 'barra' no campo 'Pattern',
'a representação gráfica, de cada conjunto de 2 caracteres
'dos 44 caracteres que compoem o código de barras padrão Febraban,
'representado pelos caracteres 'S' (barra curta) e 'L' (barra longa)

Function Barcode(Anycode)
Dim NomeObjeto As String
Dim db As Database, tbllookup As Recordset
Dim nbar, wbar, ibar, startx, starty, depth, newposn As Single
Dim Numero As Integer

Dim countx, countz, countr As Single
Dim getstr, extstr As String

Dim scanstr, onechr As String
Dim colour As Long
Dim rpt As Report



Set db = CurrentDb()
Set rpt = Reports!]Boleto]
....
....
...


O que preciso é passar o nome do relatorio como uma variável...

Algo assim:

=Barcode([44posicoes],Boleto)


Function Barcode(Anycode,NomeBoleto)
Dim NomeObjeto As String
Dim db As Database, tbllookup As Recordset
Dim nbar, wbar, ibar, startx, starty, depth, newposn As Single
Dim Numero As Integer

Dim countx, countz, countr As Single
Dim getstr, extstr As String

Dim scanstr, onechr As String
Dim colour As Long
Dim rpt As Report



Set db = CurrentDb()
Set rpt = Reports!]NomeBoleto]
....
....
...


Para poder mudar o nome do relatorio conforme o relatorio em uso...Para usar apenas uma função para todos.

Mas não estou a conseguir... Alguma idéria?



Cumprimentos.

Olá, Piloto
Tenta
Function Barcode(Anycode,NomeBoleto as string)
Dim NomeObjeto As String
Dim db As Database, tbllookup As Recordset
Dim nbar, wbar, ibar, startx, starty, depth, newposn As Single
Dim Numero As Integer

Dim countx, countz, countr As Single
Dim getstr, extstr As String

Dim scanstr, onechr As String
Dim colour As Long
Dim rpt As Report



Set db = CurrentDb()
Set rpt = Reports(NomeBoleto)
....

Boas Grande Alexandre... Eu inclusive ja havia tentado assim, porem estava a errar na hora se setar o rpt.


Para chamar:

=Barcode([44posicoes];"Boleto")



Cumprimentos.