excel vba save worksheet as pdf.

[BRB1983]

I'm having issues with this code not saving my file. I get an error 1004. it worked before. does any one see any issues with this code?

Option Explicit
Sub SaveAsPDF()

 Dim strDir As String
   strDir = CreateObject("WScript.Shell").specialfolders("Desktop") & "\Daily Reports\"
     
    If Dir(strDir, vbDirectory) = "" Then
        MkDir strDir
    Else
        'MsgBox "Directory exists."
    End If
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
Dim fName As String
With ActiveSheet
    fName = .Range("C7").Value & " " & .Range("F46").Value
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            strDir & fName, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
MsgBox "SAVE COMPLETE"
Range("C7") = ""
Range("C9:C45") = ""
End Sub

 

[BRB1983]

yes that was my problem. Cell C7 = 11/5/2019
i changed C7 in code to O7 and it works.

 

[DanteAmor]

i think i know the proble.. cell C7 is date format... can not save a file with "/". ill give it a try with out date.

Then, try this

fName = format(.Range("C7").Value, "dd-mm-yyyy") & " " & .Range("F46").Value

 

[BRB1983]

that works great. i like it!!!

 

[DanteAmor]

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