error can't save document when try save as PDF

[Alaa mg]

hello
I try saving specific sheet as pdf but gives error can't save document in this line

rng.ExportAsFixedFormat Filename:=strFilename, Type:=xlTypePDF, OpenAfterPublish:=True

Sub SaveAsPDF()
    Dim rng As Range
    Dim strFilename As String
    Dim lr As Long
lr = Sheets("INVOICE").Cells(Rows.Count, 1).End(xlUp).Row
    With Sheets("INVOICE")
        strFilename = .Range("G6").Value & " " & "INVOICE NO "
    End With
   
    Set rng = Sheets("INVOICE").Range("a1:G" & lr)

   
    rng.ExportAsFixedFormat Filename:=strFilename, Type:=xlTypePDF, OpenAfterPublish:=True

End Sub

any idea to fix it ,guys?

 

[OaklandJim]

Try this. Let me know if it works.

Option Explicit

Sub SaveInvoiceAsPDF()
    
    Dim rRangeToSave As Range
    
    Dim sFilename As String
    
    Dim sPathToFile As String
    
    Dim iRows As Long
    
'   Path to the file.
    sPathToFile = ThisWorkbook.Path & "\" '<= change this if the path is different than this workbook's.
    
'   Set name of file to save and range to include.
    With Sheets("INVOICE")
        iRows = Range("A1").Cells(Rows.Count, 1).End(xlUp).Row
        sFilename = "INVOICE NO " & .Range("G6").Value & ".pdf"
        Set rRangeToSave = .Range("a1:G" & iRows)
    End With
    
'   Delete the file if it already exists.
    On Error Resume Next
    Kill sPathToFile & sFilename
    On Error GoTo 0

    rRangeToSave.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=sPathToFile & sFilename, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

End Sub

 

[Alaa mg]

I've found my bad !
there is character ,the excel prohibit save with this character .

thanks for organization for the code .