Campo em Impressora Matricial

Delphi

18/03/2003

Ola,

Pessoal da lista to com o maior problema,
To Imprimindo uma nota fiscal em impressora matricial
tá Condensando pulando as linhas corretas
mas no final da nota tem um campo de observação que é
do tipo Memo, o Campo sai no local serto mas quando
a observação tem mais de uma linha depois da diferença
nos campos da nota fiscal seguinte, alguem sabe como devo proceder
nesse caso.

estou tentando montar um contador mas não to conseguindo.
desde ja agradeço a atenção. :(

Wagner.


Wagnerps

Wagnerps

Curtidas 0

Respostas

Anonymous

Anonymous

18/03/2003

Tente fazer um contador e na hora de imprimir o campo faça:

for contador := 0 to DBMemo1.Lines.Count - 1 do
begin
WriteLn(Arquivo,DBMemo1.Line[contador].Text;
end;


Vê se essa geringonça funciona, senão me avise.


T+

Segundo me amigo Aurélio a palavra ´serto´ está escrita incorretamente o ideal seria ´certo´.


GOSTEI 0
Wagnerps

Wagnerps

18/03/2003

Valeu pela ajuda,

Mas não to usando componentes memo
to lendo o campo no banco de dados e imprimindo direto.

eu precisa identificar o caracter da quebra de linha (#127) para
poder dar o salto correto para a proxima pagina.

Wagner
T+ :)


GOSTEI 0
E_gama

E_gama

18/03/2003

Crie um contador para armazenar quantas linhas seria necessario saltar desde a ultima linha impressa da nota (sem observacao), depois que imprimir a observacao, subtraia o numero de linhas impressas nela e salta o restante das linhas: Exemplo:
    Salto := 10;  // Saltar 10 linhas
    for I := 0 to (MemoObs.Lines.Count - 1) do
      begin
        WriteLn(Arquivo, MemoObs.Lines.Strings[i]); // Imprime um linha da observacao
        Dec(Salto);  Decremente o num. de linhas a saltar
      end;

    // Salto de linhas
    while Salto > 0 do
      begin
        WriteLn(Arquivo, ´´);
      end;



GOSTEI 0
Wagnerps

Wagnerps

18/03/2003

Valeu

Deu certo

Obrigado a todos pela ajuda.

Wagner :wink:


GOSTEI 0
POSTAR