IMPRIMIR RELATORIO DO ACCESS UM ARQUIVO UNICO

SOUZANF 12/09/2015 20:15:55
#451336

Ola pessoal eu preciso imprimir um registro que esta na tela do sistema ou seja se eu executar o sguinte comando pra imprimir o registro que foi trazido para tela ele imprime todoo banco de dados e nao o registro que esta na tela

Dim caminho As String
Dim objAccess As Access.Application
Set objAccess = New Access.Application
caminho = App.Path & [Ô]\Cadastro.mdb[Ô]
With objAccess
.Visible = False
.opencurrentdatabase filepath:=caminho
.DoCmd.OpenReport [Ô]ImpressaoOs[Ô], acViewNormal
End With
Set objAccess = Nothing

Eu preciso imprimir apenas o registro que o ciente buscou tipo Registro:00045