在Access窗体中打印图片

Question

我正在使用vba来显示文件中的图片而不是插入到我的表单细节中的虚拟图像（即设置Access图像控件的Picture属性），使用：

Private Sub Form_Current()
On Error Resume Next
Me![imgFromFile].Picture = Me![txtPath]
End Sub

这在屏幕上显示单个表单时效果很好，将图像从“txtpath”中定义的文件位置更新为适当的图片。

但是，当我尝试打印所有表格（连续）时，我只能获得最后在单独表格显示中显示的相同图片。

有没有办法在打印之前更新每个对象的图像字段？

Answer 1

表单用于显示和编辑数据，报表用于打印。

Answer 2

您是否尝试过以下代码？它将打印屏幕上显示的表格。

DoCmd.SelectObject acForm, "MyFormName", True
DoCmd.RunCommand acCmdPrint