Launching an Access report via VB or VC++ app

[shaughton]

Question: Can Microsoft Access be launched from a VB or VC++ app just to generate a report?

Background: Users who are not Access uses want an easier way to generate predefined reports to view and print out.
The database is a large patient database where doctors, nurses, techs view, create and generate their own reports using Access.
The less computer savy users want a small app that lists a set of predefined reports, asks the appropriate questions based on that report, then launches Access to allow the user to view and print that report. Note: Microsoft Access sold with product.

Thanks for listening

 

[Tranman]

shaughton,
Just stumbled across your post. Here is a function I wrote to print Access reports from VB. Hope it helps.

Tranman

Private Sub SendPrintCmd()
Dim appAcc As Access.Application
Dim dblTimer As Double
Set appAcc = CreateObject("Access.Application&quot

appAcc.OpenCurrentDatabase "C:\PoolLeague\PoolLeague.mdb", False
appAcc.SetOption "Confirm Record Changes", False
appAcc.SetOption "Confirm Document Deletions", False
appAcc.SetOption "Confirm Action Queries", False
appAcc.Visible = False
'MsgBox "Printing PLAYSHEET.", vbInformation + vbOKOnly, "PRINTING PLAYSHEET"

'A little time delay for the printer
dblTimer = 0
dblTimer = Timer
Do Until Timer >= dblTimer + 5
Loop

appAcc.DoCmd.OpenReport "rptPS"
appAcc.SetOption "Confirm Record Changes", True
appAcc.SetOption "Confirm Document Deletions", True
appAcc.SetOption "Confirm Action Queries", True

appAcc.CloseCurrentDatabase
appAcc.Quit

End Sub