12-05-2023
11:56 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
12-05-2023
11:56 AM
I use this rule and have it set to open when the drawing template is opened.
Dim drawingDoc as DrawingDocument = ThisDoc.Document 'A1 size If Sheet_Size = "A1" Then ThisApplication.ActiveDocument.ActiveSheet.Orientation = kLandscapePageOrientation ActiveSheet.ChangeSize("A1", moveBorderItems := True) 'A2 size ElseIf Sheet_Size = "A2" Then ThisApplication.ActiveDocument.ActiveSheet.Orientation = kLandscapePageOrientation ActiveSheet.ChangeSize("A2", moveBorderItems := True) 'A3 size ElseIf Sheet_Size = "A3" Then ThisApplication.ActiveDocument.ActiveSheet.Orientation = kLandscapePageOrientation ActiveSheet.ChangeSize("A3", moveBorderItems := True) 'A4 size ElseIf Sheet_Size = "A4" Then ThisApplication.ActiveDocument.ActiveSheet.Orientation = kPortraitPageOrientation ActiveSheet.ChangeSize("A4", moveBorderItems := True) End If 'update all InventorVb.DocumentUpdate() 'zoom all ThisApplication.ActiveView.Fit