Oi Robson,
Eu sei, mas mesmo assim ... não imprime adequadamente, veja o code:
(...)
Query1.open;
Query1.First; // posiciona no primeiro registro
While not Query1.Eof do
Begin
// Declara variáveis
mcodcli := Query1.FieldByName('codcli').Value;
//imprime o registro atual
Printer.Canvas.TextOut(0,350,IntToStr(mcodcli));
Query1.Next // Lê o próximo registro
End;
(...)
Até +
--- Em delphi-br@yahoogrupos.com.br, Robson <[EMAIL PROTECTED]> escreveu
>
> Amigo, me parece q é apenas questão de ponteiros, na linha
anterior coloque para query ir para o primeiro registro, query.first
>
>
> Kaputz, Robson
> Skype: kaputz_gri
>
> "Não pude escolher muitas coisas que nasceram comigo, mas posso
escolher meu amigo...
> ...E nessa busca empenho a minha própria alma, pois com uma
Amizade Verdadeira, a vida se torna mais simples, mais rica e mais
bela..." Charlie Chaplin .
>
>
>
> ----- Mensagem original ----
> De: gilsonlongo <[EMAIL PROTECTED]>
> Para: delphi-br@yahoogrupos.com.br
> Enviadas: Sexta-feira, 14 de Setembro de 2007 14:34:37
> Assunto: [delphi-br] Relatório método Tprinter
>
> Boa tarde,
>
> Em função de ter estar desenvolvendo rotina para impressão de nota
> fiscal "na unha" como se diz, estou testando os método tprinter,
mas
> estou com uma certa dificuldade de trabalhar na linha de itens da
> nota/pedido onde tem o comando While ..., pois somente imprime o
> último registro.
>
> No Query - dbgrid funciona ok, no entanto na rotina de
impressão ...
> não.
>
> Será que algum amigo "manja" de rotinas com arquivos e pode me dar
> orientada, um exemplo ou um link.
>
> Obrigado.
>
> gilsonlongo
>
>
>
>
>
> Flickr agora em português. Você clica, todo mundo vê.
> http://www.flickr.com.br/
>
> [As partes desta mensagem que não continham texto foram removidas]
>
