[Resolvido]Botão imprimir subformulário

Olá pessoal!
Mais uma peço ajuda de vocês

Tenho um subformulário que exibe alguns relatórios através de uma instrução Select Case de um grupo de opções, estou tentando criar um botão "imprimir" no formulário, que imprima o relatório selecionado no subformulário, como deve ser essa instrução.

desde já agradeço

Bom dia!

   Tenta assim, ao clicar do botão Imprimir.

Private Sub imprimir_Click()

On Error GoTo Imprimir_Err

   DoCmd.OpenReport "nome do seu relatório", acViewNormal, "", ""
   
Imprimir_Exit:
    Exit Sub

Imprimir_Err:
   MsgBox Error$
   Resume Imprimir_Exit
   
End Sub

Olá Anslu
Obrigado por responder
Não funcionou!

Eu estava tentando com "PrintOut" e algumas variações

Private Sub Comando0_Click()

   DoCmd.PrintOut

End Sub

Mas assim, imprime o formulário todo, e no caso preciso que imprima somente o subformulário que está dentro do formulário.

Olá! continuo precisando da orientação e ajuda de vocês
Anexei o programa para quem possa me ajudar
tentarei me expressar melhor
No formulário "Demonstrativos", existe um subformulário que exibe alguns relatórios selecionado através de uma instrução Select Case de um grupo de opções, criei um botão "imprimir" no formulário, para que imprima o relatório selecionado e exibido no subformulário, seria possível?
como deve ser essa instrução?

Obs* as datas devem ser sempre o primeiro dia de um mês e o último do mês anterior, ex: 01/01/2024 e 31/12/2023, e clicar em abrir.
Só as opções de 'relatórios" ainda estão disponíveis ok

Olá!

Vim partilhar a solução que encontrei para meu problema, não saiu muito a meu contento, pois acredito que exista uma forma mais correta de se fazer.

No Botão Imprimir do formulário principal (Demonstrativos), coloquei a seguinte instrução:
Private Sub Imprimir_Click()

Forms!Demonstrativos!sfm.SetFocus
Forms!Demonstrativos!sfm!btnPrintRel.SetFocus

End Sub


Nos Relatórios que são exibidos no subformulário através de uma instrução select case, criei um botão com a seguinte instrução:
Private Sub btnPrintRel_GotFocus()

DoCmd.OpenReport "NomeDoRelatorio", acViewPreview
DoCmd.RunCommand acCmdPrint
DoCmd.Close acReport, "NomeDoRelatorio"