CAD tip # 13920:

The macro for this special saving needs to be defined as external to be available in all documents (models). You can assign its invocation to an icon in the ribbon (e.g. "Save in presentation mode") using the functions in the T4I bonus application. You can then use it instead of standard Save whenever you want to save a "nicer" file.

Simpler version of iLogic macro with temporary schema switching before saving:

'Save in preset color scheme
Sub Main()
CurrentColorScheme = ThisApplication.ActiveColorScheme.Name
ThisApplication.ColorSchemes.Item("Presentation").Activate
Call ThisApplication.CommandManager.ControlDefinitions.Item("AppFileSaveCmd").Execute
ThisApplication.ColorSchemes.Item(CurrentColorScheme).Activate
End Sub

Or a variant, slightly more complex version, with a forced change of the background image:

'Save in preset color scheme (bkg)
Sub Main()
Dim CurrentBackground As String = ""
CurrentColorScheme = ThisApplication.ActiveColorScheme.Name
ThisApplication.ColorSchemes.Item("Presentation").Activate
If ThisApplication.ColorSchemes.BackgroundType = kImageBackgroundType
	CurrentBackground = ThisApplication.ActiveColorScheme.ImageFullFileName
	ThisApplication.ActiveColorScheme.ImageFullFileName = "c:\Users\USERNAME\bkg\FIRMA-8d2d0b3.png"
End If
Call ThisApplication.CommandManager.ControlDefinitions.Item("AppFileSaveCmd").Execute
If CurrentBackground>"" Then
	ThisApplication.ActiveColorScheme.ImageFullFileName = CurrentBackground
End If
ThisApplication.ColorSchemes.Item(CurrentColorScheme).Activate
End Sub