*IF MESSAGEBOX("Confirma Impresso   ",292,"Impresso") = 6

SET CURSOR OFF
SET CONSOLE OFF

&& Cdigo dentro do Report
cObsfe = ""

cArqImp = FULLPATH(CURDIR()) + "IMPRESS\TSCOT.FRX"

REPORT FORM &cArqImp TO PRINTER PROMPT PREVIEW

SET CURSOR ON
SET CONSOLE ON

*CHAMAIMP2("TSLOR02",cArqimp)

*ENDIF