Olá Galera!!!

Gostaria de saber como faço para definir o tamanho de uma linha e sua quebra tudo isso via código com object printer...

Exemplo: tenho que escrever um valor em extenso mas o campo onde vou imprimir é delimitado. R$ 35.000,55 ficaria assim (***TRINTA E CINCO MIL REAIS E CINQUENTA E CINCO CENTAVOS***)

Supondo que o campo onde tenho que imprimir não dê ele então faz uma quebra de linha e inicia na segunda linha....Entenderam.

Como posso fazer isso?

Obrigado desde já

Maha

'Chama sua função de extenso e joga a string para a variável

slValorExtenso = Trim$(Extenso(ilSaldo))
'Preenche o resto da string com asteríscos até a 205 caractres

slValorExtenso = slValorExtenso & String(205 - Len(slValorExtenso), "*") & "*"
'Divide a variável em tres linhas...

Print #igFileNumber, Tab(0); Format(ilSaldo, sgStrF2) & ", " & Left(slValorExtenso, 35)
Print #igFileNumber, Tab(0); Mid(slValorExtenso, 36, 85)
Print #igFileNumber, Tab(0); Right(slValorExtenso, 85)

 

Desta forma vc poderá variar o tamanho de cada string mudando as linhas acima