vb打印图片预览问题(active report),谢谢.

Question

我用PICTUREBOX读出一张图片后,用active report控件做一个打印前的预览,PICTUREBOX上图能显示.但是打印的时候图就没了.关掉active report后再一次打开图片然后预览的时候又能看见图片了,不知道什么原因.谢谢.程序如下.
Private Sub Picture3_Click()
Picture3.PaintPicture Picture2.Picture, 0, 0, Picture3.Width, Picture3.Height
End Sub
Private Sub Command4_Click()
Dim ar As New ActiveReport1
Picture3.AutoRedraw = True
ar.Image1 = Picture3.Image
ar.Show
End Sub我想第一次预览的时候就能显示图片,谢谢大家帮个忙.

Answer 1

要在 PaintPicture 之前就设置 AutoRedraw = True。

Answer 2

Private Sub Picture3_Click()
    Picture3.AutoRedraw = True 
    Picture3.PaintPicture Picture2.Picture, 0, 0, Picture3.Width, Picture3.Height 
End Sub