Excel to pdf and mail

[Tom1983]

https://www.mrexcel.com/forum/gener...-code-convert-excel-pdf-email-attachment.htmlHi,

This is extension to the one thread paste here long time back.

It automticaly save and send mail via outlook but only issue is it saved whole excel file,where as we want only specific part of excel to be converted into pdf .

like we have so many tabs and we want pdf for one sepcific tab and then again specific cells or range

Not sure how to attach exce here..so plz assume tab name as Master and range (A1 toJ5).

Thank you

 

[John_w]

This saves the specified range as a PDF file:

    Dim PDFfile As String
    PDFfile = "C:\folder\path\PDF data.pdf" 'change as required
    Worksheets("Master").Range("A1:J5").ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDFfile, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Then use the PDFfile variable in the Outlook Attachments.Add line.

 

[Tom1983]

Great thank you... Another issue... I want to give my name to pdf file instead of by default name of active workbook... How can I do that

 

[John_w]

The PDFfile = line shows how to give the PDF a specific name. This must be a full name, including the folder path. If you want to create the PDF in the same folder as the active workbook then:

PDFfile = ActiveWorkbook.Path & "\PDF data.pdf"

 

[Tom1983]

Yes i know PDffile=line where i need to make amendment but still not get what you have said above.....can we give a range to it...like PDFfile= Range("A3") something like this....plz suggest

 

[Tom1983]

i will give pdf file name in this range

 

[John_w]

Assuming A3 on the active sheet contains the full file name, including folder path, then:

PDFfile = Range("A3").Value

Or if it contains just the file name then:

PDFfile = ActiveWorkbook.Path & "\" & Range("A3").Value

 

[Tom1983]

I treid both ways but it is not working....I have given path name then file name and then what description i want for pdf but it is giving error.
Here is what iam typing incell A3 (C:\VFA05\Desktop\Appy\ALT Invoice file\Way terminal invoice)

 

[Tom1983]

Ok i got it...thank you so much for your time

 

[John_w]

Yep, either add .pdf to the end of the A3 cell value or:

PDFfile = Range("A3").Value & ".pdf"