RobDog888
Jan 11th, 2009, 11:45 PM
To print an Access Report from another program outside of Access VBA...
Access 2000 - 2007 & Visual Basic 6
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
Access 2000 - 2007 & Visual Basic 6
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