怎么用 Access 做一个 打印贴现凭证的 程序 或者用其他软件也可以

Question

高价求购高手交我制作或者制作好的软件，我还需要一个
编辑好的能打印协议的软件 有能力着我们加好友详谈

Answer 1

利用Automation技术创建一个Microsoft Access对象实例，可以直接从应用程序中运行报表，然后将其打印出来。
自动化（从前的OLE自动化）是部件对象模式（COM）的特征，它是一种工业标准技术，其应用程序可用来显露其对象为发展工具、宏语言和其他支持自动化的应用程序。例如，电子数据表应用程序包含工作表、图表、单元格或单元格范围等对象，一个Word文档包含文档、段落、句子、书签等对象。从VB应用程序中产生一个Microsoft Access对象实例，利用该对象的属性和方法，就可以通过Microsoft Access运行Microsoft Access报表。

（1）打开一个Access数据库，单击“报表”创建任意一款报表。
（2）在工程中声明对Microsoft Access实例的引用。选择“工程”/“引用”命令，打开“引用”对话框，在此选择Microsoft Access X.0 Object Library。

说明：X.0表示Microsoft Access的版本号，如果系统安装的是Access 2000，则版本号为9.0，如果系统安装的是Access 2003，则版本号为11.0。

（3）在“打印”按钮的Click事件过程中编写如下代码。
Private Sub Command1_Click()
Dim myaccess As Access.Application
Set myaccess = New Access.Application
Dim mystrdb As String
Dim myReportname As String
mystrdb = App.Path & "\books.mdb"
myReportname = "kc"
myaccess.OpenCurrentDatabase mystrdb
myaccess.DoCmd.OpenReport myReportname
MsgBox "单击“确定”按钮打印" & myReportname & "报表", , "打印Access报表"
myaccess.CloseCurrentDatabase
Set myaccess = Nothing
End Sub