Question

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

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

我尝试过“On Activate”，“On Open”和“On Page”事件，但没有一个事件运行我放在那里的代码。

每个ItemNumber都有一个与之关联的图像。每当他们点击打印按钮时，上面的代码就会发送他们想要打印的itemNumber，此时我想在报告上插入适当的无界图像。

Answer 1

将您的代码放在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代码时没有预览打印

1 个答案: