[Resolvido]Distribuição de texto em um caixa de texto

Bom dia forum Tenho em um relatorio uma caixa de texto onde concateno um texto com registros buscados no formulario de origem incluindo um valor moeda. O problema é que na impressão esse texto fica sem uma formatação distribuida na caixa. Ao tentar usar o formato de Texto distribuido ele espaça tambem o valor. Alguém conhece uma forma de tratar esse problema e deixar o formato distribuido ignorando o que aparece como valor. Grato

Amigo não sei se percebi bem o seu problema, mas se é na formatação tente assim:

Use [campo1] & " " & [campo2], colocando quantos espaços desejar

ou com espaços definidos

Space$(tamanhoDoCampo_N - Len(Campo_n)). Por exemplo:
=Space$(2 - Len([campo1])) & [campo1] & Space$(12 - Len([campo2])) & [campo2] & ...

Desculpe a falta de informação mas o que é Len???

Vou tentar explicar melhor:
Meu texto dentro da caixa de texto concatena uma frase com valores, porem na impressão o layout fica sem formatação deixando espaços vagos no termino das linhas. Ao tentar deixar a instrução de texto distribuido nas propriedades da caixa de texto a distribuição interfere inclusive no valor formato moeda que tenho, fica assim R $ 2 . 0 0 0 , 0 0 no final da linha. Estou a procura de algo parecido com o justificado do Word. Grato pela atenção.

Meu caro amigo

Será que você pode colocar aqui a forma como tem isso feito? Assim tentaria ajudar.

Não tinha reparado numa pergunta anterior sobre a função Len. Aqui na Microsoft MSDN pode ver em detalhe a explicação:

http://msdn.microsoft.com/pt-br/library/dxsw58z6(VS.90).aspx

Ainda não consegui uma solução para o problema, então vou retomar o tópico

O texto da caixa de texto é o abaixo:

="Trata-se de " & (Formulários![frmCadastro Entidades]!Nome) & ". conforme informações às fls.." & Formulários![frmCadastro Entidades]!Frm_Pregao.Formulário!PaginaPesquisa & " , tendo como valor total estimado para a contratação " & FormatarMoeda(Formulários![frmCadastro Entidades]!Frm_Pregao.Formulário!ValorRealizado) & "."

O texto do relatório fica assim:

Trata-se de Aquisição e Instalação de
Cabines de Arrecadação do
estacionamento da Empresa.
conforme informações às fls.. , tendo
como valor total estimado para a
contratação R$ 0,00.

Como as informações dos formulários são diferentes, na visualização e impressão do relatorio o texto não sai justificado e aparência ficou muito ruim conforme acima.
Tentei alguns exemplos do lebans e outros disponiveis mas não consegui resultado.
Alguma ajuda
Em tempo bom natal a todos do forum

Existe um "text-align" propriedade que inclui a escolha de "distribuir", que é o mais próximo que eu cheguei a um formato justificado em caixas de texto nos relatorios.

Tambem pode tentar o exemplo do Lebans;

http://www.lebans.com/justidirect.htm

Tente colocar no evento "Ao carregar" do relatório:

Me.NomeDaCaixaDeTexto.TextAlign = 4

Se estiver usando a versão 2007 ou 2010, coloque a propriedade "Formato de texto" da sua caixa de texto como "Rich text" para ajudar na formatação.

Valeram as dicas... Vou tentar e retorno com noticias..
Em tempo Bom Natal e Bom ano a todos do forum...
Realizações

O TextAlign no carrgar do formulário alinhou perfeitamente a caixa de texto. Só pra entender o 4 colocado na instrução representa o que? Vou estender pras outras caixa... Valeu o apoio pessoal.

Ao invés de te dar de mão beijada o significado do 4, vou te dar uma dica que vai te auxiliar em muitos outros casos futuramente: Dê um clique no meio de TextAlign e pressione F1.

vou lá dar uma olhada.O efeito parece que foi o mesmo do "distribuir" texto no formato, ou seja a ultima linha fica sempre toda espaçada.Essa ultima linha ainda é um problema

Qual é a versão do Access? Se for a 2007 ou 2010, tem uma dica adicional em um post acima. Se for anterior, podes tentar incluir uma rotina que preencha a última linha com espaços.

