Run time error '1004' application defined or object defined error, PDF won't save

[dea123]

For months this has been working and then today it randomly stopped working. ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, ignoreprintareas:=False, FileName:=path & fname & ".pdf" is what was highlighted so the error must be there. Please help.


Sub SaveAsPdf()

Dim invno As Long
Dim custname As String
Dim amt As Currency
Dim dt_issue As Date
Dim term As Byte
Dim path As String
Dim fname As String
Dim nextrec As Range

invno = Range("C3")
custname = Range("B9")
amt = Range("H40")
dt_issue = Range("C4")
term = Range("C5")
path = "D:\Content\Invoices"
fname = invno & " - " & custname


ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, ignoreprintareas:=False, FileName:=path & fname & ".pdf"


Set nextrec = Sheet4.Range("A1048576").End(xlUp).Offset(1, 0)

nextrec = invno
nextrec.Offset(0, 1) = custname
nextrec.Offset(0, 2) = amt
nextrec.Offset(0, 3) = dt_issue
nextrec.Offset(0, 4) = dt_issue + term

Sheet4.Hyperlinks.Add anchor:=nextrec.Offset(0, 6), Address:=path & fname & ".pdf"

Exit Sub


End Sub

[jolivanes]

try

path = "D:\Content\Invoices\"    '<----- Backslash added at the end

Or instead

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, ignoreprintareas:=False, FileName:=path & "\" & fname & ".pdf"     '<----- Backslash added between path & fname

[dea123]

Neither of these worked. Same message.

[Marc L]

Check the variables contents …

[ByteMarks]

You can also get a 1004 error if the sheet being pdf'd is blank.

[jolivanes]

or add a single line after the path line, like so

path = "D:\Content\Invoices"
If Not Right(path, 1) = "\" Then path = path & "\"

[jolivanes]

Have you checked the suggestions made by Marc L and ByteMarks?

[dea123]

For some reason it’s working fine on my PC but not on my Mac. Thanks for your help though.

[jolivanes]

I am not lucky enough to have an Apple product so I can't test/check.
Thanks for letting us know that all is well in the Microsoft world though.
Good Luck with it also.