Hello everyone. I'm new to the forum. I have a real head scratcher here and I'm hoping I can get some help. I have an excel document which some staff use and they occasionally export the content of the spreadsheet to PDF. This seems to have been working fine until the introduction of Office 2016. On office 2013 and earlier the data would export to a PDF which would be about 6 MB. The guys would then send this PDF in an email to whoever needs it. Now with office 2016 the same data exported to PDF is over 40 MB in size, too large for an email attachment. Is there a way to bring this file size down some? I already tried setting the quality to minimum in the macro but it made little difference. Below is the macro code.
Sub PDFWorkbook()
Dim strPDFName As String
strPDFName = Worksheets("Input Page").Range("txtFileName").Value
Sheets(Array("Cover", "TOC", "Summary", "#1", "#2", "#3", "#4", "#5", "#6", "#7", "#8", "#9", "#10", "#11", "#12", "#13", "#14", "#15", "#16", "#17", "#18", "ALL", "CHEM", "WB1", "WB2")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Random Location\PDF\" & strPDFName & ".pdf", Quality:= _
xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Sheets("Input Page").Select
End Sub
Any help to bring this file size down will be appreciated. Going back to a previous version of office is less than desirable and also impractical. Thanks.
Bookmarks