Simple macro example for doing this just for the current drawing:
Code:
$M=$(if,$(eq,$(getvar,dwgtitled),0),saveas,$(if,$(eq,$(getvar,tilemode),0),$(if,$(eq,$(getvar,cvport),1),Z;E;,PS;Z;E;))tilemode;1;Z;E;_qsave;CLOSE)
Just to point out a few things to consider.
Has the drawing been titled (saved before)? Wouldn't be an issue in this case.
Model space tab or/and layout?
What to do if in a viewport? As long as it's locked no problem.
Consider running it on a test folder first to make sure you get the results you're looking for, there's no undo for something like this.