此证书打印系统是直接利用ACCESS的VBA功能开发的，主要用于打印带相片的证件，而其设计的重点也在于相片的显示。代码如下：
Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
Dim imgpath As String
'依据应用程序路径、认证项目名称、姓名得到相片路径
imgpath = Application.CurrentProject.Path +"\" +认证项目.text +"\"+ 姓名.Text+".jpg"
'判断照片是否存在，如果不存在则显示一张空白的图片。
If Dir(imgpath) = "" Then imgpath = Application.CurrentProject.Path + "\noimg.bmp"
Stuimg.Picture = imgpath
End Sub
读者可根据自己的需要修改字段和报表的排版格式。
如果打开数据库时出现错误，请
