如何在Access报表中打印指定路径的图片

时　间:2020-03-30 09:01:47
作　者:忻口布衣   ID：27156  城市：北京
摘　要:如何在Access报表中打印指定路径的图片？
正　文:

      前面写过一篇《如何在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。

三、完成以上步骤，在打印预览模式下就可以查看效果了。 

Access软件网官方交流QQ群 (群号:54525238) 　　　　　　Access源码网店