THANKS
Which bits do I edit

sRoom=substr(@WKSTA,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21) ; Room Prefix T8$iPCNo=substr(@WKSTA,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21) ; Simple sequential PC number."This is PC number " $iPCNo " in room number " $sRoom ?SelectCase $sRoom = "T8" Use lpt1: "\\curriculum\T8Colour"Case $sRoom = "T9" Use lpt1: "\\curriculum\PagePro4100"Case 1 "No printer mapped - room not recognised" ?EndSelect

is this what you mean?
Can i add the other rooms in the same way?