The only way is if you automate MS Access (that means MS Access must be installed on user's machine).
Here is a quick sample - make changes as necessary.
Code:
Public Sub RunAccessReport(strDB As String, strReport As String, _
Optional strFilter As String = "", _
Optional strWhere As String = "")
'===================================================================
Dim AccessDB As Object
Set AccessDB = CreateObject("Access.Application")
AccessDB.OpenCurrentDatabase strDB
AccessDB.DoCmd.OpenReport strReport, acViewPreview, strFilter, strWhere
AccessDB.DoCmd.PrintOut acPrintAll
'''AccessDB.DoCmd.PrintOut acPages, 1, 1
'''AccessDB.Visible = True
Set AccessDB = Nothing
End Sub
'sample usage:
RunAccessReport App.Path & "\mydb.mdb", "Report1"