建立資料庫和表

1. 開啟Microsoft Office Access，建立一個空資料庫，與相片的分類目錄放在同一個資料夾下。

2. 使用“檔案→獲取外部資料→匯入”功能將Excel表直接匯入Access中，儲存為“證書資訊”表。

建立證書資訊報表

1. 建立“證書資訊”報表，先插入一個“影象”控制元件，設定其圖片屬性為證書模板圖片，設定其大小為證書模板的大小，設定其可見性為否，這樣有利於證書資訊的排版，且不會打印出來；再依次插入要列印的欄位列表，設定好字型和字號；最後再插入一個“影象”控制元件，放置於列印相片的地方，設定其大小為相片的大小，設定其名稱為“stuimg”。

　　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