A versão que utilizo é a 2003. Essa saida do complemento com espaços pode funcionar. Como chego a essa rotina?

Nos modelos disponiveis (lebans)não consigo visualizar o ponto de inclusão dos espaços na ultima linha..Não sei se é por ai que devo continuar...

Estou usando o seguinte codigo disponibilizado na internet para tentar justificar o texto em 02 caixas de texto que tenho no relatorio:

Option Compare Database

Private Sub CabeçalhoDoRelatório_Format(Cancel As Integer, FormatCount As Integer)
Me![Texto229] = Justifica(Me![Texto135], Me![Texto229], Me)
Me![Texto233] = Justifica(Me![Texto231], Me![Texto233], Me)
End Sub

Function Justifica(lpzText, ControlText As Control, objReport As Report) As String
'Simula o alinhamento justificado de texto em campos em relatórios do Access
'Versão 1.0
'Autor: Larissa Redeker
'Fevereiro de 1997

'On Error GoTo Err_Justifica

Dim Carac As String, Newtext As String
Dim Numspaces As Integer, WidthSpace As Integer
Dim WidthControl As Integer
Dim I As Integer, Inicio As Integer
Dim LastPos As Integer, PosSpace As Integer, PoscharBreak As Integer
Dim FinalText As String, SpacesInStr As Integer
Dim SizeText As Integer
Dim POSI As Integer, CI As Integer
Dim NextCarac As String
Dim n As Integer

'As próximas 4 linhas definem as propriedades de fontes do relatório com as
'definições da caixa de texto que irá receber o texto justificado, pois as
'dimensões do texto para cálculos são feitas através da propriedade TextWidth
'do relatório

objReport.FontName = ControlText.FontName
objReport.FontSize = ControlText.FontSize
objReport.FontBold = ControlText.FontBold
objReport.FontItalic = ControlText.FontItalic
'Obtém o tamanho da caixa de texto que irá receber o texto alinhado
WidthControl = ControlText.Width
'Obtém o tamanho de espaço na fonte atual
WidthSpace = objReport.TextWidth(" ")
'obtém o tamanho do texto a ser justificado
SizeText = Len(lpzText)

I = 1
Inicio = 1

Do While I < SizeText + 1
Carac = Mid(lpzText, I, 1) 'extrai um caracter de cada vez
Newtext = Newtext + Carac 'cria nova seqüência de caracteres
Select Case Carac
Case Chr(13) 'se o caracter for ENTER - final do parágrafo ...
FinalText = FinalText + Left(Newtext, Len(Newtext) - 1) + Chr(13) + Chr(10)
Newtext = ""
I = I + 1
LastPos = 0
Inicio = I + 1
Case " " 'se o caracter for ESPAÇO
If objReport.TextWidth(Newtext) > WidthControl Then
'Se a nova seqüência for maior que o controle que irá receber o texto,
'refaz a nova seqüência para caber na caixa de texto
Newtext = Mid(lpzText, Inicio, LastPos - Inicio)
'obtém o número de espaços necessários, que deverão ser inseridos na nova
'seqüência de texto
Numspaces = Fix((WidthControl - objReport.TextWidth(Newtext)) / WidthSpace) - 1
For n = 1 To Len(Newtext)
'Calcula o número de espaços existentes na nova seqüência de texto
Carac = Mid(Newtext, n, 1)
If Carac = " " Then SpacesInStr = SpacesInStr + 1
Next n
POSI = 1
CI = 1
PoscharBreak = 0
Do While CI < Numspaces
'Insere espaços no texto nos espaços já existentes no mesmo
Carac = Mid(Newtext, POSI, 1)
If Carac = " " Then
NextCarac = Mid(Newtext, POSI + 1, 1)
If NextCarac <> " " Then
Newtext = Mid(Newtext, 1, POSI) + String(1, " ") + Mid(Newtext, POSI + 1)
POSI = POSI + 1
CI = CI + 1
End If
PoscharBreak = PoscharBreak + 1
If PoscharBreak = SpacesInStr Then
PoscharBreak = 0
POSI = 0
End If
End If
POSI = POSI + 1
Loop
FinalText = FinalText + Newtext + Chr(13) + Chr(10)
Newtext = ""
I = LastPos
LastPos = 0
Inicio = I + 1
Else
LastPos = I
End If
End Select
I = I + 1
Loop
Justifica = FinalText & Newtext

