OleAutoPrint

'PrintReport MyDBPath, MyReportName, acPreview, MyCriteria


Sub PrintReport(ByVal DBPath As String, ByVal ReportName _
As String
Optional OpenMode As Integer, Optional Filter As String, _
Optional
Criteria As String)
Dim appAccess As Object
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase (DBPath)
'********************************************************

'Access constants for OpenMode are

'acNormal - Print (default)

'acPreview - Print Preview

'acDesign - Design Edit Mode

'********************************************************

appAccess.DoCmd.OpenReport ReportName, OpenMode, _
FilterName
Criteria
'********************************************************

'if open mode is Preview then don't quit Access this can

'also be deleted if you do not want Access to quit after

'printing a report

'********************************************************

If OpenMode <> acPreview Then
appAccess.Quit
End If
Set appAccess = Nothing
End Sub