Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-报表

如何在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源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助