Here is a sample I hope you can use. First, test it before pushing it out to users.
select
case ingroup("P1")
use lpt1: "\\Server name\printer share name" /persistent
case ingroup("P2")
use lpt1: "\\Server name\printer share name" /persistent
case ingroup("P3")
use lpt1: "\\Server name\printer share name" /persistent
case ingroup("accounting")
USE LPT1 /DELETE
USE LPT2 /DELETE
USE LPT2 "\\Server name\printer share name" /persistent
USE LPT3 "\\Server name\printer share name" /persistent
endselect

------------------
BoxKite
FACTA NON VERBA

_________________________
Box
FACTA NON VERBA