在MS Access中打开时没有预览打印时运行VBA代码

问题描述：

以下代码打印MS Access报告而不打开它进行预览。但是，我想运行一些代码来修改报告，当用户选择打印它。在MS Access中打开时没有预览打印时运行VBA代码

DoCmd.OpenReport RptName, , , "[ItemNumber]= " & Me.ItemNum

我已经尝试了“关于激活”，“开开”和“第”事件，但没有人跑，我在那里放置代码。

每个ItemNumber都有一个关联的图像。每当他们点击打印按钮上面的代码运行发送他们想打印的itemNumber，并在那一刻，我想插入适当的无界图像打印在报告上。

究竟什么是你想在报表上修改？某些报表属性只能在设计视图中修改。 – mwolfe02

感谢您在编辑中回答mwolfe的问题。据我了解，你想要一个图像对象有一个动态的来源？ – PowerUser

答

将您的代码放入Detail部分的Format事件中。假设你已经在你的报告中的细节部分命名为Image1图像控制：

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) 
    Me.Image1.Picture = DLookup("ImagePath", "ImageTable", _ 
           "ItemNumber=" & Me.ItemNum) 
End Sub

在MS Access中打开时没有预览打印时运行VBA代码

相关推荐