>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.Release >>TIA