Export to pdf - filename query

Hello, I have the following code exports selected contents to a PDF

Please Login or Register  to view this content.

Where the macro picks up the client name from a cell, I would also like the end of the filename (where it says 2013 on my code) to be pulled from another cell but can't quite get it right. Can anyone tell mw where i am going wrong?

Please Login or Register  to view this content.

doesn't seem to work.

Also the export is to a folder where the workbook is saved and by default it overwrites any file with the same name. is there a way to prompt in the event of this so the filename may be changed?

thanks in advance.

Hi, that's a brilliant Idea and exactly what I want but i can't get your code to work. My entire macro selects a different range of pages based on the value of a cell. So, if cell value is 1 select pages X-X, if 2 select X-Y, etc. I think this is why I can't get it working.

This is my entire code:

Please Login or Register  to view this content.

Can you tell me where I am going wrong please?

thanks,
dan

any ideas would be great?

Cant test it but something like this:

Please Login or Register  to view this content.

Incredible - you have yourself a good weekend!

thanks a lot!

Hi sorry, I do have another query and if this is more appropriate in a new post please let me know and I will create one:

THis code above is perfect and is exactly what I need. Is it possible to have a second button which would run exactly the same code but then attach the pdf to an email in outlook ready for sending, and also specify the message subject and content?

I cant test it, I don't have Outlook.

But this may do it...

Please Login or Register  to view this content.

Hi that does generate the report and opens a new email with your message, but doesn't attach the file.

I have found this other code on a website, which would do exactly what I need but can't get it working:

Please Login or Register  to view this content.

thinking that if this bit

Please Login or Register  to view this content.

could be changed to pick up all pages that had the number 1 in cell A4 on each work sheet then this might work. But as I have said it doesn't seem to work in my programme? Can you suggest anything?

It is falling down here:

Please Login or Register  to view this content.

saying compile error - sub or function not defined.

Attachment problem, most likely caused by the absents of the .pdf
This may work:
Change

Please Login or Register  to view this content.

To

Please Login or Register  to view this content.

Gerard

Originally Posted by dantray02

It is falling down here:

Please Login or Register  to view this content.

saying compile error - sub or function not defined.

RDB_Create_PDF is a function
Most likely you don't have the function in your project

Gerard

thank you. These are the functions in the workbook I downloaded.

Please Login or Register  to view this content.

So using the above, and these two functions, is it possible to export the same worksheets that you have already helped me with and then attach to an email?

hi Gerard,

It still doesn't attach the file. also can you tell me where the file is exported to in the exportandsendpdf code

thank you for your help.

Also gerard, you do not need to look at the function code I provided. yours works fine but I can not get the file to attach.

Other similar codes send the file to a temporary location and then attach from here. Is there a way to do this?

Yes, ad de sDir string variant and create the directory string used by the workbook : ThisWorkbook.Path & "\"

Add the sDir & just before the sFileName.

Please Login or Register  to view this content.