Has intentado esto ?
Código vb.net:
Ver originaloAccess.DoCmd.OpenReport(ReportName:="Dntas_ta", _
View:=Access.AcView.acViewPreview)
'Print a report named Sales:
oAccess.DoCmd.OpenReport(ReportName:="Dntas_ta", _
View:=Access.AcView.acViewNormal)
oAccess.CloseCurrentDatabase()