Good Afternoon All,
I wonder if anyone has managed to resolve an issue I am currently experiencing with a pop-up form. I used the following code to prompt a sheet size selection:
MultiValue.SetList("SSize", "A0", "A1", "A2", "A3", "A4")
SSize = InputListBox("Choose Your Size", MultiValue.List("SSize"), Size, Title := "Paper select", ListName := "List")
ActiveSheet.ChangeSize(SSize, MoveBorderItems := True)
Select Case SSize
Case "A0"
ActiveSheet.TitleBlock = "AMBER_A0"
Case "A1"
ActiveSheet.TitleBlock = "AMBER_A1"
Case "A2"
ActiveSheet.TitleBlock = "AMBER_A2"
Case "A3"
ActiveSheet.TitleBlock = "AMBER_A3"
Case "A4"
ActiveSheet.TitleBlock = "AMBER_A4"
End Select
ThisApplication.ActiveView.Fit
When this command runs I get the following error message pop up:
If anyone knows how to enable the JIT debug register or find an alternative that switches this pop-up off I'd be most grateful,
Regards,
Edward
Inventor 2014
Windows 7 - 64 Bit