M�todo Tprinter While ... imprime somente o �ltimo registro.

Question

Oi,Na linha de impress�o de itens (pedido), no code abaixo a rotina somente imprime o �ltimo registro do Query1. Pergunta: Como devo programar para imprimir todos os itens do pedido?CODE:  Query1.Firs...

Sremulador · Answer

Amigo o problema esta no espa�o de linha, pois voc� esta imprimirndo tudo na mesma linha, fiz apenas um exemplo, para voc� entender..., utilize o

Printer.BeginDoc;

Printer.EndDoc;

[b:e39c7ca936]Var[/b:e39c7ca936]
Espacolinha: Integer

Query1.First; 
While not Query1.Eof do 
Begin 
inc(Espacolinha, 50)

Printer.Canvas.TextOut(0, 30, 20+(Espacolinha * 50), Query1.FieldByName(�ref�).AsString + � -- � + Query1.FieldByName(�descricao�).AsString); 
Query1.Next; 
end;

var
I: integer;
begin
Printer.BeginDoc;
for I:= 0 to 30 do
    Printer.Canvas.TextOut(30, 20+(I * 50), �Teste de Impress�o�);


Printer.EndDoc;

F�rum M�todo Tprinter While ... imprime somente o �ltimo registro. #346112