no meu caso com rave reports, estou usando o seguinte:
with Sender as TBaseReport do
begin
PrintRight('Pag: ' + Macro(midCurrentPage) + '/' + Macro
(midTotalPages), PageWidth - 1.0 ) ;
end;
e precisa definir no uses do formulario as bibliotecas RpDefine,
RpBase, RpSystem, Rprave
certo??
--- Em delphi-br@yahoogrupos.com.br, "Eduardo" <[EMAIL PROTECTED]> escreveu
> Rogério, estou usando paradox com delphi 5.
>
> O Artur já esta montando uma rotina pra mim, mas se vc também puder
me
> ajudar eu agradeço.
>
> Obrigado.
>
>
> -----Mensagem original-----
> De: Rogério R. Fernandes [mailto:[EMAIL PROTECTED]
> Enviada em: quarta-feira, 29 de dezembro de 2004 12:53
> Para: delphi-br@yahoogrupos.com.br
> Assunto: Re: [delphi-br] Número total de páginas (essa ta realmente
> complicada)
>
>
> Se você precisa deste número somente no final do relatório, basta
criar um
> contador que seria incrementado no momento do envio do comando para
quebra
> de página.
> Se você precisa deste número antes da última página do relatório,
pergunto
> qual o seu banco?
> (dá para fazer um cálculo das páginas, usando um group by - se for
algum
> banco com acesso Sql)
>
> Abraço,
>
> Rogério Ricardo Fernandes Desenvolvimento
> ----- Original Message -----
> From: "Eduardo" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Wednesday, December 29, 2004 8:47 AM
> Subject: [delphi-br] Número total de páginas (essa ta realmente
complicada)
>
>
>
> Galera, montei um relatório onde eu preciso colocar o número total
de
> páginas do mesmo. O problema é que o relatório é uma espécie de
>
> catálogo telefônico, isto é, a quebra de página é realizada a cada
nova
> inicial de um nome, por exemplo:
>
> Alberto 5511-2255
> Aline 5263-6363
>
>
>
> Bruno 6565-6565
>
>
>
> Carlos 3265-9887
>
>
> O que eu preciso fazer é um contador para o número de páginas que o
> relatório vai ter: uma inicial pode aparecer bastante, então o(s)
>
> nome(s) que começam com essa letra (inicial) vai sair em várias
páginas por
> causa da quantidade de nomes que tem. Depois, se a inicial
>
> mudar, ocorre uma quebra de página.
>
> Como fazer esse contador, lembrando que eu estou usando a impressão
direta
> na LPT!, isto é, matricial.....
>
>
> Eduardo de Almeida Silva
> - [EMAIL PROTECTED] -
> - [EMAIL PROTECTED] -
> ---
> Outgoing mail is certified Virus Free.
> Checked by AVG anti-virus system (http://www.grisoft.com).
> Version: 6.0.817 / Virus Database: 555 - Release Date: 15/12/2004
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
>
>
> Yahoo! Grupos, um serviço oferecido por:
> PUBLICIDADE
>
>
>
>
> --------------------------------------------------------------------
--------
> ----
> Links do Yahoo! Grupos
>
> a.. Para visitar o site do seu grupo na web, acesse:
> http://br.groups.yahoo.com/group/delphi-br/
>
> b.. Para sair deste grupo, envie um e-mail para:
> [EMAIL PROTECTED]
>
> c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos
do Serviço
> do Yahoo!.
>
>
> ---
> Outgoing mail is certified Virus Free.
> Checked by AVG anti-virus system (http://www.grisoft.com).
> Version: 6.0.817 / Virus Database: 555 - Release Date: 15/12/2004
>
>
> [As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
