Easily Printing to PDF

@Alex
Try this macro:

Sub ActiveSheetAsPDF()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=("[" & ActiveWorkbook.Name & "]" & ActiveSheet.Name), _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

The PDF file will be saved in the active workbook's folder with a name like [Book1.xlsx]Sheet1.pdf. It will replace any file of the same name. It will open in your PDF viewer when the macro is done.
If your configuration includes the "Microsoft Print to PDF" printer (or something similar), you could also press Ctrl+P and specify that as Printer.

Hi guys,

I was wondering if there's any solution for making exporting to PDF a simpler process.

At the moment, the steps I have to take are the following:

- Click 'Save As'
- Click 'PDF'

Then this is the part I want to fix:

- Choose Sheet (instead of workbook) - I want sheet to always be the default
- Choose 'Best for Printing' - I want this to be the default too

Any tips or advice greatly appreciated!

@Mahmoud
Try changing from ThisWorkbook.Path to ActiveSheet.Parent.Path

Hi all

I have the below macro in my worksheet to save as PDF, but users are complaining that compile error is coming ! can you pls help what could be the problem and how to solve it?


SavePDFCVSF()

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\NEW" & " " & Range("E8") & " " & Range("E20") & " " & "ETA" & " " & Range("z63") & " " & "created" & " " & Format(Now, "yyyy-mm-dd hh-mm-ss") & ".pdf", _
OpenAfterPublish:=True
ActiveSheet.Unprotect "999"
Range("fillable_fields").Select
Selection.Locked = True
Selection.FormulaHidden = True
ActiveSheet.Protect "999"
Range("E8").Select

End Sub

Hi, I'm stuck with following issue:
I am having a number (up to 500) report diagrams to print a pdf based on an Excel data table where the charts get updated for each row, one by one. See code below:

Sub UpdateChart()
Dim tblResults As ListObject
Dim i As Integer, n As Integer
Dim PrintTo As String

n = 1
i = 1

'PrintTo = "C:\Desktop\"
Set tblResults = Worksheets("AllResults").ListObjects("MrgdResults")

n = tblResults.ListRows.Count
Worksheets("Auswertung").Activate

For i = 1 To n

tblResults.ListRows(i).Range.Copy Destination:=ActiveSheet.Range("rngAllValues")

Worksheets("Report").ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=Environ("USERPROFILE") & "\Desktop\SF_Report " & Format(i, "000") & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Next
End Sub

Now the charts in the pdf file(s) get altered as regards the colors and shading, example correct image (see Figure 1 below)
and wrong pdf one (see Figure 2 below)
any suggestions?

hi, I am looking to save multiple tables that are coming from a pivot and i want a macro that will go through a list of product i supply then selects them individually off a pivot and converts it to a pdf. is there a way to create a macro to do that?

Above Mentioned macro works very fine but it saves file in my documents but what if i want to save pdf file in current working folder
Please advise.

I am getting asked to push the Quick Access PDF button to all users. Is there an applicable GPO that I can use? If not could a push a registry key?

May I suggest an incredible piece of freeware (or an optional pay-version with additional features) that works as a printer driver? It's "PDF reDirect" from www.exp-systems.com.

It installs as a printer for use by ALL programs, not just excel. I've not had a single problem with it since I installed it as way back in WinXP. Try it yourself then recommend it in your next newsletter (which is excel-lent IMHO).
Regards,
Jim