[Resolvido]Fechar Relatório após a impressão por código

Bom dia novamente como hoje estou de folga resolvi dar um pega no programa e sanar algumas lacunas e para isso conto com ajuda de vcs amigos do Fórum.
É o seguinte: Gostaria de após esse comando...

If MsgBox(" Deseja imprimir a venda?", vbYesNo + vbDefaultButton1 + vbInformation, "Aviso!") = vbYes Then
DoCmd.OpenReport "RCupom", acViewPreview, , , , txtCodigoVenda
DoCmd.PrintOut

O Rcupom se fechasse sozinho.

Desde já agradeço e fiquem com Deus.

Amigo ele ficaria assim, faça o teste.

att;

Ney


If MsgBox(" Deseja imprimir a venda?", vbYesNo + vbDefaultButton1 + vbInformation, "Aviso!") = vbYes Then
DoCmd.OpenReport "RCupom", acViewPreview, , , , txtCodigoVenda
DoCmd.PrintOut
DoCmd.Close acForm, "RCupom"

Deu certo não

Quer fechar o relatorio ou o form ?

Só o Relatório JPaulo pois, ao concluir a venda mostra o relatório exibindo o recibo e já encaminhando para a impressão. Mas, não sei por cargas d'agua que o danado mesmo com Pop-up não é exibido e assim me dando a opção de fecha-lo manualmente e com isso o form venda fica inacessível, por não achar a solução de o porque ele não aparece pensei em um código que após ele abrir se feche sozinho pois o mesmo não é visível...
Grato.

Assim;

Código:


Private Sub Command16_Click()
On Error GoTo 1
'abre o relatorio
       DoCmd.OpenReport "RCupom", acViewReport, , , , Me.txtCodigoVenda
'pergunta se quer imprimir
   If MsgBox(" Deseja imprimir a venda?", vbYesNo + vbDefaultButton1 + vbInformation, "Aviso!") = vbYes Then
'se sim, imprime e fecha
        DoCmd.PrintOut
        DoCmd.Close acReport, "RCupom", acSaveYes
        Else
'se não quer imprimir, fecha apenas a visualização
        DoCmd.Close acReport, "RCupom", acSaveYes
        Exit Sub
    End If
1:
 
    If Err.Number = 2501 Then
        MsgBox "Impressão cancelada.....", vbOKOnly
        Exit Sub
    End If
End Sub


JPaulo o código que vc me passou está correto! O problema é que eu coloquei para não exibir o access quando iniciasse a aplicação. Contudo testei em modo debug e o código que me passou funcionou corretamente agora vou ver se acho um jeito para não exibi-lo então até porque não é necessário que ele apareça.
Grato pelo seu tempo e que Deus os abençoe.

Obrigado pelo retorno o forum agradece.

Boa tarde.
quando não se tem registro no relatório peço pra não abrir , mais ele fecha o access todo.

Código:

Private Sub Report_NoData(Cancel As Integer)
    MsgBox "Não ha registro desse mês/ano", vbInformation, "Relatório"
    DoCmd.Close acReport, "serviçosRelatorio", acSaveYes
End Sub


Olá;

Com esse comando é impossivel isso acontecer, a não ser que você tenha outra instrução qualquer.

Boa tarde JPaulo.
ele faz ate backup.
no comando ao abrir

Código:

Private Sub Comando2_Click()
On Error GoTo Err_Rep

    DoCmd.OpenReport "serviçosRelatorio", acViewPreview

Exit_Rep:
    Exit Sub

Err_Rep:
    If Err.Number = 2501 Then
        Resume Exit_Rep
    Else
        MsgBox Err.Number & "-" & Err.Description, vbCritical
        Resume Exit_Rep
    End If
End Sub


se não tiver nenhum registro:

Código:

Private Sub Report_NoData(Cancel As Integer)
    MsgBox "Não ha registro desse mês/ano", vbInformation, "Relatório"
    DoCmd.Close acReport, "serviçosRelatorio", acSaveYes
End Sub

JPaulo , consegui aqui , nunca achei que esse pequeno código iria ser utilizado em reports.

Private Sub Report_NoData(Cancel As Integer)
   MsgBox "Não ha registro desse mês/ano", vbInformation, "Relatório"
    Cancel = True
End Sub
Obrigado pela atenção