Excel to save as pdf did not save

[ipbr21054]

Hi,
Code supplied below but when i run it to save as a pdf file the line shown below in in yellow.

.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFileName, Quality:=xlQualityStandard, IncludeDocProperties:=True

Private Sub GrassSummarySheet_Click()    Dim strFileName As String
    
       strFileName = "C:\Users\Ian\Desktop\GRASS CUTTING\CURRENT GRASS SHEETS\SUMMARY 2019-2020\" & Range("L3") & ".pdf"
       
    If Dir(strFileName) <> vbNullString Then
        MsgBox "GRASS SUMMMARY SHEET " & Range("L3") & " WAS NOT SAVED AS IT ALREADY EXISTS", vbCritical + vbOKOnly, "GRASS SUMMARY SHEET MESSAGE"
        Exit Sub
    End If
    
    With ActiveSheet
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFileName, Quality:=xlQualityStandard, IncludeDocProperties:=True
        MsgBox "GRASS SUMMARY SHEET " & Range("L3") & " WAS  SAVED SUCCESSFULLY", vbInformation + vbOKOnly, "GRASS SUMMARY SHEET MESSAGE"
        Range("D5:E17,D21:D33").ClearContents
        Range("D5").Select
        ActiveWorkbook.Save
    End With
End Sub

 

[JoeMo]

Hi,
Code supplied below but when i run it to save as a pdf file the line shown below in in yellow.

.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFileName, Quality:=xlQualityStandard, IncludeDocProperties:=True

Private Sub GrassSummarySheet_Click()    Dim strFileName As String
    
       strFileName = "C:\Users\Ian\Desktop\GRASS CUTTING\CURRENT GRASS SHEETS\SUMMARY 2019-2020\" & Range("L3") & ".pdf"
       
    If Dir(strFileName) <> vbNullString Then
        MsgBox "GRASS SUMMMARY SHEET " & Range("L3") & " WAS NOT SAVED AS IT ALREADY EXISTS", vbCritical + vbOKOnly, "GRASS SUMMARY SHEET MESSAGE"
      [COLOR=#ff0000][B]  Exit Sub[/B][/COLOR]
    End If
    
    With ActiveSheet
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFileName, Quality:=xlQualityStandard, IncludeDocProperties:=True
        MsgBox "GRASS SUMMARY SHEET " & Range("L3") & " WAS  SAVED SUCCESSFULLY", vbInformation + vbOKOnly, "GRASS SUMMARY SHEET MESSAGE"
        Range("D5:E17,D21:D33").ClearContents
        Range("D5").Select
        ActiveWorkbook.Save
    End With
End Sub

Comment out the Exit Sub line so you don't exit the sub prior to the save as pdf.

 

[DanteAmor]

What do you have in the Range cell ("L3"), Do you have a date?, what does the error message say?

 

[ipbr21054]

Hi,
Comment out, does that mean delete the Exit Sub text ?

L3 was the problem as it should of been C3

 

[ipbr21054]

Or do you mean like this, please advise.

MsgBox "GRASS SUMMARY SHEET " & Range("C3") & " WAS NOT SAVED AS IT ALREADY EXISTS", vbCritical + vbOKOnly, "GRASS SUMMARY SHEET MESSAGE"    
    ' Exit Sub Comment Out
        Exit Sub
    End If
    
    With ActiveSheet

 

[JoeMo]

Or do you mean like this, please advise.

MsgBox "GRASS SUMMARY SHEET " & Range("C3") & " WAS NOT SAVED AS IT ALREADY EXISTS", vbCritical + vbOKOnly, "GRASS SUMMARY SHEET MESSAGE"    
    ' Exit Sub Comment Out
        Exit Sub
    End If
    
    With ActiveSheet

Ignore - my error, read the If statement too quickly.

 

[ipbr21054]

ok cheers

 

[DanteAmor]

Hi,
Comment out, does that mean delete the Exit Sub text ?

L3 was the problem as it should of been C3

Was your problem resolved?

 

[ipbr21054]

L3 had the command button on it and i should have entered C3 anyway,now it works.

 

[DanteAmor]

L3 had the command button on it and i should have entered C3 anyway,now it works.

I'm glad to help you. Thanks for the feedback.