如何用VB语句在所编的程序中实现打印ACCESS报表的功能？

Question

'安装ACCESS
'引用Microsoft Access Object LibraryOption Explicit'------------------------------------------------------------
' PrintReport'
'------------------------------------------------------------
Function PrintReport()
On Error GoTo PrrintReportErr    DoCmd.OpenReport "ReportName", acNormal, "", ""
PrintReport_Exit:
    Exit FunctionPrintReportErr:
    MsgBox Error$
    Resume PrintReport_ExitEnd Function

Answer 1

Option Explicit'------------------------------------------------------------
' PrintReport'
'------------------------------------------------------------
Function PrintReport()
On Error GoTo PrrintReportErr
    dim vbAccess as new Access.Application
    vbAccess.OpenCurrentDatabase mdbFileName
    vbAccess.DoCmd.OpenReport "ReportName", acNormal, "", ""PrintReport_Exit:
    Exit FunctionPrintReportErr:
    MsgBox Error$
    Resume PrintReport_ExitEnd Function

Answer 2

'安装ACCESS
'引用Microsoft Access Object Library Option Explicit'------------------------------------------------------------
' PrintReport'
'------------------------------------------------------------
Function PrintReport()
On Error GoTo PrrintReportErr
    dim vbAccess as new Access.Application     '新建一个VBA的类
    vbAccess.OpenCurrentDatabase mdbFileName   '打开mdbFileName数据库
    vbAccess.DoCmd.OpenReport "ReportName", acNormal, "", "" '调用ACCESS的DoCmd方法打印ReportName报表PrintReport_Exit:
    Exit FunctionPrintReportErr:
    MsgBox Error$
    Resume PrintReport_ExitEnd Function

Answer 3

'引用Microsoft Access Object Library Option Explicit
Function PrintReport()
On Error GoTo PrrintReportErr
    dim vbAccess as new Access.Application     '新建一个VBA的类
    vbAccess.OpenCurrentDatabase mdbFileName   '打开mdbFileName数据库
    vbAccess.DoCmd.OpenReport "ReportName", acNormal, "", "" '调用ACCESS的DoCmd方法打印ReportName报表PrintReport_Exit:
    Exit FunctionPrintReportErr:
    MsgBox Error$
    Resume PrintReport_ExitEnd Function