Having trouble with VBA code trying to save copy of workbook PDF

[sspreyer]

Hi everyone would like to save copy of the workbook in PDF every time someone save the work and put the PDF in a different location
I have some code but I'm getting error with see code below


Thanks in advance
Cheers
Shane

Private Sub Workbook_AfterSave(ByVal Success As Boolean)


    Dim Filename As String
    Dim Filepath As String
    
        Filepath = "C:\Users\Shane\Documents\"
        Filename = Filepath & ThisWorkbook.Name


        If Success Then
            With ThisWorkbook.ExportAsFixedFormat _ ' this line highlights and i get error message ("compile error expected file or variable")
                (Type:=xlTypePDF, _
                 Filename:=Filename, _
                 Quality:=xlQualityStandard, _
                 IncludeDocProperties:=True, _
                 IgnorePrintAreas:=True, _
                 OpenAfterPublish:=False)
            End With
        End If
        
End Sub

 

[VoG]

Try

Private Sub Workbook_AfterSave(ByVal Success As Boolean)


    Dim Filename As String
    Dim Filepath As String
    
        Filepath = "C:\Users\Shane\Documents\"
        Filename = Filepath & ThisWorkbook.Name


        If Success Then
            ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Filename, _
                 Quality:=xlQualityStandard, _
                 IncludeDocProperties:=True, _
                 IgnorePrintAreas:=True, _
                 OpenAfterPublish:=False
        End If
        
End Sub

 

[sspreyer]

Try

Private Sub Workbook_AfterSave(ByVal Success As Boolean)


    Dim Filename As String
    Dim Filepath As String
    
        Filepath = "C:\Users\Shane\Documents\"
        Filename = Filepath & ThisWorkbook.Name


        If Success Then
            ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Filename, _
                 Quality:=xlQualityStandard, _
                 IncludeDocProperties:=True, _
                 IgnorePrintAreas:=True, _
                 OpenAfterPublish:=False
        End If
        
End Sub

thanks alot worked great legend!!! also is there way i could make this only save active sheet not whole workbook to pdf

cheers
shane

 

[diddi]

If you are able to add new programs on your computer, you can install a free pdf printer driver like Bullzip, and then you can print whatever part of a book/sheet to a pdf. Just another option...

 

[VoG]

Cross posted [SOLVED] Having trouble with VBA code trying to save copy of workbook PDF