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? ...
Query1.First;
While not Query1.Eof do
Begin
Printer.Canvas.TextOut(0, 100, Query1.FieldByName('ref').AsString + ' -- ' + Query1.FieldByName('descricao').AsString);
Query1.Next;
end; Grato,