Saving an Excel File as a PDF using VBA

[Loki2400]

Hello,

I want to save a file as a PDF file instead of a macro enabled excel file. Below is the code I am currently using to save to the desktop as an Excel file. I just want to switch it up now and save as a PDF.


ThisWorkbook.SaveAs Filename:="C:\Personal\" & Environ$("Username") & _
"\Desktop\" & "Rosenberg Daily Downtime Report " & Format(Now, " DD-MMM-YY"), _
FileFormat:=xlOpenXMLWorkbookMacroEnabled


Thanks!

Loki

 

[rpaulson]

Here is what I use:
Adjust file name as needed.

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=Range("C1") & Format(Range("A9"), "mm-dd-yy") & " - " & Range("A8") & ".pdf", _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=False, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

hth,

Ross

 

[Loki2400]

Thanks! I will try it out soon.