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

jie_ren

我的例子

jie_ren

我的附档怎么上传了却看不见啊，该怎样上传呢？

fremgo

如果图片是整页那么大，而且不能和文字一道显示（即图片是插入的）要怎么弄呢，我是在表里插入很多空行。。。。。晕倒

hi-wzj

以下是引用fremgo在2004-12-13 11:12:01的发言：

如果图片是整页那么大，而且不能和文字一道显示（即图片是插入的）要怎么弄呢，我是在表里插入很多空行。。。。。晕倒

将您现在做的先贴上来看看。

fremgo

这里不能上传文件吗？

hi-wzj

可以上传附件。点击窗体上方的“回复帖子”按钮.....浏览.....上传

jie_ren

youthdating

以下是引用fremgo在2004-12-9 8:11:28的发言：



<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都出错，晕!

我也求证这个问题。

zyp

If Me.路径 <> "Null" Then

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

    Else

       Me.图像1.Picture  =""

    End If

youthdating

你看我这样行吗？

Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)

On Error Resume Next

   If Dir("J:\照片\stuphoto\" & XH.Value & ".jpg") = "" Then

   Image44.Picture = ""

   Else

   Image44.Picture = "J:\照片\stuphoto\" & XH.Value & ".jpg"

    End If

End Sub

但是这个照片还是要出来的。

然后我使用了方式是：

If Dir("J:\照片\stuphoto\" & XH.Value & ".jpg") = "" Then

   Image44.Picture = "i:\blank.jpg"  --此处使用一个白色照片，然后置到最底层，哎，很麻烦。

   Else

   Image44.Picture = "J:\照片\stuphoto\" & XH.Value & ".jpg"

    End If

[此贴子已经被作者于2005-1-6 0:00:19编辑过]