All,   I have two preliminary routines called CA (CloseAll) and PA (PrintAll) tailored for my needs as following:   CloseAll: (defun C:CA() (setvar "TILEMODE" 1) (command "._ZOOM" "_Extents") (command "._PURGE" "all" "*" "No") (command "._PURGE" "all" "*" "No") (command "._PURGE" "all" "*" "No") (setvar "TILEMODE" 0) (command "._MSPACE") (command "._Grid" "_OFF") (command "._OVERKILL" "ALL" \\P "DONE") (command "._PSPACE") (command "._VPORTS" "L" "ON" "ALL" "") (command "._ZOOM" "_Extent