用Access打印带相片证件
2005-10-31 12:40:15 来源:WEB开发网2. 依次点击菜单栏“视图→代码”命令,进入VBA代码编写窗口,编写如下代码:
Public stuname As String '定义全局变量stuname
Sub PrintReports(PrintMode As Integer)
' 创建打印预览子程序
Dim strWhereCategory As String
If stuname <> Empty Then
strWhereCategory = "姓名= '" + stuname + "'"
End If
DoCmd.OpenReport "证书信息", PrintMode, , strWhereCategory
DoCmd.Close acForm, "打印预览面板"
End Sub
Private Sub inputname_Change()
' 将文本框输入的字符赋给全局变量sname,用于给打印预览限定条件
stuname = inputname.Text
End Sub
Private Sub 预览_Click()
' 预览报表,本过程使用自定义的 PrintReports 子程序
PrintReports acPreview
End Sub
Private Sub 关闭_Click()
' 关闭窗体
DoCmd.Close
End Sub
创建主切换面板窗体
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下调试通过。
- ››Access数据库安全策略之ASP式
- ››Accessibility.updateProperties ,Accessibility...
- ››打印机共享 让Windows7和Mac OS X共享打印机
- ››Access denied for user...
- ››Access denied for user: root@dbhost (Using pas...
- ››access 的页怎么用
- ››Access 2000中的查询分析器
- ››access编程打开其他数据库中的窗体
- ››Access报表打印如何自动分页
- ››access解决组合框无法满足大量数据的选择问题
- ››Access中用Jet SQL语句删除表关系
- ››Access 数据转换问题
更多精彩
赞助商链接