Can anyone correct this Create PDF script?

[iRobert]

Hello,
I have been fiddling with this script for hours:

Sub MakeInvoice_PDF() ' Make_PDF Macro from Invoice data in specific folder "\Invoicing\PDF Files\"
With ActiveSheet.PageSetup
    .Orientation = xlPortrait
    .PrintArea = "$A$1:$G$56"
End With


ActiveSheet.ExportAsFixedFormat, _
Type:=xlTypePDF, _
Filename:=ActiveWorkbook.Path & "\Invoicing\PDF Files\" & "Invoice" & "_" & Range("A8").Value & "_" & Range("A16").Value & "#" & Range("B13").Value & Range("C13").Value & "_" & Range("A18").Value, & ".pdf" _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub

but I get syntax errors!
Can anyone please help?

Thanks,
iR

 

[Logit]

.

Sub MakeInvoice_PDF()


Sheets("Sheet1").Range("A1:G56").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    ActiveWorkbook.Path & "\Invoicing\PDF Files\" & "Invoice_" & ActiveSheet.Range("A8").Value & "_" & ActiveSheet.Range("A16").Value & "_" & ActiveSheet.Range("B13").Value & ActiveSheet.Range("C13").Value & "_" & Range("A18").Value & ".pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=True




End Sub

 

[jolivanes]

What happens if you leave the comma out?
From this

.Value, & ".pdf"

to this

.Value & ".pdf"

 

[iRobert]

& ".pdf"

was redundant and I removed it!!!

 

[iRobert]

Thank you, I am going to try this one!!!

iR

 

[iRobert]

This worked perfectly.
Thank you so much!

iR

 

[Logit]

You are welcome
Glad to help.

 

[iRobert]

Sorry me again....last thing.....
How would I add this in the directory path :
Invoice\Pdf Files\(value of cell A8)\
Would this be correct?:

ActiveWorkbook.Path & "\Invoicing\PDF Files\" & Range("A8").value & "\" & "Invoice_" & ActiveSheet.Range("A8").Value & "_" & ActiveSheet.Range("A16").Value & "_" & ActiveSheet.Range("B13").Value & ActiveSheet.Range("C13").Value & "_" & Range("A18").Value, _

Thanks,
iR

 

[Logit]

Sorry me again....last thing.....
How would I add this in the directory path :
\Invoice\Pdf Files\(value of cell A8)\

Thanks,
iR

Hmmm ... you already have it there : ActiveWorkbook.Path & "\Invoicing\PDF Files" & "Invoice_" & ActiveSheet.Range("A8").Value &


Unless you mean :

ActiveWorkbook.Path & "\Invoicing\PDF Files\" &  ActiveSheet.Range("A8").Value & "\" & "Invoice_"  & "_" & ActiveSheet.Range("A16").Value & "_" & ActiveSheet.Range("B13").Value & ActiveSheet.Range("C13").Value & "_" & Range("A18").Value & ".pdf", _