用Access打印带相片的证件

1、用Access打印带相片的证件2007-01-09 10:12 阅读 (0 )评论 (0) 用 Access 打印带相片的证件最近笔者接到一个任务，要将学生的证书信息及相片打印到3+1 技能证书模板上，并且还要传到网上供用人单位查询。原始数据分两部分，一部分是包含学生姓名、身份证号、认证项目、证书编号等信息的Excel 表；另一部分是按认证项目分类、以学生姓名为名的相片，图片大小均为90 X 120像素，图片格式均为JPG。考虑到时间上的紧迫性，还有用户操作的易用性，以后上网查询所需数据库的兼容性，因此决定选用Access 来开发。Access 具有强大的窗体创建、报表打印、VBA 编程功能，

2、足以胜任大部分小型数据库应用系统的开发。创建数据库和表1 . 打开 Microsoft Office Access ，创建一个空数据库，与相片的分类目录放在同一个文 件夹下。2 .使用文件-获取外部数据-导入”功能将Excel表直接导入 Access中，保存为证书信 息 ” 表。创建证书信息报表1 . 创建 “证书信息”报表，先插入一个“图像 ” 控件，设置其图片属性为证书模板图片，设置其大小为证书模板的大小，设置其可见性为否，这样有利于证书信息的排版，且不会打印出来；再依次插入要打印的字段列表，设置好字体和字号；最后再插入一个“图像 ”控件， 放置于打印相片的地方，设置其大小为相片的大小，设

3、置其名称为“ stuimg ” 。2 .依次点击菜单栏视图-代码”命令，进入 VBA代码编写窗口，编写如下代码：Private Sub 主体 _Format(Cancel As Integer, FormatCount As Integer)Dim imgpath As String' 依据应用程序路径、认证项目名称、姓名得到相片路径imgpath = Application.CurrentProject.Path +"" +认证项目.text +""+ 姓名 .Text+".jpg"' 判断照片是否存在，如果不存在则

4、显示一张空白的图片。If Dir(imgpath) = "" Then imgpath = Application.CurrentProject.Path + "noi mg.bmpStuimg.Picture = imgpathEnd Sub创建打印预览面板窗体1. 创建 “ 打印预览面板” ，依次放置一个用于查询的文本框，并命名为“ inputname” ；两个命令按钮“预览 ”、 “关闭 ”。2.依次点击菜单栏 视图-代码”命令，进入 VBA代码编写窗口，编写如下代码：Public stuname As String ' 定义全局变量stunameS

5、ub PrintReports(PrintMode As Integer)' 创建打印预览子程序Dim strWhereCategory As StringIf stuname <> Empty ThenstrWhereCategory =姓名 = '" + stuname + "'"End IfDoCmd.OpenReport证书信息", PrintMode, , strWhereCategoryDoCmd.Close acForm,打印预览面板"End SubPrivate Sub inputname_C

6、hange()' 将文本框输入的字符赋给全局变量sname ，用于给打印预览限定条件stuname = inputname.TextEnd SubPrivate Sub 预览 _Click()' 预览报表，本过程使用自定义的PrintReports 子程序PrintReports acPreviewEnd SubPrivate Sub 关闭 _Click()' 关闭窗体DoCmd.CloseEnd Sub创建主切换面板窗体退出管理系1 . 创建“ 主切换面板” ，放置三个命令按钮“ 打印学生证书” 、 “ 返回数据窗口” 、统 ”。2 .依次点击菜单栏视图-代码”命令，

7、进入 VBA代码编写窗口，编写如下代码:Private Sub 打印学生证书_Click()Dim strFormName As StringstrFormName=" 打印预览面板"' 打开打印预览面板DoCmd.OpenForm strFormName, , , , , acDialogEnd SubPrivate Sub 关闭当前窗口_Click()Dim strDocName As StringstrDocName = " 证书信息"' 关闭“ 主切换面板” 窗体。DoCmd.Close' 设置焦点到数据库窗口；选择“ 证书信息” 表。DoCmd.SelectObject acTable, strDocName, TruePrivate Sub 退出管理系统_Click()退出 Microsoft Access.DoCmd.QuitEnd Sub设置启动时显示主切换面板依次点击菜单栏工具-启动”命令，打开 启动”设置窗口，在 显示窗体f页”选项下选择主切换面板，并取消“显示数据库窗口”，这样在下一次打开此Access 数据库时，就会自动显示主切换面板窗体。读者也可根据自己的需要决定是否取消菜单栏和快捷菜单