主题：[求助]如何动态打印图片

如下代码:

Dim rm As New prt.RenderImage
rm.Image = GetImage("XX.jpg")
rm.y = 50
rm.x = 100
doc.Body.Children.Add(rm)

如我有众多图片,当前行dr("图片")名称如与Images文件夹下一图片名相同时,则此报关打印此图片.

我设置为:

rm.image = getimage(""" & dr("图片") & ".jpg" & """) 时无效,不知如何设置.

请教各位老师.

感谢yangming版主提供思路.