Imprimir report e fechar formulário no mesmo evento.

Olá amigos.
Estou com o aplicativo quase terminado.
Porém é necessário imprimir tickets.

O problema é que ao fazê-lo, está dando um erro.
Quanto o ticket gera uma NFSe, dá erro ao salvar o form e ao fechar este form.
Quando só gera o ticket dá erro ao fechar o form.

A mesagem é "Não é possível fechar o form durante um evento de formuláro".

Ressalto que o ticket saí normalmente.

Se eu fecho o form no [x] após a impressão do ticket fala que dá erro ao salvar o registro, mas salva.

To meio perdido.

O código é:

Código:


DoCmd.save acForm, "movimentoSaída"
DoCmd.OpenReport "movimentoSaídaNFSe",  acViewNormal
DoCmd.close acForm, "movimentoSaída"


O primeiro save, rola blz e a impressão do report, que é o ticket, também. O close é que dá pau.

Idéias?

Fala ae blz?

Veja se assim funciona:

Código:



DoCmd.OpenReport "movimentoSaídaNFSe",  acViewNormal
Docmd.Close acForm,"movimentoSaída",acSaveYes


Falow,

Opa obrigado pelo retorno. Infelizmente deu o mesmo erro.
Parece que mesmo após imprimir o relatório a tarefa de relatorio ainda está rodando.

Será que tem como por exemplo dar uma pausa de 1, 1.5 segundos antes de fechar o form, ou algum comando para ver se o relatorio já fechou ?

Abraço!

OK!

Você só vai descobrir se acompanhar a execução do seu código!

Faça isso e vai matar o problema!

Desculpe por perguntar, mas como faço isso? Nunca precisei.

Ok.

Vamos ver se consigo te ajudar!

Abra o formulário no modo design e nas propriedades do botão onde tem o código vá no [...] do evento ao clicar.

O código que você criou está lá correto?

Você irá colocar o um ponto de interrupção no seu código para acompanhar a execução do mesmo veja:

Private Sub cmdExporta_Click()
Call ExportaParaExcel <===== você seleciona essa linha com o mouse e no menu vá em Depurar=>Ativar/desativar pontos de interrupção
ou simplesmente clique em "F9"
End Sub

A linha ficará vermelha.


Você tb pode escrever a palavra STOP antes po ponto que você quer verificar:

Private Sub cmdExporta_Click()
STOP
Call ExportaParaExcel
End Sub

Salve o formulário e feche, e em seguinda execute o botão.

Perceba que qdo você executar a janela do vba será aberta justamente no local onde você colocou o ponto de interrupção. Para acompanhar a execução do código basta você ir clicando a tecla "F8"


Espero que você tenha entendido.

Bom estudo!

Ok, vou tentar aqui! Valeu!