Alan
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 26/06/2009 10:02 hs
Treze, posso enviar para seu email?
Dai eu te mando o form de impressão inteiro.
POde ser?
|
|
|
|
|
|
Alan
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 26/06/2009 10:12 hs
Treze, vou enviar para o teu email, dai eu mando o form de impressão.
Após posto aqui o resultado.
Waleu.
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 26/06/2009 10:28 hs
|
|
|
|
J.Carlos
|
PRESIDENTE PRUDENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 26/06/2009 10:32 hs
dim wStr as string 'Aqui conterá o seu campo dim wStr2 as string 'Aqui terá o campo quebrado com vbcrlf for I = 1 to len(wstr) if mid(wstr,i,1) = ";" then wstr2 = wsrt2 & ";" & vbcrlf else wstr2 = wstr2 & mid(wstr,i,1) endif next 'pronto, é só dar print wstr2, embora não sei se no printer vai causar o efeito de crlf. Eu não uso printer, uso o crystal report. |
|
|
|
Alan
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 26/06/2009 10:58 hs
J.Carlos,
Cara não deu certo, ao menos os testes que fiz não surtiram modificações.
Waleu.
|
|
|
|
J.Carlos
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 26/06/2009 14:15 hs
Então tente imprimir a cada vez que encontrar um ";" assim: dim wStr as string 'Aqui conterá o seu campo dim wStr2 as string 'Aqui terá o campo quebrado com vbcrlf for I = 1 to len(wstr) wstr2 = wstr2 & mid(wstr,i,1) if mid(wstr,i,1) = ";" then printer.print wStr2 wStr2 = "" endif next |
|
|
|
