Resolved
Figured it out myself. Used this code here...
This is for print preview on the report. Remember not to close the connection if you are doing print preview
Dim oAccess As Access.Application
oAccess = New Access.ApplicationClass
oAccess.OpenCurrentDatabase(filepath:="c:\VB Examples\ATM V2\bin\BANK.mdb", Exclusive:=True)
oAccess.Visible = True
oAccess.DoCmd.OpenReport(ReportName:="Mini_Statement", View:=Access.AcView.acViewPreview, WhereCondition:="[account_no]= " & ca.account_no)
To print the actual report do this...
oAccess.Visible = False
oAccess.DoCmd.OpenReport(ReportName:="Mini_Statement", View:=Access.AcView.acViewNormal, WhereCondition:="[account_no]=" & ca.account_no)
oAccess.DoCmd.Close()
