Espaço entre caracteres

Olá, boa tarde.

Estou criando um relatório que possui um formulário no formato imagem como fundo.
Os campos tem que se adequar aos campos do formulário. Cada do formulário de fundo, são compostos por vários traços verticais
(| | | | | | | | | |)
para que cada quadrado receba um caractere. Isso é um tanto difícil, mas gostaria de pelo menos distribuir melhor texto do campo do início ao fim.

Imaginei que adicionando um espaço entre os caracteres talvez ficasse melhor.

É possível fazer isso?

Sim, mas talvez fosse o caso de se colocar uma caixa de texto para cada caractere.

Usando Left, Mid ou Right?

Bom dia rgondim
como utilizo muito essa forma de expôr em relatório e como o criquio disse tens que pôr entrecada traço uma caixa de texto, de pois colocas o seguintena 1ª caixa da origem de controlo=Meio([NomeDoCampo];1;1) e assim sucessivamente nas outras caixas só tens que na 2ª colocar:=Meio([NomeDoCampo];2;2)
Pina

Haveria outra maneira mais simples?

Bom dia
Penso que não mas os Mestres talvez tenham outra formula, Já fez o exemplo?
Como lhe disse trabalho muito com esta formula.
Pina

Bom dia

Ainda não fiz, Pina. Mas compreendi a lógica. Pergunto se há outra fórmula pois essa implica uma caixa de texto para cada quadro: uma imensidão..rs.

Desde já, grato pela ajuda.

Pode tambem tentar, no evento "Ao carregar" do relatório ou outro que melhor atender:

Código:

Dim C As Control, N As Integer, V As String

For Each C In Me.Controls
    If C.ControlType = acTextBox Then
        For N = 1 To Len(Me(C.Name))
            V = V & Mid(Me(C.Name), N, 1) & " "
        Next
        Me(C.Name) = V
    End If
Next

A ideia é inserir os espaços entre os caracteres.

Surgiram dois erros:

Em Me(c.Name) = v
"Você não pode atribuir um valor a este objeto."

Em v = v & Mid(Me(c.Name), n, 1) & " "
"Tipos incompatíveis."

Não compreendi bem o funcionamento dela para adaptar.