Mac 2011 Excel to PDF Export via Macro

**EGFish54** · 02-11-2015, 01:14 PM

Hi, All -

I have a large table and I want to run two separate macros. I am using Mac Excel 2011 and all of my users will be on a Mac.

1 - To filter out the non zeros in the table. I have accomplished this fine and coded to a Filter button which works.

2 - I want to then Export only the relevant rows out to an Excel PDF and place on the user's desktop. I have recorded / written the following Macro which mostly works okay on my own computer. However, when I share the document with my users and they run the same macro the formatting of the exported table is completely off, rows/columns are missing and typically the logo is missing as well. Is there a better way to update the macro?

Also, there will be other sheets in this workbook so I only want to export the Active Sheet.

I have attached the workbook as well.

Sub SaveAsPDF2()
'
' SaveAsPDF2 Macro
'

'
Columns("A:H").Select
Dim sPath As String
sPath = MacScript("(path to desktop folder as string)")
ActiveWorkbook.SaveAs Filename:= _
sPath & ".pdf", _
FileFormat:=xlPDF, PublishOption:=xlSelection
Sheets("Pricing Menu").Select
Range("A1").Select
End Sub

**thakrish** · 09-03-2015, 01:07 AM

Hi,

Try the below code

Sub SavePDFMacro()
    Dim folderPath As String
    Dim RootFolder As String

    On Error Resume Next
    RootFolder = MacScript("return (path to desktop folder) as String")
    folderPath = MacScript("(choose folder with prompt ""Select the folder""" & _
    "default location alias """ & RootFolder & """) as string")
    On Error GoTo 0

    If folderPath <> "" Then
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            folderPath & ":" & Range("A1").Value, Quality:= _
            xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=True
    End If
End Sub