Impressão na tela x impressora

Reply · Mensagem por **Reply** » 11 Nov 2005 17:33

Amigos,

Tenho uma rotina que escreve o relatório na tela, que funciona bem, mas ao imprimir esse mesmo arquivo, ele sai com um simbolo de Retorno de Linha.
Como faço para tirar esse caracter e fazer cada registro sair em uma linha direitinho..

FOR i:=1 TO 19

If CodPF = " "
Exit
Endif

@ Linha+1,00 SAY codpf+"*"+nompf+"*"+Str(qtdpf)+"*"+Str(PrePf)+"*"+Str(totpf)

NEXT

Abraços...

Mensagem por **Dudu_XBase** » 12 Nov 2005 11:53

Poste sua Rotina de impressão.

Reply · Mensagem por **Reply** » 13 Nov 2005 22:59

É só colocar o Set devi to Print no inicio e Screen no final da rotina acima e definir as variáveis.

Tem idéia do que pode estar ocorrendo?

Mensagem por **gvc** » 16 Nov 2005 09:45

Vc deve estar con sujeira nas variáveis.
Tente acrescentar partes, compile e verifique os resultados:

@ Linha+1,00 SAY "*"

@ Linha+1,00 SAY codpf+"*"

@ Linha+1,00 SAY codpf+"*"+nompf

...

e assim verificar se alguma variável esta com o CHR(13) e/ou CHR(10).

Se a rotina esta pulando 2 linhas, veja se vc não esta incrementando o valor de LINHA em outro local. Imprima o valor de LINHA no final de cada linha para saber seu valor correto.

Vc tb pode usar:
@ Linha++,00 SAY "*"