[Resolvido]Botão para impressão de relatório

Boa galera expert.
No meu projeto, existem alguns botões para impressão de relatórios, porém não estou conseguindo fazer funcionar.
Quero que, ao clicar no botão do formulário, abra o formulário desejado com os dados do registro atual do form. Ao abrir o relatório, aparece a mensagem "Deseja imprimir?" e ao clicar em ok ocorre a impressão da frente da folha e logo após aparece outra mensagem "Vire a página para a impressão do verso e clique em OK!" e clicando em OK imprime o verso. Deu pra entender?
Fiz esse código para um dos botões de impressão de relatório (sem o código para as mensagens), mas não acontece nada.
Segue:

Private Sub cmdMatricula_Click()

On Error GoTo Err_cmdMatricula_Click

DoCmd.OpenReport "rel_MatFrente", acViewReport, "", "", acNormal

Exit_cmdMatricula_Click:
Exit Sub

Err_cmdMatricula_Click:
MsgBox Err.Description
Resume Exit_cmdMatricula_Click

End Sub


Alguem pode me ajudar?

Abraços.

Boa tarde.
Na verdade este código somente abre o relatório.
Dá para fazer isto sim, mas você precisa disponibilizar o seu BD pra gente dar uma olhada.
Afinal de contas teremos que criar vários eventos de código e precisamos dos nomes de form, report, campo, etc.
Abraço.

Opa, desculpe a falha.
Segue.
PS: Esse código é do Botão Ficha Matrícula do formulário Alunos

Vou arrumar aqui pra você.
Só um minuto.

Qualé o report de impressão do verso?
O que vai imprimir no verso?

Bem como eu não sabia qual o report você ia imprimir no verso, coloquei como exemplo o "rel_Dobras", depois vá no código e altere para o que você quiser.

Quanto ao seu "rel_MatFrente", acho que deveria ajustar ele, pois aqui está saindo com 3 vias, a 1º em branco, a 2º com os dados da ficha e a terceira em branco.

Espero que ajude.
Abraço

Desde já agradeço pela força man.
Mas acho que expliquei errado o que queria.
Quando clico no botão para impressão, gostaria que abrisse o relatório para visualização da impressão e depois a mensagem de "Deseja imprimir" e depois da impressão, a mensagem do verso. É isso que eu quero.
Mais uma coisa, não imprimiu a frente aqui, só o de dobras, que seria o verso no caso.
Gostei do seu exemplo.
Espero ter sido claro agora.
Grato mais uma vez pela ajuda.

Opa, blz. Dei umas mexidas aqui e realmente ta imprimindo uma página extra. Não sei como consertar isso. Fiz o relatório do Verso e acontece a mesma coisa.
Além disso, quando aparece a mensagem "Deseja Imprimir..." se clico em não, aparece a mensagem "Impressão Cancelada", porém, imprime o verso automaticamente.
Percebi que na visualização de impressão, aparecem 2 páginas em cada relatório e não sei como apagar as segundas.
Sabe como?
Abraços.
PS:. Atualizei o BD anexo.

Cara olha só existem coisa que são mais difíceis de entender do que explicar.

1 - Se você clica no botão para imprimir a ficha de cliente, é obvio que quer imprimir, e acho que não é necessário visualizar o conteúdo.

2 - Para visualizar o relatório será necessário abrir o banco normal, sem janela popUp, etc. Por isso esta opção de imprimir direto.

3 - Acertei a ficha para impressão em uma única folha. Mas o rel_Verso você terá de refazer pra poder sair em uma única folha pois os detalhes estão como imagem.

Outra coisa, evite colar imagens como fez nos relatórios, pois sobrecarrega bastante o sistema, procure fazer os relatórios baseado nas ferramentas de design disponíveis, ficará bem mais fácil pra todos ajudarem.

Estou enviando as alterações, qualquer coisa posta ai.
Abraço.

Valeu pelas dicas man...Aprendi muito com elas e já estou em fase de término do Projeto.
Estava dando um erro quando aparecia a msg "Deseja imprimir a ficha..." quando clicava no "Não" ela imprimia o verso mesmo assim.
Corrigi o erro assim:

Private Sub cmdMatricula_Click()

Dim imprime, NOME As String
On Error GoTo 1

If IsNull(Me![txtNOME]) Then
MsgBox "Não foi escolhido um Aluno !", vbInformation, "Atenção!"
Me![cmdPesquisar].SetFocus

Else
NOME = Me![txtNOME]
imprime = MsgBox("Confirma impressão da Ficha Nº: " & Format(txtRM, "000") & Chr(10) + Chr(13) & txtNOME, vbQuestion + vbYesNo, "Imprimir")
Select Case imprime
Case vbYes
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.OpenReport "rel_MatFrente", acViewNormal
MsgBox "Vire a página para a impressão do verso e clique em OK!", vbInformation, "Informando"
DoCmd.OpenReport "rel_Verso", acViewNormal

Case vbNo
DoCmd.CancelEvent
MsgBox "Impressão Cancelada !", vbInformation, "Informando..."
End Select
End If
1:

Exit Sub


End Sub

Agora estou adaptando o código para os outros botões e depois farei os testes finais para deixar o exemplo no repositório para quem quiser usar.
Grato por toda ajuda de todos os que me ajudaram em todos os tópicos.
Aparecendo novas dúvidas, retornarei para que me auxiliem de novo e ajudarei nas dúvidas de outros que estão iniciando como eu.
Abraços.

O fórum agradece o retorno.