To use this feature, type the following script.

Sub Rect_Click()
  'Calling this method can also be performed
  'by using Application.CaptureScreen()
  Screen.Frame.CaptureScreen("c:\mail\test.bmp")
  Application.LoadReport("[Report3]").PrintPreview()
End Sub