Question

怎么通过vb单击Command按钮运行Access？

我的最终目的是实现表格打印。表格是采集数据的，当停止/完成采集后，vb上面就会显示所采集的“数据a”，“数据a”是以表格的形式显示的。
这时，需要把表格内容打印出来，好像可以用DataReport数据报表来处理，但是弄不懂那个，菜鸟汗颜~~~我打开Access，看见Access中可以实现打印，就想在vb中通过一个控制按钮Command打开“数据a”表格，继而再进行表格的打印。。。
但是不知道怎么实现这个办法，求指点迷津！拜谢！

Answer 1

我们一般都是输出到excel进行打印,不过要输出到Access意思也是一样的,下面代码可参考一下~
Option Explicit
Private Sub cmdExpOutPut_Click()
Dim objExcel As Excel.Application
Set objExcel = New Excel.Application

On Error Resume Next '此句声明非常重要，没有不能执行错误处理程序
If Err.Number = 0 Then '没有点击取消时则执行创建Excel文件(最外层条件：存储文件对话框没有点取消或者关闭按钮则执行)
objExcel.SheetsInNewWorkbook = 1 '建立新工作薄
objExcel.Workbooks.Add
objExcel.Sheets(1).Select
objExcel.Cells(1, 1) = "My Text"
objExcel.ActiveWorkbook.SaveAs (cdgShowOpen.FileName)
objExcel.Workbooks.Close
objExcel.Quit
End If

'点击取消时执行错误处理程序
If Err.Description = 32755 Then
Set objExcel = Nothing
If MsgBox("My Information。", vbYesNo + vbDefaultButton1 + vbInformation, "提示信息") = vbYes Then
'这里添加要处理的程序
Else
'这里添加要处理的程序
End If
End If

End Sub

Answer 2

可以通过CreateProcess等创建进程的函数来打开Access软件嘛