Message 1 of 6
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Does Inventor Pro 2021 export PDF drawings in a different way compared to 2020?
I'm working with a large 43 sheet drawing document (this is fairly typical for me). In 2020, the exported PDFs are slightly more than 4 MB file sizes.
Revising the same drawing document in 2021 with no added sheets or views gives me an exported PDF size of 74 MB. Fortunately, I have a full version of Adobe Acrobat and can optimize PDFs outside of Inventor.
Here's the rule I'm using the export PDFs. Thanks to whomever I stole this from.
Dim oPDFAddIn As TranslatorAddIn
oPDFAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
Dim oDocument As Document
oDocument = ThisApplication.ActiveDocument
oFileName = ThisDoc.FileName(False)
oContext = ThisApplication.TransientObjects.CreateTranslationContext
oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
oOptions = ThisApplication.TransientObjects.CreateNameValueMap
oDataMedium = ThisApplication.TransientObjects.CreateDataMedium
Dim oDrawing as DrawingDocument
oDrawing = ThisDrawing.Document
Dim iBeginSheet As Integer
If oDrawing.Sheets.Item(1).IsModelSpaceSheet = True Then
iBeginSheet = 2
Else iBeginSheet = 1
End If
Dim iEndSheet As Integer
iEndSheet = oDocument.Sheets.Count
oOptions.Value("All_Color_AS_Black") = 0
oOptions.Value("Remove_Line_Weights") = 0
oOptions.Value("Vector_Resolution") = 4800
oOptions.Value("Sheet_Range") = Inventor.PrintRangeEnum.kPrintSheetRange
oOptions.Value("Custom_Begin_Sheet") = iBeginSheet
oOptions.Value("Custom_End_Sheet") = iEndSheet
oDataMedium.FileName = ThisDoc.Path() & "\" & oFileName & ".pdf"
oPDFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium)
ThisDoc.Launch(oDataMedium.FileName)
Brandon
Solved! Go to Solution.