Exit_Justifica:
Exit Function

Err_Justifica:
Resume Exit_Justifica

End Function

Ele trabalha bem com a caixa 135 mas ao incluir o procedimento na caixa 233 da "estouro" parando na linha POSI = POSI + 1. tenho então que ir aumentando a caixa de tamanho até funcionar, porém não fica no padrão de tamanho que meu relatorio exige. De acordo com o aumento do tamanho da caixa no relatório ele fica pensando e não abre nada. Ao acionar ctrl+Break percebe-se que o codigo parou no Loop. Sei que em algum lugar ele esta verificando as duas caixas para alinhar o texto mas não consigo perceber o ponto. Estou tentando...

Esses campos na tabela estão como texto ou memorando? Se estiver como texto, tente passá-los para memorando.

Talvez fique muito pesado assim com tantos campos memo. Porque não na aba Formato e definir Redimensionar automaticamente como Sim. É só um pitaco.

Vamos lá..
A caixa de texto que está no relatorio não está acoplada a nenhum campo de tabela. Ela funciona apenas como caixa de texto onde eu inseri um texto desejavel no relatório combinado com asa variaveis. As variaveis sim (conforme acima) é que são "buscadas" em formularios que por sua vez vem de tabelas. Eu não sei se estou usando o procedimento correto, pe que como funcionou em uma avancei tentando estender e ter as caixas de texto com funcionamento semelhante justificadas.
Ja tentei com uma ferramente chamada justify que tem uma ocx mas não percebi uma forma de inserir um texto combinado com as variaveis justamente por ser um campo memo acoplado a uma tabela. Ao inserir esse texto na tabela a caixa de texto não interpreta como variavel e sim como texto. Exemplo sai no relatorio ="trata-se de uma ......."

vierasoft:

esse redimensionar automaticamente seria o Pode ampliar e o Pode reduzir como sim? Na minha aba do formato não aparece o redimensionar.

na aba formato nas propriedades da caixa de texto tem; Ampliável (desculpe ter falado em redimensionar) sim ou não. Normalmente está em não. Coloque em sim e veja se atende.

Já tentei isso.
Deixei o Pode Ampliar = Sim e o Pode Reduzir = Sim
Ele dá uma mensagem de estouro e somente quando aumento consideravalmente a caixa de texto que vai receber o texto justificado e que o código roda. Ao depurar a mensagem de erro de estouro o código parou em POSI = POSI + 1

Já tentou ajustar a altura da caixa de texto ao número de linhas do texto?

Já sim.
pelo que entendi o problema esta na largura da caixa de texto e não na altura visto que mexendo na altura, tanto aumentando quanto diminuindo funciona. Já na largura da caixa estou precisando deixar a que vai receber o texto muito maior que a do texto propriamente dito. deixando as duas do mesmo tamanho dá o estouro.

Veja se consegues adaptar esses exemplos do Lebans:

http://www.lebans.com/limitcharsmemo.htm

http://www.lebans.com/limittextinput.htm

baixei os exemplos e vou testar em casa, ja que no trabalho é dificil instalar...retorno com o resultado. e como sempre obrigado pelas dicas. a proposito la em cima vc havia dito de uma rotina para o textalign = 4 que completa com espaços a ultima linha. não consegui nada como exemplo e não abortei essa possibilidade ainda. só não encontrei nada para orientar essa alteração

Resolveu ?

Ainda não consegui um resultado satisfatório. Com o código acima consigo, em algumas caixas de texto a formatação perfeita. Já em outras ele dá mensagens de estouro ou pára a instrução no meio do código tendo que acionar o ctrl+break para interromper. Estou ainda estudando um exemplo do grande amigo WSenna que sugeriu uma ferramenta Justify.... que também mostrou bons resultados. Entre esses dois caminhos vou trilhar uma solução e retorno aqui para o forum. Obrigado pelo cuidado de perguntar sobre o andamento.