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