pra impimir no access é isso vei ,
Dim ac As Access.Application
Set ac = New Access.Application
ac.OpenCurrentDatabase ("c: esteSeuBancoAccess.mdb")
' Para visualizar a impressão descomente a linha abaixo
' ac.Visible = True
' e substitua o valor acViewNormal por acViewPreview na linha de código abaixo para visualizar a impressora
ac.DoCmd.OpenReport "Catalog", acViewNormal
' e exclua a linha a baixo para visualizar a impressão
ac.CloseCurrentDatabase
End Sub
