2024年3月14日发(作者：)
办公技巧 用Access轻松打印带相片的证件 电脑资料
最近笔者接到一个任务，要将学生的证书信息及相片打印到
3+1技能证书模板上，并且还要传到网上供用人单位查询， 办公技
巧：用Aess轻松打印带相片的证件 。原始数据分两局部，一局部
是包含学生姓名、身份证号、认证工程、证书编号等信息的Excel
表;另一局部是按认证工程分类、以学生姓名为名的相片，图片大小
均为90×120像素，图片格式均为JPG
考虑到时间上的紧迫性，还有用户操作的易用性，以后上网查
询所需数据库的兼容性，因此决定选用Aess来开发。Aess具有强
大的窗体创立、报表打印、VBA编程功能，足以胜任大局部小型数
据库应用系统的开发。
创立数据库和表
1. 翻开Microsoft Office Aess，创立一个空数据库，与相片
的分类目录放在同一个文件夹下。
2. 使用“文件→获取外部数据→导入”功能将Excel表直接导
入Aess中，保存为“证书信息”表。
创立证书信息报表
1. 创立“证书信息”报表，先插入一个“图像”控件，设置其
图片属性为证书模板图片，设置其大小为证书模板的大小，设置其
可见性为否，这样有利于证书信息的排版，且不会打印出来;再依次
插入要打印的字段列表，设置好字体和字号;最后再插入一个“图像”
控件，放置于打印相片的地方，设置其大小为相片的大小，设置其
名称为“stuimg”， 电脑资料 《 办公技巧：用aess轻松打印带
相片的证件》( s:// )。
2. 依次点击菜单栏“视图→代码”命令，进入VBA代码编写窗
口，编写如下代码：
Private Sub 主体Format(Cancel As Integer, FormatCount
As Integer)
Dim imgpath As String
' 依据应用程序路径、认证工程名称、姓名得到相片路径
imgpath = +"" +认证工
程.text +""+ 姓名.Text+".jpg"
' 判断照片是否存在，如果不存在那么显示一张空白的图片。
If Dir(imgpath) = "" Then imgpath =
+ ""
e = imgpath
End Sub
发布者：admin，转转请注明出处：http://www.yc00.com/news/1710351775a1742302.html
评论列表（0条）