how to print an eventmail from a tcl to an lpr printer

I’m using eventmail for A30 transaction and i need to print also this email to an lpr printer from my tcl, here’s a code i’m using on eventmail :

if {[regexp “mail” $trackmode] } {

     exec echo “[subst $ebody]” | mail -s “[subst $esubject]” “$recipient”

           }

Regards,

Mahmoud