[FAQ's: OD] How do I print an Access Report?

To print an Access Report from another program outside of Access VBA...


Access 2000 - 2007 & Visual Basic 6

Code:

---

Option Explicit
'ADD REFERENCE TO MICROSOFT ACCESS XX.X OBJECT LIBRARY
'EXAMPLE WILL OPEN AN EXISTING DATABASE AND PRINT AN EXISTING REPORT
Private Sub Command1_Click()

    Dim oApp As Access.Application
   
    'CREATE APP INSTANCE
    Set oApp = CreateObject("Access.Application")
    oApp.Visible = False
    'OPEN THE DATABASE THAT CONTAINS THE DESIRED REPORT
    oApp.OpenCurrentDatabase "C:\RobDog888.mdb"
    'OPEN THE REPORT IN NORMAL VIEW WHCH IS PRINT
    oApp.DoCmd.OpenReport "Report1", acViewNormal
    'CLOSE THE DATABASE
    oApp.CloseCurrentDatabase
    'QUIT THE ACCESS APPLICATION AND EXIT
    oApp.Quit acQuitSaveNone
    Set oApp = Nothing
   
End Sub

---