[Resolvido]Mudar código para abrir Caixa de Diálogo da Impressora

Bom dia, pessoal.
Gostaria de mudar o código abaixo para quê, ao invés de enviar diretamente para a impressora Padrão ele abra a Caixa de Diálogo da Impressora. Alguém sabe me ajudar a fazer isso com esse código?

----------------------
Private Sub Btao_ImprimirFamiliasCadastr_Click()

If MsgBox("Confirma a impressão?", vbYesNo, "Atenção") = vbYes Then
DoCmd.OpenReport "Rlt_TodasFamiliasMedicamentosEmUso", acViewNormal, , , acHidden

If Err = 2501 Then 'usando
Err.Clear
End If
DoCmd.Close acReport, "Rlt_TodasFamiliasMedicamentosEmUso"
End If
End Sub

--------------------------
Obrigado.

olá Walter, bom dia!
Uma sugestão, seria visualizar o relatório antes de imprimir. Assim seria possível abrir o diálogo de impressão do windows para o relatório selecionado. Mas para isso não poderá estar invisível/oculto.

Minha sugestão é definir o relatório como PopUp (Sim) e modificar seu código para após abrir o relatório, minimizar ela (para o usuário o ver, assim com você já oculta).

O Código fica assim:

Código:

Private Sub Comando0_Click()
    If MsgBox("Confirma a impressão?", vbYesNo, "Atenção") = vbYes Then
        On Error Resume Next
   
        ' Abro o relatório em modo de pré visualização
        DoCmd.OpenReport "Rlt_TodasFamiliasMedicamentosEmUso", acViewPreview
        'Minimizo para manter a seleção do objeto e manter oculto ao usuário
        DoCmd.Minimize
   
        If Err.Number = 2501 Then 'usando
            Err.Clear
        Else
            ' Abro a caixa de diálogo de impressão do windows
            DoCmd.RunCommand acCmdPrint
        End If
       
        DoCmd.Close acReport, "Rlt_TodasFamiliasMedicamentosEmUso"
    End If
End Sub

Não esqueça de definir o relário como popup.

Perfeito! Funcionou que é uma beleza! Somente tirei a linha Dcmd.Minimize, que estava dando errado, mas ficou do jeitinho que eu queria.
Muito obrigado, mais uma vez, amigo.
Um abraço.

Que ótimo que deu certo! Gratos pelo retorno!