vc a cada iteracao do loop está colocando um (seu TQuery).Next pra ir p/ o prox registro?
gilsonlongo escreveu: > Oi, > > Estou desenvolvendo uma rotina que realiza consulta nos dados e > imprime na impressora padrao do Windows, através de impressão direta > LPT1 (usando o writeln). > > Problema: imprime a primeira linha do query, repetindo-a a todos os > registros da consulta. > > Conforme abaixo ... > > --------------------------------------------------------------------- > RELATORIO: Movimento de Contas a Pagar > --------------------------------------------------------------------- > Fornecedor Nota Emi. Valor Duplicata Valor Vcto > Dpag. Vl. pago > --------------------------------------------------------------------- > 350-APTO 503 1/1/2007 3416 136 3416 28/2/2007 136 28/2/2007 136 > 350-APTO 503 1/1/2007 3416 136 3416 28/2/2007 136 28/2/2007 136 > 350-APTO 503 1/1/2007 3416 136 3416 28/2/2007 136 28/2/2007 136 > 350-APTO 503 1/1/2007 3416 136 3416 28/2/2007 136 28/2/2007 136 > 350-APTO 503 1/1/2007 3416 136 3416 28/2/2007 136 28/2/2007 136 > 350-APTO 503 1/1/2007 3416 136 3416 28/2/2007 136 28/2/2007 136 > 350-APTO 503 1/1/2007 3416 136 3416 28/2/2007 136 28/2/2007 136 > 350-APTO 503 1/1/2007 3416 136 3416 28/2/2007 136 28/2/2007 136 > 350-APTO 503 1/1/2007 3416 136 3416 28/2/2007 136 28/2/2007 136 > --------------------------------------------------------------------- > Total de registros: 9 > --------------------------------------------------------------------- > > > > >