怪问题：在 Access 里新建了报表后，VB/VC 可不可以直接调用并打印？

Question

我想不行，如果行的话估计还要装access

Answer 1

to herdsboy(游牧部落):
   与环境有关系？

Answer 2

'先引用access objOption ExplicitPrivate Sub Form_Load()
    Call PrintReport(App.Path & "\test.mdb", "test")
End SubPrivate Function PrintReport(ByVal MdbFileName As String, ByVal ReportName As String) As Boolean
On Error GoTo ErrTrap    Dim localReport As New Access.Application
    
    Call localReport.OpenCurrentDatabase(MdbFileName)
    Call localReport.DoCmd.OpenReport(ReportName, acViewDesign)
    Call localReport.DoCmd.Close
    
    Call localReport.DoCmd.Maximize
    localReport.Visible = True    Call localReport.DoCmd.OpenReport(ReportName, acViewNormal)
    Call localReport.Quit
    Set localReport = Nothing
    
    PrintReport = True
    GoTo Fun_exit
ErrTrap:
    PrintReport = False
    Call localReport.Quit
    Set localReport = Nothing
Fun_exit:
End Function

Answer 3

Option Explicit
Private Sub Form_Load()
    Call PrintReport(App.Path & "\test.mdb", "test")
End SubPrivate Function PrintReport(ByVal MdbFileName As String, ByVal ReportName As String) As Boolean
On Error GoTo ErrTrap    Dim localReport As New Access.Application
    
    Call localReport.OpenCurrentDatabase(MdbFileName)
    Call localReport.DoCmd.OpenReport(ReportName, acViewNormal)
    Call localReport.Quit
    Set localReport = Nothing
    
    PrintReport = True
    GoTo Fun_exit
ErrTrap:
    PrintReport = False
    Call localReport.Quit
    Set localReport = Nothing
Fun_exit:
End Function

Answer 4

谢谢 gpo2002(苦思冥想) ！有没有 VC 的源码啊？