[Resolvido]Relatório Ficando em Branco Ao Gerar PDF

Olá Senhores,
Após a geração do relatório, na tela ele exibe as informações corretamente.
Porém ao exportar para PDF, ou Imprimir, aparece um pop-up me pedindo informações do critério da busca utilizada para gerar o relatório.

Esse critério é utilizado para filtrar o período do relatório:
Entre [Formulários]![frmAbreRelatórios]![dtInicial] E [Formulários]![frmAbreRelatórios]![dtFinal]

O interessante é que o relatório aparece normal na tela. Esse erro é só ao solicitar Impressão ou Exportação em PDF.
Qual o problema?


Normal na Visualização:



Erro ao exportar:

Boa Tarde

No formulário "frmAbreRelatório" no botão que gera o relatório coloque:

Me.visible = false

E ao fechar o relatório (se pretender abrir o formulário "frmAbreRelatório") coloquei:

Forms!frmAbreRelatório.visible=true


Eu uso isso há algum tem esta dando certo.

Apenas um pitaco...

O mesmo está pedindo a data inicial para gerar esse relatório ! Provavelmente esse critério deve estar em alguma consulta como filtro.

Vailson provavelmente você está fechando o formulário ao clicar no botão que gera o relatório. Se for isso, a dica da Mensagem nº2 resolve o teu problema.


Abraços,

Uilson Brasil, vc está certo. Eu sou iniciante e dei esse mole.
Para deixar mais "bonito", coloquei uma macro fechando o formulário ao abrir o relatório
Quando retirei a macro e deixei o formulário aberto, funcionou.

Só a título de aprendizagem, esse é o código que está no botão:

Private Sub cmdAbrirRel_Click()
If IsNull(Me.dtInicial) Or IsNull(Me.dtFinal) Then
  MsgBox "Um dos campos do período está em branco." + vbCrLf + "Favor digitar.", vbInformation, "Período"
  Exit Sub
End If
DoCmd.OpenReport "rptRelatório", acViewPreview
End Sub

Tentei inserir o comando me.visible = false e não deu certo. Em que lugar devo inserir ele? Sei que não pode depois do End Sub

Vou clicar em resolvido, mas se puder me responda isso aí.

Aqui temos um erro...vamos corrigir ele...

Private Sub cmdAbrirRel_Click()
If IsNull(Me.dtInicial) Or IsNull(Me.dtFinal) Then
MsgBox "Um dos campos do período está em branco." + vbCrLf + "Favor digitar.", vbInformation, "Período"
Exit Sub
else
DoCmd.OpenReport "rptRelatório", acViewPreview
end if
End Sub

Vc pode explicar a diferença Silvio?

Vamos lá....


Private Sub cmdAbrirRel_Click()
If IsNull(Me.dtInicial) Or IsNull(Me.dtFinal) Then -> se estiver nulo a minha data inicial ou é nulo a minha final então
MsgBox "Um dos campos do período está em branco." + vbCrLf + "Favor digitar.", vbInformation, "Período" --> aparece a mensagem
Exit Sub --> saia da rotina, aqui está um provável erro sem um else, mas somente testando
End If --> fim do comando se
DoCmd.OpenReport "rptRelatório", acViewPreview abra o relatorio tal, no modo "previu" !!!
End Sub


Explicando: faltou um Else ( senão ) na linha de comando.

Outra coisa que poderia ajudar, é disponibilizar o projeto para ajudarmos você, pois estamos no campo das especulações e achismo.

Claro, olha ele aí:
Como vc viu acima, eu encontrei o erro. Eu tinha colocado a macro pra fechar o formulário.

Agora eu estou com uma dúvida em consulta
https://www.maximoaccess.com/t22871-totalizar-resultados-iguais-em-uma-consulta

A versão atual é essa:
http://www.4shared.com/file/kk9B0Cv5ba/Sistema16CenopV43.html
Não a da dúvida.
Se puder me ajudar...