Excel 2007 to pdf macro

[venkat5652]

Hi Team,

Help required from our team.

Need vba macro to save excel sheet range("A1:D30") to PDF document using Excel 2007 version.

Treat it as little bit urgent pls.

Regards
venkat

 

[vletm]

venkat5652
You'll now continue as urgent:
https://www.microsoft.com/en-us/download/details.aspx?id=7

 

[Logit]

Option Explicit

Sub Export_Worksheet_to_PDF()

    Dim mypath As String, fname As String
    mypath = ThisWorkbook.Path
    fname = CreateObject("Scripting.FileSystemObject").GetBaseName(ThisWorkbook.Name)
    ActiveSheet.Range("A1:D30").ExportAsFixedFormat 0, mypath & "\" & fname

End Sub

 

[venkat5652]

Hi Logit,

Thanks for your file.

I am facing erro in saving the document in the below piece of code.

ActiveSheet.Range("A1:D30").ExportAsFixedFormat 0, mypath & "\" & fname

"Document is not saved", i am using Excel 2007

 

[vletm]

venkat5652
Have You downloaded that Add-In?
Excel 2007 do not have default feature to use PDF!

 

[Logit]

Not certain what is occurring on your end. See attached ... works here.