[Resolvido]Impressão Baseado em Forms! Fechamento

Boa noite, galera, venho mais uma vez solicitar ajuda de todos. estou criando agora alguns relatórios e estou com uma dúvida. Vamos lá: Tenho diversos forms que usarei a mesma base que for colocada aqui. Vou falar de um em específico: Tenho um FORM_FUNCIONARIOS, que quando clico no ícone de impressão da ficha, abre um pequeno form ( cx de diálogo ), com um campo não acoplado que puxa o nome do funcionario em questão (O que estiver aberto no FORM_FUNCIONARIOS),para executar uma consulta que foi criada com critérios baseado neste nome da cx de diálogo. clico executa, imprime, tudo certinho. Funfa que é uma beleza. Retirei o exemplo do NorthWind (faturas) e adaptei ao meu projeto, e queria que ao imprimir o relatório o form (Cx de diálogo) fosse fechada, mas não estou conseguindo encaixar o comando no código: o que estou usando é este:

Private Sub ImprimeFichaFunc_Click()
' Este código foi criado baseado no modelo northwindOn Error GoTo Err_ImprimeFichaFunc_Click

Dim strNomeDoc As String

strNomeDoc = "rpt_Funcionarios"
' Imprime o relatório Funcionarios usando a consulta filtro de funcionarios
' para imprimir o funcionário da ficha atual baseado em caixa de diálogo confirmando operação. DoCmd.OpenReport strNomeDoc, acViewNormal, "qryFuncionarios"

Exit_ImprimeFichaFunc_Click:
Exit Sub

Err_ImprimeFichaFunc_Click:
' Se a ação foi cancelada pelo usuário, não exibe uma mensagem de erro. Const conErrDoCmdCancelled = 2501
If (Err = conErrDoCmdCancelled) Then
Resume Exit_ImprimeFichaFunc_Click
Else
MsgBox Err.Description
Resume Exit_ImprimeFichaFunc_Click
End If

End Sub

Onde entraria o comando no código acima que funfa esperto?
Desde já agradeço.

Nesse pequeno formulário (cx de diálogo) vá no intervalo do cronometro coloque 0 depois vá no Timer e escreva DoCmd.Close

No código abaixo coloque TimerInterval = 1000

Private Sub ImprimeFichaFunc_Click()
' Este código foi criado baseado no modelo northwindOn Error GoTo Err_ImprimeFichaFunc_Click

Dim strNomeDoc As String

strNomeDoc = "rpt_Funcionarios"
' Imprime o relatório Funcionarios usando a consulta filtro de funcionarios
' para imprimir o funcionário da ficha atual baseado em caixa de diálogo confirmando operação. DoCmd.OpenReport strNomeDoc, acViewNormal, "qryFuncionarios"
TimerInterval = 1000


Exit_ImprimeFichaFunc_Click:
Exit Sub

Err_ImprimeFichaFunc_Click:
' Se a ação foi cancelada pelo usuário, não exibe uma mensagem de erro. Const conErrDoCmdCancelled = 2501
If (Err = conErrDoCmdCancelled) Then
Resume Exit_ImprimeFichaFunc_Click
Else
MsgBox Err.Description
Resume Exit_ImprimeFichaFunc_Click
End If

End Sub

Entendendo:
Quando clicar ele aciona o relógio, que no Timer possui o comando DoCmd.Close que fecha o formulário cx de diálogo.

Bom dia! Dilsão. Fico agradecido pelo rápido retorno.Vou adaptar testar e respondo ou dou como resolvido o tópico. No momento estou sem accesso, tão logo o tenha respondo.
Desde já agradeço

Dilson, como diz o mestre não Funfou! Fiz todo o ptocedimento e o form (cx Diálogo) continua aberto na frente do FORM_FUNCIONARIOS.

Dilson, fiz uma modificação no intervalo, e alterei para outro valor diferente de zero, por exemplo 5000 (5seg), aí funciona. Mas se eu não clicar em cinco segundos ele feche automaticamente, forçando ao clique novamente para imprimir.
se conseguir me dar um dica para somente fechar ao imprimir fico agradecido.

Valeu.

Um pitaco apenas...

Teste por favor...

Private Sub ImprimeFichaFunc_Click()
' Este código foi criado baseado no modelo northwindOn Error GoTo Err_ImprimeFichaFunc_Click

Dim strNomeDoc As String

strNomeDoc = "rpt_Funcionarios"
' Imprime o relatório Funcionarios usando a consulta filtro de funcionarios
' para imprimir o funcionário da ficha atual baseado em caixa de diálogo confirmando operação.
DoCmd.OpenReport strNomeDoc, acViewNormal, "qryFuncionarios"

DoEvents

DoCmd.Close

' Se a ação foi cancelada pelo usuário, não exibe uma mensagem de erro. Const conErrDoCmdCancelled = 2501
If (Err = conErrDoCmdCancelled) Then
Resume Exit_ImprimeFichaFunc_Click
Else
MsgBox Err.Description
Resume Exit_ImprimeFichaFunc_Click
End If
End Sub

Amigão. deu erro de compilação. Rótulo não definido. na linha em destaque abaixo:
Só recaptulando: FORM_FUNCIONARIOS, contem um botão de impressão que após este me abre um FORM_DIALOGO_FUNC, neste form pequeno(DIALOGO) existe a pergunta. Deseja realmente imprimir a ficha do funcionário selecionado? Contém 2 botões (sim e não), neste mesmo FORM tem uma cx de texto não acoplada baseado em uma consulta com critérios que puxa a informação do nome do funcionario do FORM_FUNCIONÁRIO, afim de evitar cliques e digitação desnecessárias. Clicando em Sim, o comando que estava imprime baseado no nome que estava na cx texto, etc..., mas após imprimir queria que fechasse o FORM_DIALOGO_FUNC automaticamente. Obs: este form DIALOGO, foi criado somente para não haver impressão direta! solicita uma confirmação, porque existem usuarios curiosos, que só porque tem um icone legal quer clicar para ver o que é, gerando custo de papel, etc... E a camada de ozônio com mais queda de árvores para fazer papel. (rsrsrsr)

Private Sub ImprimeFichaFunc_Click()
' Este código foi criado baseado no modelo northwindOn Error GoTo Err_ImprimeFichaFunc_Click

Dim strNomeDoc As String

strNomeDoc = "rpt_Funcionarios"
' Imprime o relatório Funcionarios usando a consulta filtro de funcionarios
' para imprimir o funcionário da ficha atual baseado em caixa de diálogo confirmando operação.
DoCmd.OpenReport strNomeDoc, acViewNormal, "qryFuncionarios"

DoEvents

DoCmd.Close

' Se a ação foi cancelada pelo usuário, não exibe uma mensagem de erro. Const conErrDoCmdCancelled = 2501
If (Err = conErrDoCmdCancelled) Then
Resume Exit_ImprimeFichaFunc_Click
Else
MsgBox Err.Description
Resume Exit_ImprimeFichaFunc_Click
End If
End Sub

Logico rsrsrs o On Error GoTo Err_ImprimeFichaFunc_Click estava à frente do comentario.


Private Sub ImprimeFichaFunc_Click()
' Este código foi criado baseado no modelo northwind

On Error GoTo Err_ImprimeFichaFunc_Click

Dim strNomeDoc As String

strNomeDoc = "rpt_Funcionarios"
' Imprime o relatório Funcionarios usando a consulta filtro de funcionarios
' para imprimir o funcionário da ficha atual baseado em caixa de diálogo confirmando operação.
DoCmd.OpenReport strNomeDoc, acViewNormal, "qryFuncionarios"

DoEvents

DoCmd.Close

' Se a ação foi cancelada pelo usuário, não exibe uma mensagem de erro.
Const conErrDoCmdCancelled = 2501
If (Err = conErrDoCmdCancelled) Then
Resume Exit_ImprimeFichaFunc_Click
Else
MsgBox Err.Description
Resume Exit_ImprimeFichaFunc_Click
End If
End Sub

Amigo. Não estava não, foi somente na hora de colar no tópico. Após o erro de compilação ele marca a linha que descrevi acima e depois destaca o cabeçalho:
Private Sub ImprimeFichaFunc_Click().

Sinceramente. adoro fazer tabelas, forms, relacionamentos, mas quando chega ao relatórios fico meio desanimado, não sei explicar porque? Vou ver se arrumo alguma parceria para fazer esta parte!

Abraços

Copie este ultimo que está no meu post, não tem erros.

Logico, não copie o Private Sub ImprimeFichaFunc_Click()
nem o End Sub

Isso já pertence ao seu botão.

Alessandro, só uma dica.

DoEvents passa o controlo para o sistema operacional do seu HD.
O controlo é devolvido ao código, após o sistema operacional tenha concluído o processamento dos eventos.

Daí após a impressão o formulario tem de fechar.


Abraço e bom final de semana.

Tá tudo certinho amigo! será que não pode ser algum nome do form, botão, etc...

No código: Tem o nome do botão que clico para imprimir: ImprimeFichaFunc,
tem o nome do relatório que vai ser aberto: rpt_funcionarios, tem o nome da consulta que contém o critério: qryFuncionarios, mas não observo o nome do form que tem que ser fechado. Sei que DoCmd.close já faz no form esta função, mas não teria que colocar o nome do form Dialogo no código? Já queimei a mufa!!! e continua dando pau!!!
Mais uma vez agradeço a preocupação e desculpe o transtorno compartilhando este problema que parece ser simples , mas tá dificil, hein...(rsrs)

João Paulo, vou deixar a cabeça esfriar um pouco rever passo a passo e se novamento não conseguir vou deixar no intervalo do cronômetro, conforme Dilson colocou ou faço via macro Função:

Abrir Relatório
Nome:rpt_funcionarios
Imprimir
Fechar
DIALOGO_FUNC
Fechar
rpt_funcionarios

Desde já agradeço a todos...

Alessandro,
Fiz uma simulação aqui é funciona no perfeito.

Mas, vamos atraz da solução:

Veja como coloquei aqui

Dim stDocName As String

stDocName = "rpt_Funcionarios"
DoCmd.OpenReport stDocName, acPreview 'Visualiza na tela
DoCmd.OpenReport stDocName, acNormal 'Manda para a impressora
TimerInterval = 1000 'Inicia o cronometro que em 1 segundo fechará o formulário


Por que você direciona a visualização para rpt_Funcionarios e a impressão para qryFuncionarios?

Se ambos os caminhos levarem ao mesmo montante de dados, então da forma que fiz lá em cima é melhor, dê uma olhada.

Lembrando que terá que ir no form "cx de diálogo" colocar o intervalo do cronometro igual a zero e no Ao Timer digitar DoCmd.Close

A dica do DoEvents do João Paulo testei também, mas, ela está agindo só no report, é muito bom esse comando por sinal, que desconhecia, vou usá-lo bastante daqui para frente.

Testei e funcionou sem precisar do relógio, veja:

Dim stDocName As String

stDocName = "rpt_Funcionarios"
DoCmd.OpenReport stDocName, acPreview
DoCmd.OpenReport stDocName, acNormal
DoCmd.Close acForm, "CxDialogo" 'Fecha o formulário depois dos eventos

Dilsão! Aleluia! Aleluia! Já estava me incomodando este assunto, não conseguia raciocinar outra situação e andar com nosso projeto. Agradeço imensamente a vc e a João Paulo por se dedicarem e ter paciência a resolver situações como esta, que nos faz ainda acreditar que existem pessoas boas neste mundo.Se um dia puder ajudar em alguma coisa estarei sempre a disposição. Obs. Quando crescer quero ser igual a vcs.

Super grato e até a próxima.

Alessandro,

A satisfação também é minha por você ter conseguido.

O fórum agradece a tua resposta [Resolvido]!