《用access打印带相片的证件.docx》由会员分享，可在线阅读，更多相关《用access打印带相片的证件.docx（5页珍藏版）》请在三一文库上搜索。
1、用access打印带相片的证件最近笔者接到一个任务,要将学生的证书信息及相片打印到3+1技能证书模板上,并且还要传到网上供用人单位查询.原始数据分两局部,一局部是包含学生姓名、身份证号、认证工程、证书编号等信息的Excel表；另一局部是按认证工程分类、以学生姓名为名的相片,图片大小均为90X 120像素,图片格式均为JPG.考虑到时间上的紧迫性,还有用户操作的易用性,以后上网查询所需数据库的兼容性, 因此决定选用Access来开发.Access具有强大的窗体创立、报表打印、VBA编程功能,足以胜任大局部小型数据库应用系统的开发.创立数据库和表1 .翻开Microsoft Office Acce
2、ss ,创立一个空数据库,与相片的分类目录放在同一 个文件夹下.2 .使用文件一获取外部数据一导入功能将Excel表直接导入Access中,保存为证 书信息表.创立证书信息报表1 .创立证书信息报表,先插入一个 图像控件,设置其图片属性为证书模板图片, 设置其大小为证书模板的大小,设置其可见性为否,这样有利于证书信息的排版,且不会打印出来；再依次插入要打印的字段列表,设置好字体和字号；最后再插入一个图像控件,放置于打印相片的地方,设置其大小为相片的大小,设置其名称为 “stuimg.2 .依次点击菜单栏 视图一代码命令,进入 VBA代码编写窗口,编写如下代码： Private Sub 主体_F
3、ormat(Cancel As Integer, FormatCount As Integer)Dim imgpath As String依据应用程序路径、认证工程名称、姓名得到相片路径imgpath = Application.CurrentProject.Path+ 认证工程.text + 姓名.Text+.jpg判断照片是否存在,如果不存在那么显示一张空白的图片.If Dir(imgpath)Then imgpathApplication.CurrentProject.Pathnoimg.bmpStuimg.PictureimgpathEnd Sub创立打印预览面板窗体1.创立打印预览面
4、板,依次放置一个用于查询的文本框,并命名为“inputname;两个命令按钮 预览“、关闭.2.依次点击菜单栏 视图一代码命令,进入VBA代码编写窗口,编写如下代码:Public stuname As String定义全局变量 stunameSub PrintReports(PrintModeAs Integer),创立打印预览子程序Dim strWhereCategoryAs StringIf stuname EmptyThenstrWhereCategory姓名=+ stuname + ,DoCmd.OpenReport证书彳言息, PrintMode, , strWhereCategor
5、yDoCmd.Close acForm,打印预览面板End SubPrivate Sub inputname_Change(),将文本框输入的字符赋给全局变量sname ,用于给打印预览限定条件stuname = inputname.TextEnd SubPrivate Sub 预览 _Click(),预览报表,本过程使用自定义的PrintReports 子程序PrintReports acPreviewEnd SubPrivate Sub 关闭 _Click(),关闭窗体DoCmd.Close创立主切换面板窗体1 .创立 主切换面板,放置三个命令按钮打印学生证书、返回数据窗口 、退出管理系统
6、.2 .依次点击菜单栏视图一代码命令,进入 VBA代码编写窗口,编写如下代码：Private Sub打印学生证书_Click()Dim strFormName As StringstrFormName=打印预览面板翻开打印预览面板DoCmd.OpenForm strFormName, , , , , acDialog End SubPrivate Sub 关闭当前窗口 _Click()Dim strDocName As StringstrDocName =证书彳言息关闭主切换面板窗体.DoCmd.Close设置焦点到数据库窗口；选择证书信息表.DoCmd.SelectObject acTable, strDocName, TrueEnd SubPrivate Sub 退出治理系统_Click()退出 Microsoft Access.DoCmd.QuitEnd Sub设置启动时显示主切换面板依次点击菜单栏 工具一启动命令,翻开 启动设置窗口,