在VB中用代码打印ACCESS报表

Dim objACC As Object
Set objACC = CreateObject("Aclearcase/" target="_blank" >ccess.Application")
objACC.OpenCurrentDatabase "c:db.mdb"
objACC.DoCmd.OpenReport "表报一"
objACC.Quit
Set objACC = Nothing

原文转自：http://www.ltesting.net