Excel: VBA to print to PDF - Run time error 1004

Question

I have tried using the following solution to print from Excel to PDF:

Excel 2013 Print to PDF in VBA

While the solution seems to have worked for other people

Answer 1

So this is the working code now for Windows users (Mac OS might have to adjust file path):

Sub Invoice_to_PDF()
'Saves the invoice print area to a PDF file

Dim fp As String
Dim wb As Workbook
Dim ws As Worksheet

fp = "C:\Users\[username]\Desktop\NewInvoice.pdf"
Set wb = ActiveWorkbook
Set ws = Worksheets("Invoice")

ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fp, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True


End Sub