Generating an Access Report from within Excel

[popper]

Hi there,

Can anyone tell me how to cause a Microsoft Access report to be printed at the press of a button in Excel?

Would love to know.

With thanks

 

[Remou]

Something on these lines:

Sub PrintReport()
    ' Initialize string to database path.
    strDB = _
        "C:\Docs\LTD.mdb"
    ' Create new instance of Microsoft Access.
    Set appAccess = CreateObject("Access.Application")
    ' Open database in Microsoft Access window.
    appAccess.OpenCurrentDatabase strDB
    ' Open report.
    appAccess.DoCmd.OpenReport "rptReport"
    ' Pick one of these lines:
    ' appAccess.Visible = True
    appAccess.Quit
End Sub

http://lessthandot.com

 

[popper]

Thank you very much. I will give this a try.