在ACCESS里面建立一个报表。设置好打印机页边距
把ACCESS放在VB工程文件目录下,作为相对路径文件,然后在VB工程引用Microsoft ACCESS类
代码如下:
Dim MSAccess As Access.Application '//定义一个ACCESS程序
Private Sub Command1_Click()
Set MSAccess = New Access.Application '// 实例化程序
MSAccess.OpenCurrentDatabase (App.Path & "\AA.mdb") '//打开ACCESS
MSAccess.DoCmd.OpenReport "ACCESS内部报表", acViewNormal '//运行里面的报表
MSAccess.CloseCurrentDatabase '//关闭数据,便于下次打开清理缓层
Set MSAccess = Nothing '//释放内存
End Sub
这样下去,点一下Command1就会弹出个ACCESS窗口,点下打开就打印ACCESS报表了,如果不让他弹出提示窗口,那就把ACCESS安全级别先设置成最低,下次一点按钮就直接闪一下打印了
建个桌面应用程序,把数据绑定gridview上,然后打印出来.打印代码自己搜网上很多.