pushdir
s:
cd \public
call setprint
popdir
print %1.ps