Adding as save to PDF function on Macro

[tsymic]

I had a macro created to print the quote, incremental increase and clear data. I did have it save as an excel document, but now we would like it to save as a PDF. This is what I have in my system.

Sub PrintSaveIncrementalInvoice()
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Dim NewFN As Variant
Sub SaveActiveWorkbookAsPDF()

Sub SaveFileWithMacro()

Dim Path As String
Dim fn As String
Path = "C:\Users\Teresa\anvilmachine.ca\Document Portal - Documents\Quotes\Quote & Range("G10").Value & ".PDF"
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Path & fn & ".pdf"

Application.DisplayAlerts = True
ActiveWorkbook.Close
Range("G9").Value = Range("G9").Value + 1
'THIS CLEARS THE CELL RANGE, C13, G11, A18:I33, A36
[C12, A17:I40].ClearContents

End Sub


I'm not very good at Macros if anyone can help please!

 

[DanteAmor]

Sub PrintSaveIncrementalInvoice()
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Dim NewFN As Variant
Sub SaveActiveWorkbookAsPDF()

Sub SaveFileWithMacro()

You could review the code you posted, it seems you didn't include the complete macros.

Note Code Tag:
In future please use code tags when posting code.
How to Post Your VBA Code it makes your code easier to read and copy and it also maintains VBA formatting.

Example of how the code is seen within the code tag:

Sub Macro2()
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
      Filename:="C:\Users\USER\Documents\example.pdf", _
      Quality:=xlQualityStandard, IncludeDocProperties:=True, _
      IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub