InícioBoa noite
Como colocar no fundo da página de um relatório a palavra "Continua" se o relatório tiver mais que 1 página.
Obrigado
Como colocar no fundo da página de um relatório a palavra "Continua" se o relatório tiver mais que 1 página.
Obrigado
2 participantes
[Resolvido]Colocar um "Continua..." no final do relatórios
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
.................................................................................
*** Só sei que nada sei ***
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
- Mensagem nº2
![[Resolvido]Colocar um "Continua..." no final do relatórios Empty](https://2img.net/i/empty.gif)
Re: [Resolvido]Colocar um "Continua..." no final do relatórios
criquio 26/5/2011, 22:27
Olá Assis! Já tentou assim?
If Me.Pages > 1 Then
Me.txtNPag = "Continua"
Else
Me.txtNPag = ""
End If
If Me.Pages > 1 Then
Me.txtNPag = "Continua"
Else
Me.txtNPag = ""
End If
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
Olá Criquio
Em que acontecimento ?
Obrigado
Em que acontecimento ?
Obrigado
.................................................................................
*** Só sei que nada sei ***
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
- Mensagem nº4
Re: [Resolvido]Colocar um "Continua..." no final do relatórios
criquio 26/5/2011, 22:34
Evento "Ao carregar" talvez.
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
Olá Criquio
Está dificil, pois só consegui por o "Continua" no rodapé da página no acontecimento "ao imprimir"
mas na última página diz "Continua" e não devia.
Está dificil, pois só consegui por o "Continua" no rodapé da página no acontecimento "ao imprimir"
mas na última página diz "Continua" e não devia.
.................................................................................
*** Só sei que nada sei ***
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
- Mensagem nº6
Re: [Resolvido]Colocar um "Continua..." no final do relatórios
criquio 26/5/2011, 23:41
Talvez dê certo assim:
If Me.Pages > 1 And Me.Page < Me.Pages Then
Me.txtNPag = "Continua"
Else
Me.txtNPag = ""
End If
If Me.Pages > 1 And Me.Page < Me.Pages Then
Me.txtNPag = "Continua"
Else
Me.txtNPag = ""
End If
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
Criquio
Deu certo
Obrigado
Deu certo
Obrigado
.................................................................................
*** Só sei que nada sei ***
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
- Mensagem nº8
Re: [Resolvido]Colocar um "Continua..." no final do relatórios
criquio 27/5/2011, 01:07
Ótimo que deu certo 
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
Conteúdo patrocinado
Tópicos semelhantes
» [Resolvido]Colocar a mesma imagem em varios relatorios
» Colocar texto no final do PDF exportado por VBA via Excel.
» Colocar cursor no final de um texto em um combobox
» [Resolvido]Formulário Padrão para inserir Data Inicial e Data Final para Todos os Relatórios por Período ao clicar no botão Imprimir
» [Resolvido]Form para filtrar vários relatórios com data inicial e final
» Colocar texto no final do PDF exportado por VBA via Excel.
» Colocar cursor no final de um texto em um combobox
» [Resolvido]Formulário Padrão para inserir Data Inicial e Data Final para Todos os Relatórios por Período ao clicar no botão Imprimir
» [Resolvido]Form para filtrar vários relatórios com data inicial e final