[Resolvido]colocar sub total nas paginas do relatorio

Boa tarde todos
Como fazer um sub total em cada pagina do relatorio
tentei fazer com a select e não deu certo

ex:
um relatio com 10 paginas

1 pagina
... 10,00
... 20,00
sub total 30,00
2 pagina
... 50,00
... 30,00
sub toal 80,00
....
no final do relatorio
TOTAL 110,00

grato a quem possa ajudar
Helder

No Inicio do relatorio, no VB apos "Option Compare Database" delare a Variavel com o codigo a baixo:

Option Compare Database
Dim F As Currency


Agora no evento ao Imprimir do seu relatório, da guia detalhe coloque:
Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
F = F + Me.valor 'Valor é o campo que armazena o valor a ser somado
End Sub


Agora, na guia Rodapé da Pagina coloque:

Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer)
Me.totalPagina = F 'Aplico o valor ao campo TotalPagina e em seguida eu Zero ele para o Proximo calculo
F = 0
End Sub

Dessa forma terá um total por pagina.

boa tarde Fabio Paes
muito bacana e simples
valeu pela dica
agradeço
Muito obrigado
Helder

Faltou o Total geral. Pode colocar pelo Wizard ou fazer da mesma forma como fiz com o valor da pagina. Se nao conseguir avisa.

é realmente ele diz aqui erro de compilaçao
metodo ou membro de dados não encontrado
não deu certo ..
estou fazendo isso dentro do grupo ...
ele pode ser feito dentro de um grupo no rodapé da pagina?
......................
Option Compare Database
Dim Deb As Currency
Dim totalpagina As Currency

Private Sub CabeçalhoDoGrupo2_Print(Cancel As Integer, PrintCount As Integer)
Deb = Deb + Me.somaresto
End Sub

Private Sub RodapéDoGrupo3_Print(Cancel As Integer, PrintCount As Integer)
Me.totalpagina = Deb
Deb = 0

End Sub

agradeço
Helder

Em qual linha acusa o Erro?

Pois ele nao encontrou um dos campos referenciados....

Veja que tem no Rodapé da página, um campo com esse nome: Me.totalpagina

Ola Bom dia Fabio
Desculpe a demora
estive fora e agora estou voltando ao projeto

o erro
A expressão ao imprimir que você inseriu como definição de propriedade de evento gerou o seguinte erro;
o menbro já existe em um modulo de objeto do qual esse modulo deriva

Private Sub RodapéDaPágina_Print(Cancel As Integer, PrintCount As Integer)
Me.totalPagina = F  - AQUI DA O ERRO
F = 0
End Sub

Meu amigo, tem algo duplicado no código amigo... Pode ser a variável F