HOW TO CREATE SAVE BUTTON IN EXCEL.
COPY CODE AND PASTE MODULE.
Sub SaveInvoiceAsPDFAndClear()
Dim NewFN As Variant
NewFN = "E:\AKHILESH AUTO MOBILE\INVOICE DATA\" & Range("H14").Value & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NewFN, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
Comments
Post a Comment