Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

Access问答 → 报表中如何打印图片？

报表中如何打印图片？

虽虽TV　 发表于：2010-10-10 16:32:56 　
复制

各位老师好！

我想在报表中打印图片（主要是事先扫描好的试题），图片有很多并且放在硬盘的某个位置。打印时自动将查询到的图片送到报表中打印，请问如何实现？

 

Top
虽虽TV 发表于：2010-10-20 00:43:38

没人回答呀，再上传个附件，有请各位了，感谢！

点击下载此附件



Top
虽虽TV 发表于：2010-10-20 22:20:28
报表中如何打印图片？点击下载此附件

Top
陈玉才 发表于：2010-10-20 23:23:27

首先你要将数据表有个字段的内容和你图片的名称是一致，必须在你的表中加一个字段：图片，专门用于收集你的信息像对应的图片

　　

 

     Dim imgpath As String

     'imgpath 是指图片的路径
　　 ' 依据应用程序路径、认证项目名称、姓名得到相片路径
　　 imgpath = Application.CurrentProject.Path +"\" +[图片]+".jpg"
　　 ' 判断照片是否存在，如果不存在则显示一张空白的图片。
　　 If Dir(imgpath) = "" Then imgpath = Application.CurrentProject.Path + "\noimg.bmp"
　　 Stuimg.Picture = imgpath



Top
虽虽TV 发表于：2010-10-21 20:51:12

陈老师，真不好意思，我还是不会弄，我又上传了一个附件，里面带有相应的图片，请您下载后修改一下数据表中 图片 的路径。给我做一个例子。谢谢 再谢谢！



Top
虽虽TV 发表于：2010-10-21 21:03:29

附件忘传了

 

点击下载此附件

Top
陈玉才 发表于：2010-10-22 17:28:54

我的能力有限，给你重新做了一个窗体和报表，你看是不是你要的效果，

 

点击下载此附件



Top
虽虽TV 发表于：2010-10-23 08:18:23

陈老师，您好，感谢你的帮助！您做的这个很好，这个实例实用于给全班学生打印同一张试题。我的初衷是想为不同的学生打印不同的试题，比如  吉永惜同学的《观潮》学习较差，我就只为其打印《观潮》试题，而莘江山同学的《巨人的花园》学习较差，我只为其打印《巨人的花园》试题。这些试题我早就以图片的形式放在一个文件夹里，在表里只登记哪些学生哪些内容没学好。打印时就自动打印出该学生相应较差的内容。



Top
总记录：7篇  页次：1/1 9 1 :

Access软件网 版权所有 CopyRight 2006-2030
上海盟威软件有限公司 提供支持
沪ICP备12024966号-4