Saving Pivot table to PDF

[saloelrn1988]

Hi I need Help!

i am able to save my Pivot table in PDF however upon saving it saves other pages with blanks. i wanted to save it up until the cell containing data(my last cell may vary because I'm using different data per week).

See below coding that i used:

Sub Save_PDF()
'
' Save_PDF Macro
' Save pivot table as PDF
Dim saveLocation As String
saveLocation = "C:\Users\elon\Desktop\" & Sheets("email data").Range("B3")

Sheets("pivot table").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=saveLocation _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Worksheets("raw data").Select
End Sub

 

[Domenic]

Actually, I see that your path was initially "c:\users\elon\desktop...", which presumable worked. However, in your latest code that you posted, you have "c:\users\elXXXXXXXXon\Desktop...".?????

 

[saloelrn1988]

Still a runtime error:

 

[saloelrn1988]

Actually, I see that your path was initially "c:\users\elon\desktop...", which presumable worked. However, in your latest code that you posted, you have "c:\users\elXXXXXXXXon\Desktop...".?????

Actually i just deleted my name in the initial coding, then i typed it back again base on the coding that you have given

 

[saloelrn1988]

y

You're still getting an error with our little test? That's surprising.

Did your original code work?

Yes, however it also save like 6 to 7 blank pages, i wanted to get rid of those unnecessary blank pages

 

[Domenic]

Try checking whether the file already exists, and delete it if so prior to exporting to PDF.

 

[Domenic]

Another possibility is that the file may already be opened by another program, and so you won't be able to overwrite and save it.

 

[saloelrn1988]

Try checking whether the file already exists, and delete it if so prior to exporting to PDF.

i tried deleting the original file created then it works perfectly. Thanks for the patience.

Have a lovely weekend

 

[Domenic]

That's great, I'm glad I could help. You too have yourself a great weekend. Cheers!