Para utilizar este recurso, digite o script a seguir.

Sub Rect_Click()
  'Esta chamada de método também pode ser realizada
  'utilizando-se Application.CaptureScreen()
  Screen.Frame.CaptureScreen("c:\correio\teste.bmp")
  Application.LoadReport("[Relatório3]").PrintPreview()
End Sub