SaveAsPDF Macro - Syntax Error

[aatmik_m24]

My Code for Saving an Invoice Template to PDF at a specified location is -

Sub SavePDF()
' pdf Macro
Application.ScreenUpdating = False
Sheets("Invoice").Select
Range("A1:A52").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
"G:\Electronyx Bazaar\Invoice\" & Range("A9").Value & " Order No# " & Range("F9").Value & " Invoice No #" & Range("F3").Value & " " & Range("F13").Value & " " & "AWB - " & Range("F11").Value, Quality:=xlQualityStandard, IncludeDocProperties:=
False, IgnorePrintAreas:=False, OpenAfterPublish:=False
Sheets("Invoice").Select
Range("B1").Select

Application.ScreenUpdating = False
End Sub


THIS CODE GIVES ME SYNTAX ERROR.
I DO NOT UNDERSTAND WHERE IS THE ISSUE.

Please help its urgent, this is my invoicing requirement for daily purpose.

 

[diddi]

can I suggest you define the file name before the export. it might simplify everything a bit.
eg

Dim MyExport as string
MyExport = "G:\Electronyx Bazaar\Invoice\" & Range("A9").Value & " Order No# " & Range("F9").Value & " Invoice No #" & Range("F3").Value & " " & Range("F13").Value & " " & "AWB - " & Range("F11").Value

which line is erroring?

 

[mohan.pandey87]

As i have tested the code it is working fine but in your case i need to check your path and in your example it is comming from some ranges so it would be helpfull to have these value to make proper path. please attache your file with some dummy data.

 

[aatmik_m24]

can I suggest you define the file name before the export. it might simplify everything a bit.
eg

Dim MyExport as string
MyExport = "G:\Electronyx Bazaar\Invoice\" & Range("A9").Value & " Order No# " & Range("F9").Value & " Invoice No #" & Range("F3").Value & " " & Range("F13").Value & " " & "AWB - " & Range("F11").Value

which line is erroring?

Please provide me the Full Code.

The code you have provided , I do not understand where to place it.
It says - Expected Function or Variable when I alter it like this -

Sub SavePDF()' pdf Macro
Application.ScreenUpdating = False
Sheets("Invoice").Select
Range("A1:A52").Select
Dim MyExport As String
MyExport = "G:\Electronyx Bazaar\Invoice\" & Range("A9").Value & " Order No# " & Range("F9").Value & " Invoice No #" & Range("F3").Value & " " & Range("F13").Value & " " & "AWB - " & Range("F11").Value
Sheets("Invoice").Select
Range("B1").Select

Application.ScreenUpdating = False
End Sub