Local ldFrom, ldTo, lnSendTo, lcDest lnSendTo = ThisForm.OptSendTo.Value lcDest = Iif(lnSendTo = 2, 'To Printer', 'Preview') ldFrom = ThisForm.txtFrom.Value ldTo = ThisForm.txtTo.Value Report Form Total For Between(TotalDate, ldFrom, ldTo) &lcDest ; Heading "From "+DTOC(ldFrom)+" To "+DTOC(ldTo) NoConsole If lnSendTo = 2 Wait Window "Report Sent To "+pPrnName Timeout 2 Endif ThisForm.ReleaseTIA