Oi Pessoal eu to fazendo um programinha pra preecher cheque, quando eu coloco o valor do ch. ele escreve por extenso certinho, só que o cheque tem duas linhas de Número por extenso, eu gostaria de saber como fazer pra quando lotar uma text ele enviar o resto do número para a text de baixo.

 

Muito Obrigado

Bom vc pode tentar fazer o seguinte:

 

Verifique o tamanho da string que preenche  a primeira linha (vc pode usar a função Len ou outra qualquer)

Compare o tamnho da string impressa com o tamanho da string completa

Subtraia um do outro

Avance uma linha

Imprima o resot da string

 

Não tenho idéia do código que vc utilizou para imprimir o cheque. Acredito que tenha utilizado o comando PRINT. Se foi isso, acho que a dica vai funcionar, é só adaptar.

Caso não funcione, me diga que vereir outra forma.

 

T+

Rinaldo

simples utilize o código abaixo

 

Dim ValorExtenso As String
Printer.Cls
Printer.ScaleMode = vbCharacters 'Define como caracter
ValorExtenso = "OITO CENTOS E OITENTA E NOVE MIL NOVECENTOS E NOVENTA E NOVE REAIS E OITENTA E DOIS CENTAVOS"
Dim Linha1, Linha2 As String
Linha1 = Mid(ValorExtenso, 0, 30)
Linha1 = Mid(ValorExtenso, 31, Len(ValorExtenso))

Valeu Pessoal