This is one example
; goes trhough all layout tabs and zooms all
; By Alan H june 2011
(vl-load-com)
(command "_.pspace")
(setq curtab (getvar "Ctab"))
(setq this_dwg (vlax-get-acad-object))
(foreach d (layoutlist)
(setvar "CTAB" d)
(COMMAND "pSPACE")
(command "zoom" "C" "400,277" 750) ; in case junk around title block
)
(setvar "ctab" curtab)
(princ)