[delphi-br] Sobre impressão direta LPT1 (usando o writeln).
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 NotaEmi. ValorDuplicata 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 -
Re: [delphi-br] Sobre impressão direta LPT1 (usando o writeln).
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 NotaEmi. ValorDuplicata 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 -