3种方法：
方法1：使用设置：SnapshotReportMode
oldMode = Setting("SnapshotReportMode")
Setting("SnapshotReportMode") = 0 '0 - always captures images.
x = Window("window").Exist(0) 'Capture the window
Setting("SnapshotReportMode") = oldMode
方法 2：配置：tools-options-run
方法3 ：使用截图 Desktop.CaptureBitmap filename 绝对路径
'=============================================
'名称：QTP_Capture
'作用：截图
'参数：TestFor 要测试的内容
'函数调用实例：QTP_Capture("测试查询功能")
'=============================================
Function QTP_Capture(TestFor)
Dim datestamp,filename,ResPath
ResPath = Environment("ResultDir")'获取测试环境（这里取的是运行结果文件夹）
datestamp = Now() '当前时间
filename = Environment("TestName")&Environment("ActionName")&"_"&datestamp&".png"'获取当前测试名称+和时间作为图片名称，例如输出为：MinnovEMS_2013410 154751.png
filename = Replace(filename,"/","")
filename = Replace(filename,":","")
filename = ResPath & "\" & filename
Desktop.CaptureBitmap filename,True
Reporter.ReportEvent micWarning,TestFor,"测试截屏",filename'使用警告标志，提醒测试员查询结果
End Function
1 Environment("ResultDir")'获取测试环境-这里取的是运行结果文件夹
2 Environment("TestName") '这里是测试项目名称
3 Environment("ActionName") '这里是每个测试文件的名称
4 Desktop.CaptureBitmap filename,True '这里是截图 filename 保存图片的绝对路径，true 覆盖同名文件
Desktop.CaptureBitmap Filename,[OverrideExisting]
5 Reporter.ReportEvent micWarning,TestFor,"测试截屏",filename '这里是将图片添加到报告文件中
Reporter.ReportEvent EventStatus, ReportStepName, Details [, ImageFilePath]
EventStatus = micPass; micFail; micDone; micWarning