simple im sure change from print to print to PDF

[lmpratt]

im using the below code

Please Login or Register  to view this content.

and want to change to print to PDF.

thanks all

[alansidman]

Here is a link that should help

http://www.contextures.com/excelvbapdf.html

[lmpratt]

thanks Alan but I am a noob here.

I need to work the same eg. if 1 in cell then print that worksheet.

is there a easy line change eg changing from If ws.Range("A1") <> "" Then
ws.PrintOut??

[alansidman]

Look at answer #2 here http://superuser.com/questions/89302...df-dopdf-ver-7

You are changing the file type, so it needs to export and not print.

[lmpratt]

this pds's entire workbook I just sheets with text in cells eg A1.

[alansidman]

Here is some code that I tested and it exports the specified range as a PDF. Change up the range and the filename and path as needed.

Please Login or Register  to view this content.

[lmpratt]

thank you worked a treat

[alansidman]

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED. Thanks.