Hi mhaziq,
I've already added the following code to the attached copy of your file.
You will have to change the "File Path" to your requirements.
Sub Save_As_PDF()
Dim FilePath As String
Dim FileName As String
Dim MyDate As String
FilePath = "C:\ROCAL ORDERS\"
MyDate = Format(Date, "DD-MM-YYYY")
FileName = FilePath & Range("A11").Value & " " & Range("B7").Value & " " & MyDate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName, OpenAfterPublish:=True
End Sub
Is this what you are after?
Regards
peterrc
Bookmarks