Alinhar texto do rótulo no modo 'Justificado'

Boa tarde galera. É o seguinte, tenho um formulário no qual digito dados dos documentos dos usuários, como nome, rg, cpf etc. Ele serve pra gerar um ofício, um ofício que ja sai pronto com o nome do usuário e seus documentos. Quando termino de digitar os dados, eles vão para um relatório(o ofício) para ser impresso. O texto principal do ofício, onde estão os dados do usuário, está escrito em um rótulo. O problema é que não consigo deixar o texto do rótulo no modo 'Justificado', no acces 2007 que eu uso não tem essa opção, apenas o modo 'Distribuir'. Acontece que, quando uso o modo 'Distribuir', a útima linha do texto do rótulo fica toda espalhada. Queria saber se não tem como deixar a última linha do texto do rótulo ajustudo. O bd está em anexo. Obrigado pela atenção!

Só pra esclarecer, o formulário é o 'Formulário1' e o relatório é o 'Relatório1', pois existem mais formulários e relatórios no bd. Obrigado pela atenção!

estou usando a seguinte linha de código no relatório:

Option Compare Database
Dim Nome As String
Dim RG As String
Dim CPF As String
Dim NIS As String
Dim cf As String

Private Sub Report_Open(Cancel As Integer)
   
   Nome = Forms![Formulário1]![txtnome]
   RG = Forms![Formulário1]![txtrg]
   CPF = Forms![Formulário1]![txtcpf]
   NIS = Forms![Formulário1]![txtnis]
   cf = Forms![Formulário1]![txtfamiliar]
   
   Me.lbldata.Caption = Forms![Formulário1]![txtdata]
   
   Me.lbltexto.Caption = "Eu, " & Nome & ", portador(a) do RG de nº " & RG & " e CPF de nº " & CPF & _
   " inscrita no NIS de nº " & NIS & " e residente no Código Familiar de nº " & cf & _
   ", autorizo efetuar a exclusão do(s) componente(s) a seguir e serei responsável pelas consequências deste ato."
   
   Me.lblcomp1.Caption = Forms![Formulário1]![txtcomp1]
   Me.lblnis1.Caption = Forms![Formulário1]![txtnis1]
   Me.lblatendente.Caption = Forms![Formulário1]![txtatendente].Value
   Me.lblresponsavel.Caption = Forms![Formulário1]![txtnome]
   Me.lblcomp2.Caption = Forms![Formulário1]![txtcomp2]
   Me.lblcomp3.Caption = Forms![Formulário1]![txtcomp3]
   Me.lblnis2.Caption = Forms![Formulário1]![txtnis2]
   Me.lblnis3.Caption = Forms![Formulário1]![txtnis3]
   
End Sub

'lbltexto' é o rótulo em questão. A última linha do texto fica toda espalhada até preencher os lados do rótulo. Fica horrível, tenho que arrumar um jeito que fique justificado, padrão nos documentos oficiais.

Olá, se vc está usando o access 2007 muda de rótulo para caixa de texto e na propriedade formato de texto, coloca 'rich text' e alinhamento de texto 'Distribuir'

Ja tentei usar uma caixa de texto, mas da erro. Deve ser porque é um relatório, e não um formulário. Não é possível fazer alterações em tempo de execução no relatório usando caixa de texto, por isso da erro!

amigão, insira uma caixa de texto não acoplada no relatório e na propriedade "fonte de controle" vc coloca: ="copia o texto do rótulo aqui" (entre aspa dupla mesmo)

Bom dia Darlan....

Seguinte,

a- entra no código, copia uma parte do lbltexto (e serei responsável pelas consequências deste ato.). Esta faltando isso em tua lbltexto no relatório.

b- no mesmo evento

Private Sub Report_Open(Cancel As Integer)

Nome = Forms![Formulário1]![txtnome]
RG = Forms![Formulário1]![txtrg]
CPF = Forms![Formulário1]![txtcpf]
NIS = Forms![Formulário1]![txtnis]
cf = Forms![Formulário1]![txtfamiliar]

Me.lbldata.Caption = Forms![Formulário1]![txtdata]

Me.lbltexto.Caption = "Eu, " & Nome & ", portador(a) do RG de nº " & RG & " e CPF de nº " & CPF & _
" inscrita no NIS de nº " & NIS & " e residente no Código Familiar de nº " & cf & _
", autorizo efetuar a exclusão do(s) componente(s) a seguir e serei responsável pelas consequências deste ato."

'Me.lbltexto.SizeToFit ---> comente essa linha.
Me.lbltexto.TextAlign = 4 -- > inclua essa linha


Me.lblcomp1.Caption = Forms![Formulário1]![txtcomp1]
Me.lblnis1.Caption = Forms![Formulário1]![txtnis1]
Me.lblatendente.Caption = Forms![Formulário1]![txtatendente].Value
Me.lblresponsavel.Caption = Forms![Formulário1]![txtnome]
Me.lblcomp2.Caption = Forms![Formulário1]![txtcomp2]
Me.lblcomp3.Caption = Forms![Formulário1]![txtcomp3]
Me.lblnis2.Caption = Forms![Formulário1]![txtnis2]
Me.lblnis3.Caption = Forms![Formulário1]![txtnis3]

End Sub

Bons estudos.

No meu caso alguns relatorios não ha campos a serem acoplados junto ao texto. Como ficaria o codigo.