filename = ThisWorkbook.Path & "\" & ThisWorkbook.Name & ".pdf" ActiveSheet.PrintOut PrintToFile:=True, PrintFilename:=filename, OpenAfterPublish:=False End Sub In this example, the code saves the PDF file to the same location as the workbook.
vb Copy Code Copied Sub PrintToPDF() Dim filename As String excel vba print to pdf and save
To save the PDF file to a specific location, you can modify the filename variable to include the desired path. filename = ThisWorkbook
filename = "C:\Path\To\Save\" & "Report_" & Format(Now, "yyyy-mm-dd_hh-mm-ss") & ".pdf" ActiveSheet.PrintOut PrintToFile:=True, PrintFilename:=filename, OpenAfterPublish:=False End Sub filename = ThisWorkbook.Path &