macro to save as pdf?

[merlin777]

I want a button to click on to save sheet 1 as a PDF using the current filename. Not quite sure where to start? Do I just record a macro while I'm saviing the sheet as a pdf?

Also, i'm using a pc - would my macros work on a mac?

 

[Logit]

.

Option Explicit


Sub SveRngPDF()
Sheets("Sheet1").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "C:\Users\My\Desktop\" & ThisWorkbook.Name & ".pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
End Sub

Edit the path to match your computer.

Most macros that work on a PC will function on a MAC but I can't guarantee this macro will. You'll just have to try it.

 

[merlin777]

magic - thanks for that!

.

Option Explicit

Sub SveRngPDF()
Sheets("Sheet1").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "C:\Users\My\Desktop\" & ThisWorkbook.Name & ".pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
End Sub

Edit the path to match your computer.

Most macros that work on a PC will function on a MAC but I can't guarantee this macro will. You'll just have to try it.

 

[Logit]

.
You are welcome.