用access轻松打印带相片的证件--

《用access轻松打印带相片的证件--》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

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

2、crosoftOfficeAccess，创建一个空数据库，与相片的分类目录放在同一个文件夹下。　　2.使用文件→获取外部数据→导入功能将Excel表直接导入Access中，保存为证书信息表。　　创建证书信息报表　　1.创建证书信息报表，先插入一个图像控件，设置其图片属性为证书模板图片，设置其大小为证书模板的大小，设置其可见性为否，这样有利于证书信息的排版，且不会打印出来；再依次插入要打印的字段列表，设置好字体和字号；最后再插入一个图像控件，放置于打印相片的地方，设置其大小为相片的大小，设置其名称为stuimg。　　2.依次点击菜单栏视图→代码

3、命令，进入VBA代码编写窗口，编写如下代码：　　　　PrivateSub主体_Format(CancelAsInteger,FormatCountAsInteger)　　DimimgpathAsString　　'依据应用程序路径、认证项目名称、姓名得到相片路径　　imgpath=Application.CurrentProject.Path++认证项目.text++姓名.Text+.jpg　　'判断照片是否存在，如果不存在则显示一张空白的图片。　　IfDir(imgpath)=Thenimgpath=Application.CurrentProject

4、.Path+oimg.bmp　　Stuimg.Picture=imgpath　　EndSub　　创建打印预览面板窗体　　1.创建打印预览面板，依次放置一个用于查询的文本框，并命名为inputname；两个命令按钮预览、关闭。　　2.依次点击菜单栏视图→代码命令，进入VBA代码编写窗口，编写如下代码：　　　　PublicstunameAsString'定义全局变量stuname　　SubPrintReports(PrintModeAsInteger)　　'创建打印预览子程序　　Dimstrode,,strd.CloseacForm,打印预览面板

5、　　EndSub　　PrivateSubinputname_Change()　　'将文本框输入的字符赋给全局变量sname，用于给打印预览限定条件　　stuname=inputname.Text　　EndSub　　PrivateSub预览_Click()'预览报表，本过程使用自定义的PrintReports子程序　　PrintReportsacPrevied.Close　　EndSub　　创建主切换面板窗体　　1.创建主切换面板，放置三个命令按钮打印学生证书、返回数据窗口、退出管理系统。　　2.依次点击菜单栏视图→代码命令，进入VBA代码编写窗口

6、，编写如下代码：　　　　PrivateSub打印学生证书_Click()　　DimstrFormNameAsString　　strFormName=打印预览面板　　'打开打印预览面板　　DoCmd.OpenForm12下一页>>>>这篇文章来自..，。strFormName,,,,,acDialog　　EndSub　　PrivateSub关闭当前窗口_Click()　　DimstrDocNameAsString　　strDocName=证书信息　　'关闭主切换面板窗体。　　DoCmd.Close　　'设置焦点到数据库窗口；选择证书信息表。　　DoC

7、md.SelectObjectacTable,strDocName,True　　EndSub　　PrivateSub退出管理系统_Click()　　'退出MicrosoftAccess.　　DoCmd.Quit　　EndSub　　设置启动时显示主切换面板　　依次点击菜单栏工具→启动命令，打开启动设置窗口，在显示窗体→页选项下选择主切换面板，并取消显示数据库窗口，这样在下一次打开此Access数据库时，就会自动显示主切换面板窗体。读者也可根据自己的需要决定是否取消菜单栏和快捷菜单栏，如果取消以后又要显