前面写过一篇《
如何在Access窗体中显示指定路径的图片》（以下简称“前文”），评论和转载的网友不少，看来同我一样遇到类似问题的爱好者还不少。一直想再写一篇关于报表中调用图片的文章，可是由多年来习惯了学术论文的写作，总觉得写文章是一件非常累的事，所以迟迟没有动笔。
在报表中打印指定路径的图片其实很简单。我们仍以前文用的“古代语言学家”数据库为例，如果希望在报表中打印出语言学家的头像，可以通过以下几个步骤实现。
一、建一个报表，在希望打印头像的位置插入一个图形控件，然后把插入的图片删掉，方法与前文中四和五两个步骤相同。
二、在“视图”中打开“代码”编辑窗口，加入如下一段代码并保存：
Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
Dim imgpath As String
imgpath = Application.CurrentProject.Path & "\头像\" & Me!linguist & ".jpg"
If Dir(imgpath) = "" Then imgpath = Application.CurrentProject.Path & "\noimg.jpg"
Image7.Picture = imgpath
End Sub
看过前文的话对于这段代码就很容易理解了。Imgpath定义了图片的路径。If一句定义了当在上一句定义的路径中找不到图片时，图片的路径为当前目录中的noimg.jpg（注意：这个文件必须存在）。Image7是图形控件名，要与报表中的控件名一致，本例中是Image7。
三、完成以上步骤，在打印预览模式下就可以查看效果了。
