save workbook to pdf

[Kaps_mr2]

Hello,

I am trying to save a workbook (output_workbook) as a pdf file to a users desktop. Although microsoft appears to be doing something no file is created. can any one help ? thanks

kind regards
Kaps

Sub SaveActiveWorkbookAsPDF()

'Create and assign variables
Dim saveLocation As String
saveLocation = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "Myfile.pdf"

'Save active workbook as PDF
output_workbook.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=saveLocation

End Sub

 

[Bosquedeguate]

When I test your code on my laptop to the value of the "savelocation" variable is:
C:\Users\forrest\DesktopMyfile.pdf

The CreateObject function is not appending a needed "\"

modify that line of code to:

saveLocation = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & Myfile.pdf"

I wrote the above so that if your file name changes or is coming from a Sheet the backslash ("\") will still be where it needs to be

Also the next line of code needs to be either

ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF,  Filename:=saveLocation

or your need to define output_workbook

Dim output_workbook As Workbook
Set output_workbook = ThisWorkbook 'or the workbook you intend to save as a PDF
output_workbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=saveLocation