VBA Save worksheet print area as pdf

tigerdel said:

Also posted at mrexcel.com with no response [https://www.mrexcel.com/board/threads/vba-save-as-pdf.1147479/]


I have the code below that should save an excel worksheet as a pdf file

However, at the line: .ExportAsFixedFormat Type:=xlTypePDF, FileName:=FullPath, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
I get this error:

No document is Not Open

Code:

[I]Private Sub SaveQuotationAsPDF(cell As Range)
    Dim FileName As String, FullPath As String
        With ActiveSheet
            FileName = .Range("J7").Value & "-" & .Range("j8").Value
            FullPath = Environ$("OneDrive") & "\MJM Services\2.0 Quotations\pdf Copy" & FileName & ".pdf"

            .ExportAsFixedFormat Type:=xlTypePDF, FileName:=FullPath, Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
        End With
        cell.Parent.Hyperlinks.Add cell, FullPath, TextToDisplay:="Open Quotation"
End Sub[/I]

Any idea what I've done wrong here

Thanks for your time

Click to expand...