Pessoal,
Tentando desesperadamente encontrar uma rotina para justificar texto, depois de muito procurar, enfim achei uma. Só que eu nem sei se funciona porque não consigo passar um parâmetro que a função pede.
A função é assim:
Function Justifica(lpzText, ControlText As Control, objReport As ActiveReport) As String
O segundo parametro é o nome do controle que receberá o texto justificado.
Na chamada, que eu faço no detail.format, eu preciso passar o controle mas tentei fazer assim e não deu certo:
Dim vHistorico As Control
Set vHistorico = HistoricoJustificado
HistoricoJustificado = Justifica(HistoricoOriginal, vHistorico, Me)
Sempre vem o conteúdo do campo (uma string em branco) ao invés do próprio controle.
Alguém sabe como resolver isso?
Ou tem outra rotina para justificar um campo texto?
Obrigado.
