[Resolvido]Relatório com subtotal por pagina

Boa tarde,

Estou tentando criar um relatório de estoque o qual possui um campo chamado "total". Preciso somar este campo por página no relatório, ou seja, cada pagina existirá um subtotal. Já tentei varias formas mais não conseguir. Alguem tem alguma sugestão ou exemplo.

Grato desde já,

Opa Darlan, eu faria da seguinte forma

no VBA do seu relatório após a linha de Option Compare Database vc coloca

Código:

Dim intCount as Integer

depois na ação "Ao Imprimir" do Detalhe do Relatório você coloca

Código:

intCount = intCount + 1

na ação "Na Página" você coloca

Código:

intCount = 0

e para finalizar no rodapé da sua página, você insere uma Caixa de Texto e a renomeia (Ex. txtContar), na Ação Ao Imprimir do rodapé da pagina voce coloca

Código:

txtContar=intCount

Obrigado Live pela ajuda. Conforme você orientou-me eu corrigir, entretanto ainda não deu certo. Estou postando o banco aqui. Bem se houver disponibilidade de sua parte, gostaria de um auxilio. Nele consta o código que você indicou.

Código:


Option Compare Database
Dim intCount As Integer


Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
intCount = intCount + 1
End Sub

Private Sub RodapeDaPagina_Format(Cancel As Integer, FormatCount As Integer)
intCount = txttotal
txtSubtotal = intCount
End Sub



Grato,

Olá a todos,
Normalmente costumo fazer da seguinte forma, criando uma caixa de texto nova com a origem de dados igual ao campo pretendido e no separador dados coloco soma parcial. Normalmente este campo fica escondido na linha de detalhe.



Na caixa de texto do rodapé é só dizer que é igual ao campo escondido.

Link do teste: https://meocloud.pt/link/d9bf6509-9238-4cfc-929b-6dcbef460015/inventario.zip/

Abraço

Obrigado ahteixeira, conseguir resolver e aprender. A solução foi perfeita.