Excel 2007 Save As PDF Macro

[shaw600]

Hi

I recently created a macro in Office 365 to save as a PDF, here's the code:

Sub Save_PDF_Quote() Dim Path As String
Dim filename As String
Path = "C:\Users\RISING SUN\Google Drive\Rising Sun Construction\Quotes\PDF"
filename = Range("H16")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:=Path & filename & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=True
End Sub

But it doesn't seem to work in Excel 2007. Please help.

 

[TimvMechelen]

I use this code:

Sub Save_PDF_Quote()


Dim StrFilePathAndName As String
    With Sheets("[B][I]YourSheetName[/I][/B]")
        StrFilePathAndName = "C:\Users\RISING SUN\Google Drive\Rising Sun Construction\Quotes\PDF" & "\" & .Range("H16") & ".pdf"
    End With

    With Sheets("[B][I]YourSheetName[/I][/B]")
        .Range("Print_Area").ExportAsFixedFormat _
        Type:=xlTypePDF, FileName:=StrFilePathAndName, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=True
    End With
End Sub

 

[shaw600]

Hi Tim, Thank you but that still hasn't worked, it's telling me that there is an issue with this section:

.Range("Print_Area").ExportAsFixedFormat _ Type:=xlTypePDF, filename:=StrFilePathAndName, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True

If it can't be saved as a PDF could it be printed as a PDF?