Private Sub CommandButton1_Click()
'for invoice number
Sheet1.Range("B4").Value = Sheet1.Range("B4").Value + 1
'for PDF file save
Sheet1.Range("A2:I27").ExportAsFixedFormat xlTypePDF, Filename:= _
"C:\Invoice\" & Sheet1.Range("B4").Value, Openafterpublish:=True
'for clear invoice
Sheet1.Range("B5:E9").ClearContents
Sheet1.Range("A11:F22").ClearContents
Sheet1.Range("G25:I25").ClearContents
End Sub
Download Workbook
no working
ReplyDeleteHaai Nataraj Thanks For Comments
DeletePlease Download Workbook you HaveLink Address Below Dont Forget To Befor You Run This Code Change Path Address
http://mcrvision.blogspot.in/2017/03/create-invoice-and-save-pdf-format.html
run time error 424 object required error
ReplyDeletePdf option not add in Excle 2007
ReplyDeletePlease guide me
Good Job
ReplyDeleteMera PDF file nahi ban raha hai.save button click karte hi formula me wapas lejata hai.aur formula highlight kar de raha hai.
ReplyDeleteJagadish Das
Kolkata
Great post, it was nice to see this article. It was really appreciable. Thank you so much for sharing such an informative article. Checkout here more info about print shop management software
ReplyDelete