[求助]在报表中如何只导入图片一次就完成打印？(已解决)

okmijn

在报表中如何只导入图片一次就完成打印？在报表中如何只导入图片一次就完成打印？

我的方法是先打开报表的设计视图，再更改图片（导入一次），打印（又要导入一次）。

如果图片很大的话，而且又多的话就要浪费很多时间。请高手指点一下！

代码如下：

DoCmd.OpenReport "报表1", acViewDesign, "", "", acHidden

Reports![报表1]!Image5.Picture = "c:\image.gif"

DoCmd.OpenReport "报表1", acViewNormal, "", "", acHidden



改成如下:

Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
   Me.Image5.Picture = "c:\image.gif"
End Sub


   DoCmd.OpenReport "报表1", acViewNormal, "", "", acHidden

[此贴子已经被作者于2006-11-10 14:51:17编辑过]