Impressao de campo MEMO em Matriciais

Question

Al� pessoal!Algu�m tem uma id�ia de como imprimir um campo memo, tabulando a largura m�xima de colulas para n�o sair da folha EM IMPRESSORAS MATRICIAIS? Por exemplo, preciso imprimir um campo memo que...

Microbios · Answer

ningu�m pode dar uma dicazinha sequer?  :cry:...

Joaoshi · Answer

Colega, voc� esta utilizando alguma ferramenta para gerar o relat�rio?...

Microbios · Answer

Colega Joaoshi! Estou usando o VDO, que por sinal � �TIMO E RECOMENDADO... o problema est� em limitar a impress�o do Campo memo em determinado n�meros de colunas.. por exemplo.. iniciar na coluna 20 e terminar na coluna 60.. imprimindo nessa faixa at� acabar o texto do memo.

Obrigado por responder.

Microbios · Answer

Incluive amigo JoaoShi e colegas do f�rum... Tenho uma fun��o que faz isso muito bem em �CLIPPER�, queria convert�-la para delphi mas n�o consegui ainda. Tou muito leigo em Delphi pra chegar a esse ponto. Se algu�m quiser arriscar, acho que solucionaria o problema de muita gente que procura pela solu��o do mesmo problema. L� vai ela:

Function JustTexto(cTextJust,nTamCol) cTextEdit := �� aTextResult := {} For S := 1 To Len( cTextJust ) cTextEdit += AllTrim( cTextJust[S] ) + Space( 01 ) Next s nTotLinhas := MLCount( cTextEdit , nTamCol ) For T := 1 To nTotLinhas aAdd( aTextResult , MemoLine( cTextEdit , nTamCol , t ) ) nCodAsc := 170 aTextResult[T] := AllTrim( aTextResult[T] ) aTextResult[T] := StrTran( aTextResult[T] , � � , Chr( nCodAsc ) ) While .T. If Len( AllTrim( aTextResult[T] ) ) == nTamCol .Or. T == nTotLinhas For r := 170 To nCodAsc aTextResult[T] := StrTran( aTextResult[t] , Chr( r ) , � � ) Next r Exit EndIf nPosSpaco := At( Chr( nCodAsc ) , aTextResult[t] ) If nPosSpaco > 0 aTextResult[T] := SubStr( aTextResult[T] , 1 , nPosSpaco - 1 ) + Space( 02 ) + ; SubStr( aTextResult[T] , nPosSpaco + 1 , ( nTamCol - ( nPosSpaco - 1 ) ) ) aTextResult[T] := AllTrim( aTextResult[T] ) aTextResult[T] := StrTran( aTextResult[T] , Chr( nCodAsc ) , Chr( nCodAsc + 1 ) ) Else nPosSpaco := At( Space( 02 ) , aTextResult[T] ) aTextResult[T] := SubStr( aTextResult[T] , 1 , nPosSpaco - 1 ) + Space( 03 ) + ; SubStr( aTextResult[T] , nPosSpaco + 2 , ( nTamCol - ( nPosSpaco - 2 ) ) ) EndIf nCodAsc += 1 EndDo Next T Return aTextResult

nela voc� passa o texto e a quantidade de colunas a JUSTIFICAR e funciona perfeitamente. Em Delphi n�o sei como fazer!!! :cry:

Joaoshi · Answer

Colega, lamento n�o utilizo o VDO, talvez algum colega do forum possa auxiliar....

Joaoshi · Answer

N�o tinha visto o seu post anterior (no mesmo hor�rio que o meu), talvez:

1. se tentar montar um memo com uma fonte aproximada ou igual a da impressora com a largura que voc� precisa
2. jogar o texto no memo
3. imprimir cada linha do memo at� o final.

Parece meio gambiarra, mas pode ser uma saida, com certeza deve haver uma forma melhor de resolver.

Microbios · Answer

Pode ser tentado, mas se algu�m conseguisse converter essa fun��ozinha a� � que ia ficar SHOW de BOLA... ela justifica LEGAL mesmo.
Sempre uso-a em programas clipper.

Obrigado pela id�ia, mas vamos ver se algu�m consegue...

:P

Microbios · Answer

Ningu����mmmm pra tentar resolver?????? Ningu���m...  :D  :D  Ahhhh... cad� a turma de professores que esse f�rum tem, que sempre deu showwwww?????  :D  Brincadeira, gente.. mas, ningu�m pra dar uma forcinha?...

F�rum Impressao de campo MEMO em Matriciais #344596