用Access轻松打印带相片的证件

1. 创建“主切换面板”，放置三个命令按钮“打印学生证书”、“返回数据窗口”、“退出管理系统”。

2. 依次点击菜单栏“视图→代码”命令，进入VBA代码编写窗口，编写如下代码：

　　Private Sub 打印学生证书_Click()
　　 Dim strFormName As String
　　 strFormName="打印预览面板"
　　 ' 打开打印预览面板
　　 DoCmd.OpenForm strFormName, , , , , acDialog
　　 End Sub
　　 Private Sub 关闭当前窗口_Click()
　　 Dim strDocName As String
　　 strDocName = "证书信息"
　　 ' 关闭“主切换面板”窗体。
　　 DoCmd.Close
　　 ' 设置焦点到数据库窗口；选择“证书信息”表。
　　 DoCmd.SelectObject acTable, strDocName, True
　　 End Sub
　　 Private Sub 退出管理系统_Click()
　　 ' 退出 Microsoft Access.
　　 DoCmd.Quit
　　 End Sub

设置启动时显示主切换面板

依次点击菜单栏“工具→启动”命令，打开“启动”设置窗口，在“显示窗体→页”选项下选择主切换面板，并取消“显示数据库窗口”，这样在下一次打开此Access数据库时，就会自动显示主切换面板窗体。读者也可根据自己的需要决定是否取消菜单栏和快捷菜单栏，如果取消以后又要显示它们，可以在打开Access数据库时按住Shift键。

至此，技能证书打印系统开发完毕。本系统在Windows 2000 Server SP4、Microsoft Office Access 2003下调试通过。