Boa Noite.
preciso de um codigo para imprimir a tabela do suformulario atual.
agradeço pela ajuda desdde já
preciso de um codigo para imprimir a tabela do suformulario atual.
agradeço pela ajuda desdde já
Private Sub bt_imprimir_Click()
On Error Resume Next
Dim strDocName As String
Dim strFilter As String
strDocName = "NomedoDocumentoASerImpresso"
strFilter = "ChavePrimaria= Forms!NomeFormularioPrincipal!NomeSubFormulario.Form!ChavePrimaria"
DoCmd.OpenReport strDocName, acViewNormal, , strFilter
End Sub