Campo em Impressora Matricial
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.
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
Curtidas 0
Respostas
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´.
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
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+ :)
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
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
18/03/2003
Valeu
Deu certo
Obrigado a todos pela ajuda.
Wagner :wink:
Deu certo
Obrigado a todos pela ajuda.
Wagner :wink:
GOSTEI 0