[求助]如何在汇总报表中打印图片?

jie_ren

试了hi-wzj 斑竹的范例,感觉简单且实用.但是还有一个问题是,如果图片档案格式为JPG或JPEG时,会出现错误,因为实际工作中大多数都是用JPG或JPEG格式,因为压缩比例要大.下面的代码是我先前用的,所以出现无法在汇总报表里打印(显示)每笔记录的图片If Dir("\\NTS\MOLD\photo\" & Me.模号 & ".jpg") <> "" Then

   Me.图样.Picture = "\\NTS\MOLD\photo\" & Me.模号 & ".jpg"

Else

   Me.图样.Picture = "\\NTS\MOLD\photo\ptp.jpg"

End If请高手再指点迷津.在此谢过了.

wu8313

If Dir("\\NTS\MOLD\photo\" & Me.模号 & ".jpg") <> "" Then

   Me.图样.Picture = "\\NTS\MOLD\photo\" & Me.模号 & ".jpg"

Else

   Me.图样.Picture = "\\NTS\MOLD\photo\ptp.jpg"

End If将你的jpg改为bmp应该可以的。

hi-wzj

jpg的文件无法显示的原因是：您的系统未安装可以编辑jpg的软件。简单的可将office中照片编辑器装上。或者在office自定义安装中将“图元过虑器”还是“图元转换”的选项选上安装就行了。

zyp

請教王版主:在表單中用圖片框顯示不同圖片可以完成嗎??按照你的示例,在報表中ok,在表單中我做不到.謝謝!

jie_ren

[color="#990000"]hi-wzj斑竹,JPG或JPEG格式的问题解决了。现又有一问题，我的资料库中当初没有存放图档文件名的栏位，所以我的图片全部命名是按”模号“来的，比如：模号为001那对应的图片档存放在固定的目录“\\NTS\MOLD\PHOTO\"中，图片名称为001.jpg。愿来的代码如下，运行中会出现”模号“参数出错。请问怎样修改才能像斑竹所上传的例子一样的效果。下面的代码是我先前用的,所以出现无法在汇总报表里打印(显示)每笔记录的图片If Dir("\\NTS\MOLD\photo\" & Me.模号 & ".jpg") <> "" Then

   Me.图样.Picture = "\\NTS\MOLD\photo\" & Me.模号 & ".jpg"

Else

   Me.图样.Picture = "\\NTS\MOLD\photo\ptp.jpg"

End If请高手再指点迷津.在此谢过了.

jie_ren

我要解决这个问题,所以我要把此帖顶上去....

hi-wzj

将例子放上来吧

fremgo

发现一个重大问题， 请高手指教：


如何将   me.图片1.picture    里头的图片去掉


表如下：























路径











1.BMP








2.BMP








3.BMP

















5.bmp








6.BMP








显示到第4个格(空值)图片的时候就出错了


我用这个句子也不行：


    If Me.路径 <> "Null" Then


       Me.图像1.Picture = CurrentProject.Path & "\" & Me.路径


    Else


       Me.图像1.Picture  = Nothing


    End If





－－－－－－－－－－－－－－－－－－－－－


55，老大们请一定帮帮我


我的意思很简单：就是有图片就显示， 没图片就不显示！


                          我用=nothing , =null都出错，晕!

[此贴子已经被作者于2004-12-8 16:08:42编辑过]

fremgo

<ADDRESS>我修正一下：</ADDRESS>

<ADDRESS> </ADDRESS>

<ADDRESS> </ADDRESS>

<ADDRESS>发现一个重大问题， 请高手指教：</ADDRESS>

如何将   me.图片1.picture    里头的图片去掉

<ADDRESS> </ADDRESS>

<ADDRESS>我的表中第4个栏目是空值， 列印显示到这里的时候就出错了</ADDRESS>

我用这个句子也不行：

    If Me.路径 <> "Null" Then

       Me.图像1.Picture = CurrentProject.Path & "\" & Me.路径

    Else

       Me.图像1.Picture  = Nothing

    End If



－－－－－－－－－－－－－－－－－－－－－

55，老大们请一定帮帮我

我的意思很简单：就是有图片就显示， 没图片就不显示！

                          我用=nothing , =null都出错，晕!

[此贴子已经被作者于2004-12-9 8:30:23编辑过]

jie_ren

19楼的，建议你可以设定一个特别的图片放在你的图片目录之下，比如一个无赖的表情图片，图片的名字也特别点不要跟其他图片命名相冲突就可以了。