[Resolvido]Visualizar e Imprimir formulário atual

Olá, olha eu de novo. Tenho um Frm cadastro de cliente, nele eu tenho uma combo de busca de cliente pelo nome, ao achar o cliente eu queria que tivesse um botão que me mostrasse o mesmo frm ou um relatório em modo de visualização e imprimisse através de uma confirmação da impressão. Deu pra entender?

grata

Para abrir o relatório filtrando o registro escolhido, você pode passar o código do registro na abertura do relatório, mais ou menos assim:

DoCmd.OpenReport "NomeDoRelatório", acViewPreview, , "Código=" & Me.NomeDaCombo.Column(0)

Estou supondo que a combo tenha o código do registro na primeira coluna. Se for o caso, tente adaptar.

Para pedir confirmação da impressão, pode colocar algo assim no evento "Ao carregar" do relatório:

If MsgBox("Imprimir esse registro?", vbQuestion + vbYesNo, "Imprimir") = vbYes Then
DoCmd.Printout
End If

Acho q funcionou. Resoolvi não abrir o rel para pré-visuailização. Como os dados são os q estão no frm fica desnecessário. coloquei aquele seu codigo para confirmar antes de imprimir e se sim já imprime direto o relatorio. Vou postar pra alguém que por ventura venha ter o mesmo problema. Mais uma vez, muito obrigada!!!

Private Sub bt_imprimir_cadastro_Click()
On Error Resume Next
Dim strDocName As String
Dim strFilter As String
If MsgBox("Imprimir esse registro?", vbQuestion + vbYesNo, "Imprimir") = vbYes Then
strDocName = "RelCRecepNomeCliente"
strFilter = "CodigoCliente=Forms!FrmRecepNomeCLiente!CodigoCliente"
DoCmd.OpenReport strDocName, acViewNormal, , strFilter
End If