Mac office, print area save as PDF, name PDF by cell value

**thequiff** · 10-25-2013, 12:53 PM

I'm using mac office and I recorded this macro.
I use it to select the area and then print but select the save as PDF.

What I can't see in this code is where does it save it to??
And how can I save it by the value of D2 as its file name?

Many Thanks

Matt

Sub PrintObject()
'
' PrintObject Macro
'

'
    Range("A1:E44").Select
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = "$A$1:$D$44"
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.5)
        .RightMargin = Application.InchesToPoints(0.5)
        .TopMargin = Application.InchesToPoints(0.5)
        .BottomMargin = Application.InchesToPoints(0.5)
        .HeaderMargin = Application.InchesToPoints(0.5)
        .FooterMargin = Application.InchesToPoints(0.5)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = -4
        .CenterHorizontally = True
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

**thequiff** · 10-25-2013, 01:41 PM

I found this http://www.ozgrid.com/forum/showthread.php?t=169852

and this seams to help

Sub SavePDFMacro()
     
     
     
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MacScript("return (path to documents folder) as string") & Range("D2").Value, Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=True

End Sub

Having said that it cuts off the edge of the frame, need to make it fit the page somehow