Crash after changing background

[jvdrest]

I have made a very simple VBA macro which makes the background, and the parts wireframe with no hidden edges.

And made a macro to get back to colored parts and background.

This is perfect when you quickly want to print it on a piece of paper to scetch something by hand, without the hassel to make a DWG of it.

And printing with full color is quite wastefull.

In inventor 2019 this worked perfect.

We updated a few weeks ago to inventor 2022 and now about 20% of the times i use it, inventor crashes.

Anyone know why this happens, or what i can change so it doesnt crash?

VBA macro for printable settings:

Sub PresentatiePrinten()
ThisApplication.ColorSchemes.Item("Presentation").Activate
ThisApplication.ColorSchemes.BackgroundType = BackgroundTypeEnum.kOneColorBackgroundType
ThisApplication.ActiveView.DisplayMode = DisplayModeEnum.kWireframeNoHiddenEdges
End Sub

VBA macro for color:

Sub PresentatieNormaal()
ThisApplication.ColorSchemes.Item("Sky").Activate
ThisApplication.ColorSchemes.BackgroundType = BackgroundTypeEnum.kGradientBackgroundType
ThisApplication.ActiveView.DisplayMode = DisplayModeEnum.kShadedWithEdgesRendering
End Sub