报表打印时为什么不显示？

Question

报表中的控件的内容在运行时全都看不见可是加设断点后又能够显示代码：Private Sub DataReport_Initialize()
Dim r As RptImage
Dim d As Object
a = 1
Dereportshebei.Caption = "dddddddd"
Set r = Dereportshebei.Sections.Item(2).Controls.Item(34)
Set d = LoadPicture(App.Path & "\image\photo.jpg")
 'Set r.Picture = Nothing
 Set r.Picture = LoadPicture(PrintPicture)
 If DEjxc.rsprint.State = adStateOpen Then
    DoEvents
DEjxc.rsprint.Requery         ‘加设断点
     DoEvents
End If
End Sub

Answer 1

datareport只要是有一点小问题都会不显示,当然这不一定是错误,例如纸不够大等等.