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

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

REPORT FORM &cArqImp TO PRINTER PROMPT PREVIEW

*CHAMAIMP2("TSLOR02",cArqimp)

ENDIF